Loading asdf.lisp +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 Loading Loading @@ -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 Loading Loading @@ -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*) Loading Loading
asdf.lisp +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 Loading Loading @@ -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 Loading Loading @@ -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*) Loading