Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
(merge-pathnames (make-pathname :directory '(:relative :back :back :back :back :back :back)) (pathname "./tmp/junk/core")) First, MERGE-DIRECTORIES would back up too far and remove :ABSOLUTE. Don't do that. Second, after fixing MERGE-DIRECTORIES, the resulting pathname directory is '(:ABSOLUTE :BACK :BACK ...) which is illegal. Call MAKE-PATHNAME instead of %MAKE-PATHNAME-OBJECT so we check for illegal pathnames.
rtoy authored(merge-pathnames (make-pathname :directory '(:relative :back :back :back :back :back :back)) (pathname "./tmp/junk/core")) First, MERGE-DIRECTORIES would back up too far and remove :ABSOLUTE. Don't do that. Second, after fixing MERGE-DIRECTORIES, the resulting pathname directory is '(:ABSOLUTE :BACK :BACK ...) which is illegal. Call MAKE-PATHNAME instead of %MAKE-PATHNAME-OBJECT so we check for illegal pathnames.