Skip to content
Snippets Groups Projects
Commit 9fe85c18 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.136: work around a bug in clisp 2.49

parent bf390f01
No related branches found
No related tags found
No related merge requests found
...@@ -72,7 +72,7 @@ ...@@ -72,7 +72,7 @@
(defvar *asdf-version* nil) (defvar *asdf-version* nil)
(defvar *upgraded-p* nil) (defvar *upgraded-p* nil)
(let* ((asdf-version ;; the 1+ helps the version bumping script discriminate (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate
(subseq "VERSION:2.135" (1+ (length "VERSION")))) (subseq "VERSION:2.136" (1+ (length "VERSION"))))
(existing-asdf (fboundp 'find-system)) (existing-asdf (fboundp 'find-system))
(existing-version *asdf-version*) (existing-version *asdf-version*)
(already-there (equal asdf-version existing-version))) (already-there (equal asdf-version existing-version)))
...@@ -774,7 +774,7 @@ with given pathname and if it exists return its truename." ...@@ -774,7 +774,7 @@ with given pathname and if it exists return its truename."
(string (probe-file* (parse-namestring p))) (string (probe-file* (parse-namestring p)))
(pathname (unless (wild-pathname-p p) (pathname (unless (wild-pathname-p p)
#.(or #+(or allegro clozure cmu ecl sbcl scl) '(probe-file 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))))))) '(ignore-errors (truename p)))))))
(defun* truenamize (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