- #+(or allegro mcl) (declare (ignore module supporting-libraries))
- #+(or cmu scl sbcl) (declare (ignore module))
+ #+(or allegro mcl 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))
#+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
(setq filename (namestring (if (null (pathname-directory filename))
filename
;; lispworks treats as UNC, so use truename