diff --git a/contrib/defsystem/defsystem.lisp b/contrib/defsystem/defsystem.lisp index 991b778e0b16296fb8f21a32292003927f51162e..74b9d9137dbf03f1c98a9d282200982631dbcd72 100644 --- a/contrib/defsystem/defsystem.lisp +++ b/contrib/defsystem/defsystem.lisp @@ -1049,7 +1049,7 @@ `(;; Current directory "./" #+:lucid (working-directory) - #+(or :allegro ACLPC) (current-directory) + #+(or :allegro ACLPC) (excl:current-directory) #+:cmu (ext:default-directory) #+:lispworks ,(multiple-value-bind (major minor) (system::lispworks-version)