Changeset 13580 for release

Timestamp:

Apr 5, 2010, 5:30:10 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

r13576 through r13579 from trunk

Location:

release/1.5/source

Files:

• . (modified) (1 prop)
• level-1/l1-pathnames.lisp (modified) (1 diff)

release/1.5/source/level-1/l1-pathnames.lisp

@@ -388 +388 @@
   ;; case-insensitive version for hosts. 
   ;; In addition, host components do not support wildcards.
-  (or (eq path-host wild-host)
+  (or (null wild-host) (eq wild-host :wild)
+      (null path-host) (eq path-host :wild)
+      (eq path-host wild-host)
       (and (stringp path-host)
            (stringp wild-host)