/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83 by rtoy, Mon Sep 27 19:06:35 2004 UTC revision 1.84 by rtoy, Mon Oct 18 16:57:33 2004 UTC
# Line 181  Line 181 
181           ;; namestring, where * can be #\* or some digits.  This           ;; namestring, where * can be #\* or some digits.  This
182           ;; denotes a version.           ;; denotes a version.
183           (cond ((or (< (- end start) 4)           (cond ((or (< (- end start) 4)
184                      (char/= (schar namestr (1- end)) #\~))                      (and (char/= (schar namestr (1- end)) #\~)
185                             (char/= (schar namestr (1- end)) #\*)))
186                  ;; No explicit version given, so return NIL to                  ;; No explicit version given, so return NIL to
187                  ;; indicate we don't want file versions, unless                  ;; indicate we don't want file versions, unless
188                  ;; requested in other ways.                  ;; requested in other ways.
189                  (values nil end))                  (values nil end))
190                 ((and (char= (schar namestr (- end 2)) #\*)                 ((and (not *ignore-wildcards*)
191                         (char= (schar namestr (- end 2)) #\*)
192                       (char= (schar namestr (- end 3)) #\~)                       (char= (schar namestr (- end 3)) #\~)
193                       (char= (schar namestr (- end 4)) #\.))                       (char= (schar namestr (- end 4)) #\.))
194                  ;; Found "~*~", so it's a wild version                  ;; Found "~*~", so it's a wild version
# Line 214  Line 216 
216               (explicit-version namestr start end)               (explicit-version namestr start end)
217             (cond ((not (eq version :newest))             (cond ((not (eq version :newest))
218                    (values version where))                    (values version where))
219                   ((and (>= (- end 2) start)                   ((and (not *ignore-wildcards*)
220                           (>= (- end 2) start)
221                         (char= (schar namestr (- end 1)) #\*)                         (char= (schar namestr (- end 1)) #\*)
222                         (char= (schar namestr (- end 2)) #\.)                         (char= (schar namestr (- end 2)) #\.)
223                         (find #\. namestr                         (find #\. namestr
# Line 673  Line 676 
676            ((or (pattern-p name)            ((or (pattern-p name)
677                 (pattern-p type)                 (pattern-p type)
678                 (eq name :wild)                 (eq name :wild)
679                 (eq type :wild))                 (eq type :wild)
680                   (eq version :wild))
681             (let ((dir (unix:open-dir directory)))             (let ((dir (unix:open-dir directory)))
682               (when dir               (when dir
683                 (unwind-protect                 (unwind-protect

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

  ViewVC Help
Powered by ViewVC 1.1.5