(defun load-foreign-library (filename &key module supporting-libraries
force-load)
- #+(or allegro mcl) (declare (ignore module supporting-libraries))
- #+(or cmu scl sbcl) (declare (ignore module))
+ #+(or allegro openmcl digitool sbcl) (declare (ignore module supporting-libraries))
+ #+(or cmu scl) (declare (ignore module))
#+lispworks (declare (ignore supporting-libraries))
(when (and filename (or (null (pathname-directory filename))
(setq filename (namestring (if (null (pathname-directory filename))
filename
;; lispworks treats as UNC, so use truename
- #+(and lispworks win32 mswindows) (truename filename)
- #-(and lispworks win32 mswindows) filename))))
+ #+(and lispworks win32) (truename filename)
+ #-(and lispworks win32) filename))))
(if (and (not force-load)
(find filename *loaded-libraries* :test #'string-equal))
:connection-style :immediate)
#+allegro (load filename)
#+openmcl (ccl:open-shared-library filename)
- #+(and mcl (not openmcl)) (ccl:add-to-shared-library-search-path filename t)
+ #+digitool (ccl:add-to-shared-library-search-path filename t)
(push filename *loaded-libraries*)
t))))