Commit 326b8220 authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

add two paths from sbcl's asdf version

parent 8dad09db
Loading
Loading
Loading
Loading
+12 −2
Original line number Diff line number Diff line
;;; This is asdf: Another System Definition Facility.  $Revision: 1.59 $
;;; This is asdf: Another System Definition Facility.  $Revision: 1.60 $
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -87,7 +87,7 @@

(in-package #:asdf)

(defvar *asdf-revision* (let* ((v "$Revision: 1.59 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.60 $")
			       (colon (position #\: v))
			       (dot (position #\. v)))
			  (and v colon dot 
@@ -958,4 +958,14 @@ output to *trace-output*. Returns the shell's exit code."
		    (truename (sb-ext:posix-getenv "SBCL_HOME")))
   *central-registry*)
  
  (pushnew
   (merge-pathnames "site-systems/"
 		    (truename (sb-ext:posix-getenv "SBCL_HOME")))
   *central-registry*)
  
  (pushnew
   (merge-pathnames ".sbcl/systems"
 		    (user-homedir-pathname))
   *central-registry*)
  
  (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))