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)