Ignore:
Timestamp:
Apr 8, 2008, 3:12:55 AM (13 years ago)
Author:
gz
Message:

Make make-file-stream rejected wildcarded pathnames.

Various tweaks to make meta-. work when using pathnames relative to the file system's "current directory".

File:
1 edited

Legend:

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

    r7469 r9048  
    383383  ;; Note that %component-match-p is case sensitive.  Need a
    384384  ;; case-insensitive version for hosts.
    385   (or (string-equal path-host wild-host)
    386       (%component-match-p path-host wild-host)))
     385  ;; In addition, host components do not support wildcards.
     386  (or (eq path-host wild-host)
     387      (and (stringp path-host)
     388           (stringp wild-host)
     389           (string-equal path-host wild-host))))
    387390
    388391(defun pathname-match-p (pathname wildname)
Note: See TracChangeset for help on using the changeset viewer.