X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=2e80dcb7c398f3991efd13e6712de11d1da62203;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=2841bf5509df4310d1fd8274dbc23a7e4e25bba7;hpb=69cd16d7335a7f66985752b84f78d18e45f9783e;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 2841bf5..2e80dcb 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -618,7 +618,7 @@
 	     (unless (or (null type) (eq type :unspecific))
 	       (/noshow0 "tweaking FILE for more-or-less-:UNSPECIFIC case")
 	       (setf file (concatenate 'string file "." type)))
-	     (unless (member version '(nil :newest :wild))
+	     (unless (member version '(nil :newest :wild :unspecific))
 	       (/noshow0 "tweaking FILE for more-or-less-:WILD case")
 	       (setf file (concatenate 'string file "."
 				       (quick-integer-to-string version))))