X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;fp=src%2Fcode%2Ffilesys.lisp;h=c8a39990262612af148d7aff1aa263fd0063edd6;hb=1fe4bc598a23bdd751ccb3aa8e2473e783c634f7;hp=d1933d614480e33bfe3f69754872cf384ffef770;hpb=30a7667ec095ac9b78a826c445b9af78c9c183ba;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index d1933d6..c8a3999 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -991,7 +991,7 @@ Experimental: interface subject to change."
            ((or (null one) (eq one :unspecific)) two)
            ((or (null two) (eq two :unspecific)) one)
            ((string= one two) one)
-           (t nil)))
+           (t (return-from pathname-intersections nil))))
        (intersect-directory (one two)
          (aver (typep one '(or null (member :wild :unspecific) list)))
          (aver (typep two '(or null (member :wild :unspecific) list)))