-(defun load-dso (filename)
- #+sbcl(sb-alien:load-shared-object filename)
- #+cmu(ext:load-foreign filename)
- #+clisp
- (unless (find filename *loaded-libraries* :test #'equal)
- (ffi::foreign-library (namestring filename))
- (push filename *loaded-libraries*)))
+(defun load-shared-object (pathname)
+ (let ((namestring (ensure-namestring pathname)))
+ #+sbcl(sb-alien:load-shared-object namestring)
+ #+cmu(ext:load-foreign namestring)
+ #+clisp
+ (unless (find namestring *loaded-libraries* :test #'equal)
+ (ffi::foreign-library namestring)
+ (push namestring *loaded-libraries*))))