Commit 90b15bf6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Don't use truename without ignore-errors (bug reported by Jean-Claude Beaudoin)

gitignore a few more things
parent 06895529
...@@ -5,8 +5,11 @@ ...@@ -5,8 +5,11 @@
init-lisp.lisp init-lisp.lisp
website/changelog.xml website/changelog.xml
push push
# Temporary files from documentation build # Temporary files from documentation build
doc/asdf.aux doc/asdf.aux
doc/asdf.cp doc/asdf.cp
doc/asdf.cps doc/asdf.cps
...@@ -560,7 +560,7 @@ pathnames." ...@@ -560,7 +560,7 @@ pathnames."
:append (list k v))) :append (list k v)))
(defun resolve-symlinks (path) (defun resolve-symlinks (path)
#-allegro (truename path) #-allegro (truenamize path)
#+allegro (excl:pathname-resolve-symbolic-links path)) #+allegro (excl:pathname-resolve-symbolic-links path))
(defun getenv (x) (defun getenv (x)
...@@ -829,7 +829,7 @@ actually-existing directory." ...@@ -829,7 +829,7 @@ actually-existing directory."
(defun component-parent-pathname (component) (defun component-parent-pathname (component)
(aif (component-parent component) (aif (component-parent component)
(component-pathname it) (component-pathname it)
(truename *default-pathname-defaults*))) (truenamize *default-pathname-defaults*)))
(defmethod component-pathname ((component component)) (defmethod component-pathname ((component component))
(merge-pathnames* (component-relative-pathname component) (merge-pathnames* (component-relative-pathname component)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment