Commit 621cf0d5 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

patch for use in sbcl: delay evaluation of *central-registry* components so...

patch for use in sbcl: delay evaluation of *central-registry* components so that asdf in a dumped core is useful
parent 05ac1c1b
;;; This is asdf: Another System Definition Facility. $Revision: 1.66 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.67 $
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical ;;; <cclan-list@lists.sf.net>. But note first that the canonical
...@@ -88,7 +88,7 @@ ...@@ -88,7 +88,7 @@
(in-package #:asdf) (in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.66 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.67 $")
(colon (or (position #\: v) -1)) (colon (or (position #\: v) -1))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -1018,18 +1018,18 @@ output to *trace-output*. Returns the shell's exit code." ...@@ -1018,18 +1018,18 @@ output to *trace-output*. Returns the shell's exit code."
(provide name)))) (provide name))))
(pushnew (pushnew
(merge-pathnames "systems/" '(merge-pathnames "systems/"
(truename (sb-ext:posix-getenv "SBCL_HOME"))) (truename (sb-ext:posix-getenv "SBCL_HOME")))
*central-registry*) *central-registry*)
(pushnew (pushnew
(merge-pathnames "site-systems/" '(merge-pathnames "site-systems/"
(truename (sb-ext:posix-getenv "SBCL_HOME"))) (truename (sb-ext:posix-getenv "SBCL_HOME")))
*central-registry*) *central-registry*)
(pushnew (pushnew
(merge-pathnames ".sbcl/systems/" '(merge-pathnames ".sbcl/systems/"
(user-homedir-pathname)) (user-homedir-pathname))
*central-registry*) *central-registry*)
(pushnew 'module-provide-asdf sb-ext:*module-provider-functions*)) (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment