Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/open.lisp

    r11434 r13301  
    119119                                     (translate-logical-pathname pathname)
    120120                                     pathname))))
     121    (when (wild-pathname-p pathname)
     122      (error 'file-error
     123       :pathname pathname
     124       :format-control "Bad place for a wild pathname."))
    121125    (when (memq direction '(:output :io))
    122126      (unless if-exists-given
Note: See TracChangeset for help on using the changeset viewer.