Skip to content
Snippets Groups Projects
  1. Sep 04, 2016
    • Raymond Toy's avatar
      37c549c6
    • Raymond Toy's avatar
      Fix #27: PATHNAME-MATCH-P loops for logical pathnames · c07cad4b
      Raymond Toy authored
      When support for search-lists was added to PATHNAME-MATCH-P, support
      for logical pathnames was broken because PATHNAME-MATCH-P eventually
      calls TRANSLATE-LOGICAL-PATHNAME which calls PATHNAME-MATCH-P with
      logical pathnames.  This caused infinite recursion.
      
      So add back the original PATHNAME-MATCH-P, but rename to
      %PATHNAME-MATCH-P and use that in TRANSLATE-LOGICAL-PATHNAME and
      friends.
      
      Add test for this case too.
      c07cad4b
  2. Dec 31, 2015
    • Raymond Toy's avatar
      Handle search lists in pathname-match-p. · 521f8392
      Raymond Toy authored
      Allow search lists in pathname-match-p.  For each arg, we enumerate
      the possible values of the search list and try to find a match between
      the path and the wild path.  If there's a match, return true.
      
      Tests added for some cases of pathname-match-p with search lists.
      
      Fix issue #16.
      521f8392
  3. Nov 04, 2011
  4. Sep 25, 2011
  5. Apr 20, 2010
  6. Apr 19, 2010
  7. Mar 19, 2010
  8. Jan 31, 2010
  9. Aug 13, 2009
    • rtoy's avatar
      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
  10. Mar 16, 2009
  11. Apr 04, 2008
    • rtoy's avatar
      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
  12. Sep 10, 2007
  13. Nov 08, 2005
    • rtoy's avatar
      Add an extension to allow printing pathnames using the syntax · 527266cd
      rtoy authored
      #P(<make-pathname args).  So most pathnames can be printed readably,
      even if they have weird components.  But we don't handle search-lists
      and patterns very well because we don't have readable syntax for
      those.
      
      code/sharpm.lisp:
      o Make the #P reader accept lists and apply make-pathname on them to
        create the pathname
      
      code/pathname.lisp:
      o If a pathname has no namestring, then try to print out the pathname
        object using #P(foo) syntax, if possible.  If not possible, just
        print out the pathname unreadably, as we used to.
      o Put some conditional newlines when printing out unprintable
        pathnames so it wraps a bit better.  (Needs work.)
      527266cd
  14. Oct 24, 2005
    • rtoy's avatar
      Fix ansi-test logical-pathname.error.2 which was failing because · 98ab1c48
      rtoy authored
      LOGICAL-PATHNAME-NAMESTRING-P wasn't defined anywhere.
      
      o Add LOGICAL-PATHNAME-NAMESTRING-P and adjust LOGICAL-PATHNAME to use
        it.
      
      o Print out identity when printing logical-hosts.  (This unrelated
        change makes it easier to see that the user's BOGUS logical host
        isn't the same as the BOGUS logical host used in
        *LOGICAL-PATHNAME-DEFAULTS*.
      98ab1c48
  15. Sep 30, 2005
  16. Sep 27, 2005
  17. Sep 25, 2005
  18. Sep 24, 2005
  19. Sep 21, 2005
    • rtoy's avatar
      code/filesys.lisp: · ad045f27
      rtoy authored
      o Make the #p reader treat ".." as a directory, not a file.
      o Make the #p reader treat "<lots of dots>" be a file with that name
        instead of name with one fewer dot and type "".  So #p"..." has
        :name "...", :type nil instead of :name "..", :type "".
      
      code/pathname.lisp:
      o Issue a warning if someone wants :name to be ".." or ".".  We allow
        it, but doing so will break print/read consistency.  (Should we make
        such pathnames not readably printable?)
      ad045f27
  20. Sep 19, 2005
    • rtoy's avatar
      o Print out the host name when we're printing out LOGICAL-HOST · 3c14ace4
      rtoy authored
        objects.  (Makes it easier to see what the logical host is when
        describe'ing a pathname.)
      
      o Fix some issues with UNPARSE-ENOUGH-NAMESTRING
        o It should return a string, not the pathname object.  (Noted by
          Peter Graves on cmucl-imp, 2005-09-18.)
        o The directory paths must have something more in common than just
          :ABSOLUTE before we produce a relative directory path.  Fixes the
          issue of always returning relative paths even if the directories
          don't match at all.
      
      o In ENOUGH-NAMESTRING, if the host for the pathname isn't the same as
        the host for the defaults, just return the pathname.  I (rtoy) think
        this is right.  It doesn't make sense to do anything if the hosts
        are different.
      3c14ace4
  21. Sep 16, 2005
  22. Sep 13, 2005
    • rtoy's avatar
      Pathnames with NIL hosts now use the host from · a3cff44f
      rtoy authored
      *default-pathname-defaults* or *unix-host* to get the namestring.
      Previously, an error was generated.  This change breaks print/read
      consistency for pathnames with NIL hosts.
      a3cff44f
  23. Sep 12, 2005
    • rtoy's avatar
      Fix some issues with printing (make-pathname :directory '(:relative)), · c33b7b7a
      rtoy authored
      which used to print as #p"", and with reading #p".", #p"./".
      
      code/filesys.lisp:
      o When parsing a unix namestring, delete any "." elements of the
        directory list.
      o If we've parsed a namestring such that the file name is ".", replace
        that with :name NIL and adjust the :directory component
        appropriately, because on Unix, "." can't be the name of a file.
      o Make :directory '(:relative) be printed as "./"
      
      code/pathname.lisp:
      o If the :directory argument to MAKE-PATHNAME contains strings with
        #\/, print a warning that this is not a valid element.
      o Remove all "."'s from a :relative directory component.
      c33b7b7a
  24. May 11, 2005
    • rtoy's avatar
      Supply a pathname for simple-file-error in make-pathname when we have · 73409eb1
      rtoy authored
      :absolute or :wild-inferiors followed by :up or :back.
      
      Not exactly sure what pathname to use here since we don't accept these
      pathnames.  So we use the given pathname with the :up/:back deleted.
      And the format strings gives more info about what happened.
      
      Fixes ansi-test MAKE-PATHNAME-ERROR-RELATIVE-WILD-INFERIORS-UP and
      friends.
      73409eb1
  25. Dec 23, 2004
  26. Oct 22, 2004
    • rtoy's avatar
      o Make NAMESTRING-PARSE-ERROR also be a TYPE-ERROR. This is a work · f22ac9ee
      rtoy authored
        around for the case where an invalid character is passed to
        LOGICAL-PATHNAME, which is supposed to signal a type-error.
      o Make sure the result from LOGICAL-PATHNAME is really a
        logical-pathname.  (May not be the best solution.)
      
      This fixes ansi-test logical-pathname.error.3 and
      logical-pathname.error.10.
      f22ac9ee
  27. Oct 09, 2004
  28. Sep 09, 2004
  29. Sep 07, 2004
  30. Sep 01, 2004
  31. Jun 02, 2004
  32. May 18, 2004
  33. Apr 01, 2004
  34. Jan 18, 2004
  35. Jun 10, 2003
    • toy's avatar
      Some changes from Paul Foley: · 842ce4c2
      toy authored
      o Fix a number of spelling errors.
      o Add EXT:PURGE-FILES (hmm, should that be renamed to
        purge-backup-files?) to delete old versions of files.
      o Opening a file with :if-exists :append shouldn't set the Unix append
        flag, else you can't seek back to a point before you started
        appending. (Actually from Rudi Schlatte.)
      o Fix a bug in logical pathname parsing.
      o Fix FASL-file versioning so we don't create versioned fasl files.
      842ce4c2
  36. Jun 07, 2003
    • toy's avatar
      More simple-streams updates from Paul Foley: · d03aa23c
      toy authored
      o An update to fix Gerd's complaint about :simple-streams being on
        *features*
      o Corrects a few bugs
      o Renames all the strategy functions
      o Gets rid of DEVICE-EXTEND (Duane Rettig tells me it's going away in
        the next ACL release)
      o A start on getting stream& composition working.
      d03aa23c
  37. Mar 21, 2003
  38. Nov 14, 2002
  39. Oct 16, 2002
    • toy's avatar
      Fix for the Entomotomy bug · eea4908a
      toy authored
      translate-logical-pathname-fails-on-physical-pathname-namestrings
      
      When translate-logical-pathname is given a physical pathname, it's
      supposed to return the given pathname instead of signalling an error.
      eea4908a
Loading