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
Loading
Loading
Loading
Loading
+8 −8
Original line number Original line Diff line number Diff line
;;; 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 @@


(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,17 +1018,17 @@ 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*)