[armedbear-cvs] r13301 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri May 27 06:06:17 2011
New Revision: 13301

Log:
Explicitly error from OPEN with a wild pathname.

This behavior was implicit in the various PROBE-FILE calls used by
OPEN to check if a pathname exists, but these wouldn't necessarily be
called in all permutations of the arguments.

Modified:
   trunk/abcl/src/org/armedbear/lisp/open.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/open.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/open.lisp	Fri May 27 06:06:08 2011	(r13300)
+++ trunk/abcl/src/org/armedbear/lisp/open.lisp	Fri May 27 06:06:17 2011	(r13301)
@@ -118,6 +118,10 @@
          (namestring (namestring (if (typep pathname 'logical-pathname)
                                      (translate-logical-pathname pathname)
                                      pathname))))
+    (when (wild-pathname-p pathname)
+      (error 'file-error
+	     :pathname pathname
+	     :format-control "Bad place for a wild pathname."))
     (when (memq direction '(:output :io))
       (unless if-exists-given
         (setf if-exists