From 90b15bf63370b9fcdbf2bbaeb23c5969555d4109 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Mon, 5 Apr 2010 13:03:45 -0400 Subject: [PATCH] Don't use truename without ignore-errors (bug reported by Jean-Claude Beaudoin) gitignore a few more things --- .gitignore | 3 +++ asdf.lisp | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/.gitignore b/.gitignore index 85670fca..4a7c3387 100644 --- a/.gitignore +++ b/.gitignore @@ -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 diff --git a/asdf.lisp b/asdf.lisp index a307d9e2..384e31fc 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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) -- GitLab