1.1--- a/lisp/std/alien.lisp	Thu May 23 20:59:01 2024 -0400
     1.2+++ b/lisp/std/alien.lisp	Fri May 24 14:40:38 2024 -0400
     1.3@@ -31,11 +31,13 @@
     1.4 ;;  	       '(:with-pinned-objects :with-pinned-object-iterator :with-code-pages-pinned
     1.5 ;;  		 :sanctify-for-execution))
     1.6 
     1.7-(defun shared-object-name (name path)
     1.8+(defun shared-object-name (name &optional path)
     1.9   "Return a filename with the correct extension for a shared library."
    1.10-  (merge-pathnames 
    1.11-   #+darwin (format nil "lib~a.dylib" name)
    1.12-   #-darwin (format nil "lib~a.so" name) path))
    1.13+  (let ((name #+darwin (format nil "lib~a.dylib" name)
    1.14+              #-darwin (format nil "lib~a.so" name)))
    1.15+    (if path
    1.16+      (merge-pathnames name path)
    1.17+      (pathname name))))
    1.18 
    1.19 (defun list-all-shared-objects ()
    1.20   sb-alien::*shared-objects*)