Commit 81c2b724 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files
parents 465c86f8 9fe85c18
Loading
Loading
Loading
Loading
+3 −2
Original line number Diff line number Diff line
@@ -72,7 +72,7 @@
  (defvar *asdf-version* nil)
  (defvar *upgraded-p* nil)
  (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate
          (subseq "VERSION:2.134" (1+ (length "VERSION"))))
          (subseq "VERSION:2.136" (1+ (length "VERSION"))))
         (existing-asdf (fboundp 'find-system))
         (existing-version *asdf-version*)
         (already-there (equal asdf-version existing-version)))
@@ -173,6 +173,7 @@
          (unlink-package :asdf-utilities)
          (pkgdcl
           :asdf
           :nicknames (:asdf-utilities) ;; DEPRECATED! Do not use, for backward compatibility only.
           :use (:common-lisp)
           :redefined-functions
           (#:perform #:explain #:output-files #:operation-done-p
@@ -773,7 +774,7 @@ with given pathname and if it exists return its truename."
   (string (probe-file* (parse-namestring p)))
   (pathname (unless (wild-pathname-p p)
               #.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file p)
               #+clisp (aif (find-symbol (string :probe-pathname) :ext) `(,it p))
               #+clisp (aif (find-symbol (string :probe-pathname) :ext) `(ignore-errors (,it p)))
	       '(ignore-errors (truename p)))))))

(defun* truenamize (p)