Skip to content
Snippets Groups Projects
Commit 81c2b724 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files
parents 465c86f8 9fe85c18
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
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