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 @@ common-lisp.net
init-lisp.lisp
website/changelog.xml
push
resbcl
reccl
# Temporary files from documentation build
doc/asdf/
doc/asdf.aux
doc/asdf.cp
doc/asdf.cps
......
......@@ -560,7 +560,7 @@ pathnames."
:append (list k v)))
(defun resolve-symlinks (path)
#-allegro (truename path)
#-allegro (truenamize path)
#+allegro (excl:pathname-resolve-symbolic-links path))
(defun getenv (x)
......@@ -829,7 +829,7 @@ actually-existing directory."
(defun component-parent-pathname (component)
(aif (component-parent component)
(component-pathname it)
(truename *default-pathname-defaults*)))
(truenamize *default-pathname-defaults*)))
(defmethod component-pathname ((component 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