(probe-file filename)))
(if (pathnamep filename) ;; ensure filename is a string to check if already loaded
(setq filename (namestring (if (null (pathname-directory filename))
- filename (truename filename)))))
-
+ filename
+ ;; lispworks treats as UNC, so use truename
+ #+(and lispworks win32 mswindows) (truename filename)
+ #-(and lispworks win32 mswindows) filename))))
+
(if (and (not force-load)
(find filename *loaded-libraries* :test #'string-equal))
t ;; return T, but don't reload library