Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
:TYPE "foo"). This is because PATHNAME-HOST was signaling an error for a host of NIL. We check for a host of NIL now, and bypass the call to PATHNAME-HOST. This allows the pathname printer to print #P(:HOST NIL :TYPE "foo"), as we want. (The error comes from host-pathname. NIL is a valid result of host-pathname, so we could change that, but I think that has other implications, one of which is (MAKE-PATHNAME :HOST NIL :NAME "foo" :TYPE "lisp") gets printed as #P"foo.lisp", which is wrong, since that pathname has a unix-host host.) o Fix merging of version in MAKE-PATHNAME. CLHS MERGE-PATHNAMES says if the pathname name is given, the version is not affected by the default pathname.
rtoy authored:TYPE "foo"). This is because PATHNAME-HOST was signaling an error for a host of NIL. We check for a host of NIL now, and bypass the call to PATHNAME-HOST. This allows the pathname printer to print #P(:HOST NIL :TYPE "foo"), as we want. (The error comes from host-pathname. NIL is a valid result of host-pathname, so we could change that, but I think that has other implications, one of which is (MAKE-PATHNAME :HOST NIL :NAME "foo" :TYPE "lisp") gets printed as #P"foo.lisp", which is wrong, since that pathname has a unix-host host.) o Fix merging of version in MAKE-PATHNAME. CLHS MERGE-PATHNAMES says if the pathname name is given, the version is not affected by the default pathname.