Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
user avatar
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.
e48f9c3d
History
Name Last commit Last update