Changeset 436

Timestamp:

Jan 30, 2004, 3:49:46 PM (21 years ago)

Author:

Gary Byers

Message:

WILD-PATHNAME-P now earlier.

File:

• trunk/ccl/lib/pathnames.lisp (modified) (1 diff)

trunk/ccl/lib/pathnames.lisp

@@ -252 +252 @@
 ;Wildcards
 
-(defun wild-pathname-p (pathname &optional field-key)
-  (flet ((wild-p (name) (or (eq name :wild)
-                            (eq name :wild-inferiors)
-                            (and (stringp name) (%path-mem "*" name)))))
-    (case field-key
-      ((nil)
-       (or (some #'wild-p (pathname-directory pathname))
-           (wild-p (pathname-name pathname))
-           (wild-p (pathname-type pathname))
-           (wild-p (pathname-version pathname))))
-      (:host nil)
-      (:device nil)
-      (:directory (some #'wild-p (pathname-directory pathname)))
-      (:name (wild-p (pathname-name pathname)))
-      (:type (wild-p (pathname-type pathname)))
-      (:version (wild-p (pathname-version pathname)))
-      (t (wild-pathname-p pathname
-                          (require-type field-key 
-                                        '(member nil :host :device 
-                                          :directory :name :type :version)))))))
+