Changeset 13301

Timestamp:

05/27/11 13:06:17 (10 years ago)

Author:

Mark Evenson

Message:

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.

File:

• trunk/abcl/src/org/armedbear/lisp/open.lisp (modified) (1 diff)

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

@@ -119 +119 @@
                                      (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