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