X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/6d0c1491fd35bbf2d9f405d0708d3cbc51fb1d16..fb1753d921e4897622a4ef530e737748a3bb2901:/tools/clg-tools.asd

diff --git a/tools/clg-tools.asd b/tools/clg-tools.asd
index d678333..d7787e0 100644
--- a/tools/clg-tools.asd
+++ b/tools/clg-tools.asd
@@ -7,12 +7,19 @@
 (in-package #:clg-tools)
 
 #+clisp
-(unless custom:*ansi*
-  (error "CLISP must be started with the -ansi option"))
+(unless custom:*parse-namestring-ansi*
+  (error "Standard behaviour of PARSE-NAMESTRING must be enabled by setting CUSTOM:*PARSE-NAMESTRING-ANSI* to non-NIL or running clisp with the -ansi option"))
 
 (defsystem clg-tools
-    :components ((:file "autoexport")
-		 (:file "utils")
-		 (:file "config" :depends-on ("utils"))
-		 (:file "asdf-extensions" :depends-on ("utils"))))
+  :depends-on (#+sbcl sb-posix)
+  :components ((:file "utils")
+	       (:file "config" :depends-on ("utils"))
+	       (:file "asdf-extensions" :depends-on ("utils"))
+	       (:file "autoexport" :depends-on ("asdf-extensions"))))
 
+
+
+;; For backward compatibility
+(let ((dir (asdf:component-pathname (asdf:find-system :clg-tools))))
+  (setf (logical-pathname-translations "clg")
+   `(("**;*.*.*" ,(make-pathname :directory (append (butlast (pathname-directory dir)) (list :wild-inferiors)) #+win32 :defaults #+win32 dir)))))