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

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

gitignore a few more things
parent 06895529
Loading
Loading
Loading
Loading
+3 −0
Original line number Diff line number Diff line
@@ -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
+2 −2
Original line number Diff line number Diff line
@@ -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)