From 681c858b3c6d8fda18f479c4067d06c8f2a0f08d Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 6 Apr 1999 12:52:31 +0000
Subject: [PATCH] Fix for defsystem's OPERATE-ON-SYSTEM which didn't work with
 Allegro CL 5.0 on Linux/x86 as there is no CURRENT-DIRECTORY function in
 "MAKE" package, including packages it uses. From Hannu Koivisto.

---
 contrib/defsystem/defsystem.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/defsystem/defsystem.lisp b/contrib/defsystem/defsystem.lisp
index 991b778e0..74b9d9137 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)
-- 
GitLab