An error occurred while fetching folder content.
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.
Name | Last commit | Last update |
---|