Loading .gitignore +3 −0 Original line number Diff line number Diff line Loading @@ -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 Loading asdf.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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) Loading Loading @@ -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) Loading Loading
.gitignore +3 −0 Original line number Diff line number Diff line Loading @@ -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 Loading
asdf.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -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) Loading Loading @@ -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) Loading