Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    52d2dc6c
    o Pathname printer was producing an error for (MAKE-PATHNAME :HOST NIL · 52d2dc6c
    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.
    52d2dc6c
    History
    o Pathname printer was producing an error for (MAKE-PATHNAME :HOST NIL
    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.