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.
parent dde7e054
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment