diff --git a/.gitignore b/.gitignore
index 85670fca7048ffcae7f8ed3b24d83898bc21e044..4a7c338733b8606c319aff7a3eea1e2ac2511141 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 a307d9e2631b3f93975812e210ec6e8deba5708d..384e31fcba231f956ea8047b4e2a101227b18dc8 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)