Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    e48f9c3d
    Fix a couple of issues with · e48f9c3d
    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
    Fix a couple of issues with
    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.