(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))