Skip to content
Snippets Groups Projects
Commit 04a345af authored by Daniel Barlow's avatar Daniel Barlow
Browse files

death to LPNs! revert change to system-definition-pathname that was causing...

death to LPNs!  revert change to system-definition-pathname that was causing lossage when used with physical pathnames
parent 6fa74f96
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.39 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.40 $
;;; ;;;
;;; 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/>
...@@ -86,7 +86,7 @@ ...@@ -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.39 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.40 $")
(colon (position #\: v)) (colon (position #\: v))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -315,10 +315,7 @@ and NIL NAME and TYPE components" ...@@ -315,10 +315,7 @@ 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 :version :newest))))
;; 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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment