asdf
"capIV" <[email protected]>
| Newsgroups | gmane.lisp.cclan.general |
|---|---|
| Message-ID | <[email protected]> |
Hello. I have a question about ASDF: why don't you define some standard places to hold asdf packages in any implementations except of SBCL? It may looks like in attached diff file. Thank you for attention. Excuse me please my broken English. -- Best regards, Dmitri Bogomolov.
asdf.diff
(application/octet-stream, 2 KB)
Index: asdf.lisp =================================================================== RCS file: /mnt/repository/lisp/asdf/asdf.lisp,v retrieving revision 1.1 retrieving revision 1.4 diff -u -r1.1 -r1.4 --- asdf.lisp 20 Aug 2005 22:58:04 -0000 1.1 +++ asdf.lisp 24 Aug 2005 02:09:52 -0000 1.4 @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.1 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.4 $ ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <[email protected]>. But note first that the canonical @@ -88,6 +88,7 @@ #:*compile-file-warnings-behaviour* #:*compile-file-failure-behaviour* #:*asdf-revision* + #:*asdf-canonical* #:operation-error #:compile-failed #:compile-warned #:compile-error #:error-component #:error-operation @@ -108,7 +109,7 @@ (in-package #:asdf) -(defvar *asdf-revision* (let* ((v "$Revision: 1.1 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.4 $") (colon (or (position #\: v) -1)) (dot (position #\. v))) (and v colon dot @@ -1065,8 +1066,11 @@ (hyperdocumentation (symbol-package name) name doc-type)) +;; Semaphores (pushnew :asdf *features*) +(defvar *asdf-canonical* nil) + #+sbcl (eval-when (:compile-toplevel :load-toplevel :execute) (when (sb-ext:posix-getenv "SBCL_BUILDING_CONTRIB") @@ -1099,4 +1103,25 @@ (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*)) +#+cmu +(progn + + (unix:unix-mkdir + (concatenate 'string + (ext:unix-namestring #p"modules:") + "asdf") #o755) + + (pushnew #p"modules:asdf/" *central-registry*) + + ;; CMUCL prints herald after any initializations + (pushnew (list (format nil + " ASDF ~{~A.~A~} (~@[non~]canonical)" + *asdf-revision* (not *asdf-canonical*))) + ext:*herald-items*) + (pushnew :asdf ext:*herald-items*)) + +#+clisp +(pushnew (merge-pathnames "site/" custom:*lib-directory*) + *central-registry*) + (provide 'asdf)