| 1 | ;;; -*- Mode: lisp -*- |
| 2 | |
| 3 | (defpackage #:clg-tools |
| 4 | (:use #:common-lisp #:asdf)) |
| 5 | |
| 6 | |
| 7 | (in-package #:clg-tools) |
| 8 | |
| 9 | #+clisp |
| 10 | (unless custom:*parse-namestring-ansi* |
| 11 | (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")) |
| 12 | |
| 13 | (defsystem clg-tools |
| 14 | :depends-on (#+sbcl sb-posix) |
| 15 | :components ((:file "utils") |
| 16 | (:file "config" :depends-on ("utils")) |
| 17 | (:file "asdf-extensions" :depends-on ("utils")) |
| 18 | (:file "autoexport" :depends-on ("asdf-extensions")))) |
| 19 | |
| 20 | |
| 21 | |
| 22 | ;; For backward compatibility |
| 23 | (let ((dir (asdf:component-pathname (asdf:find-system :clg-tools)))) |
| 24 | (setf (logical-pathname-translations "clg") |
| 25 | `(("**;*.*.*" ,(make-pathname :directory (append (butlast (pathname-directory dir)) (list :wild-inferiors)) #+win32 :defaults #+win32 dir))))) |