Loading asdf.lisp +6 −3 Original line number Original line Diff line number Diff line ;;; This is asdf: Another System Definition Facility. $Revision: 1.38 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.39 $ ;;; ;;; ;;; The canonical source for asdf is presently the cCLan CVS repository, ;;; The canonical source for asdf is presently the cCLan CVS repository, ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> Loading Loading @@ -86,7 +86,7 @@ (in-package #:asdf) (in-package #:asdf) ;;; parse the cvs revision into something that might be vaguely useful. ;;; parse the cvs revision into something that might be vaguely useful. (defvar *asdf-revision* (let* ((v "$Revision: 1.38 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.39 $") (colon (position #\: v)) (colon (position #\: v)) (dot (position #\. v))) (dot (position #\. v))) (and v colon dot (and v colon dot Loading Loading @@ -315,7 +315,10 @@ and NIL NAME and TYPE components" (make-pathname (make-pathname :name name :case :local :type "asd" :name name :case :local :type "asd" :defaults defaults :defaults defaults :version :newest)))) :version ;; KMR: Kludge to get CLC LPN's to work with CMUCL #+common-lisp-controller :unspecific #-common-lisp-controller :newest)))) (if (and file (probe-file file)) (if (and file (probe-file file)) (return-from system-definition-pathname file)))) (return-from system-definition-pathname file)))) nil)) nil)) Loading Loading
asdf.lisp +6 −3 Original line number Original line Diff line number Diff line ;;; This is asdf: Another System Definition Facility. $Revision: 1.38 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.39 $ ;;; ;;; ;;; The canonical source for asdf is presently the cCLan CVS repository, ;;; The canonical source for asdf is presently the cCLan CVS repository, ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> Loading Loading @@ -86,7 +86,7 @@ (in-package #:asdf) (in-package #:asdf) ;;; parse the cvs revision into something that might be vaguely useful. ;;; parse the cvs revision into something that might be vaguely useful. (defvar *asdf-revision* (let* ((v "$Revision: 1.38 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.39 $") (colon (position #\: v)) (colon (position #\: v)) (dot (position #\. v))) (dot (position #\. v))) (and v colon dot (and v colon dot Loading Loading @@ -315,7 +315,10 @@ and NIL NAME and TYPE components" (make-pathname (make-pathname :name name :case :local :type "asd" :name name :case :local :type "asd" :defaults defaults :defaults defaults :version :newest)))) :version ;; KMR: Kludge to get CLC LPN's to work with CMUCL #+common-lisp-controller :unspecific #-common-lisp-controller :newest)))) (if (and file (probe-file file)) (if (and file (probe-file file)) (return-from system-definition-pathname file)))) (return-from system-definition-pathname file)))) nil)) nil)) Loading