Ignore:
Timestamp:
Sep 25, 2008, 12:00:12 PM (11 years ago)
Author:
gb
Message:

In STRING-TO-PATHNAME, only set a physical pathname's version slot
if the name is non-nil. (Among other things, the version of a pathname
created by (parse-namestring "") has to be NIL.) This (and the recent
change to EQUAL) seem to fix the test suite failures that were introduced
a few weeks ago.

In %COMPONENT-MATCH-P, treat a wild component of :NEWEST (which should
only be present if versions are being compared) like wildcard
designators (e.g., not as a concrete thing to be compared against a
string or list.) Among other things, this seems to fix some
cases involving CCL::BACK-TRANSLATE-PATHNAME and the ccl logical
host.

(The trunk passes all tests in the test suite again.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-files.lisp

    r10704 r10872  
    546546        (setq name (%std-name-component (%substr sstr start-pos end-pos))))
    547547      (if (eq host :unspecific)
    548         (%cons-pathname directory name type :newest device)
     548        (%cons-pathname directory name type (if name :newest) device)
    549549        (%cons-logical-pathname directory name type host version)))))
    550550
Note: See TracChangeset for help on using the changeset viewer.