X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=36810cbc55fa47bee35155169b7a5e93975cb144;hb=bb756e3d4b19c30d4a9cd4250b606c5969613ad9;hp=aa8b5013402c5020be7141b59b55b7ee0a29ff80;hpb=988afd9d54ba6c8a915544822658824ab6ae0d6c;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index aa8b501..36810cb 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -318,7 +318,7 @@
 	   (error ":BACK cannot be represented in namestrings."))
 	  ((member :wild-inferiors)
 	   (pieces "**/"))
-	  ((or simple-string pattern)
+	  ((or simple-string pattern (member :wild))
 	   (pieces (unparse-unix-piece dir))
 	   (pieces "/"))
 	  (t