| | 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 | (setf |
| | 24 | (logical-pathname-translations "clg") |
| | 25 | `(("**;*.*.*" ,(make-pathname :directory (append (butlast (pathname-directory (asdf:component-pathname (asdf:find-system :clg-tools)))) (list :wild-inferiors)))))) |
~mdw / clg / blame_incremental