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
Loading
Loading
Loading
Loading
+3 −6
Original line number Original line Diff line number Diff line
;;; 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 @@
(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"
			(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))