Skip to content
Snippets Groups Projects
Commit fc580800 authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

Kludge in :version to get CLC LPN to work with CMUCL. This may be a temporary...

Kludge in :version to get CLC LPN to work with CMUCL. This may be a temporary change if a bug in CMUCL's handling of LPN's is found when :version is :newest
parent 6dad9233
No related branches found
No related tags found
No related merge requests found
;;; 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/>
...@@ -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.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
...@@ -315,7 +315,10 @@ and NIL NAME and TYPE components" ...@@ -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))
......
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