From 04a345affa2145d9883b8da4a3cb0cc3ed1a9304 Mon Sep 17 00:00:00 2001 From: Daniel Barlow <> Date: Fri, 13 Sep 2002 13:43:02 +0000 Subject: [PATCH] death to LPNs! revert change to system-definition-pathname that was causing lossage when used with physical pathnames --- asdf.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 78189070..40f55003 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; 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, ;;; at <URL:http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/cclan/asdf/> @@ -86,7 +86,7 @@ (in-package #:asdf) ;;; 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)) (dot (position #\. v))) (and v colon dot @@ -315,10 +315,7 @@ and NIL NAME and TYPE components" (make-pathname :name name :case :local :type "asd" :defaults defaults - :version - ;; KMR: Kludge to get CLC LPN's to work with CMUCL - #+common-lisp-controller :unspecific - #-common-lisp-controller :newest)))) + :version :newest)))) (if (and file (probe-file file)) (return-from system-definition-pathname file)))) nil)) -- GitLab