- (resignal-race-condition
- (with-open-file (stream pathspec
- :external-format
- external-format)
- (%load stream :verbose verbose :print print))))
+ ;; Because we're just opening for input, we don't need
+ ;; WITH-OPEN-FILE's abort handling semantics, and we want to say
+ ;; it's an error for PATHSPEC to have existed before but not now, so
+ ;; WITH-OPEN-STREAM it is.
+ (with-open-stream (stream (resignal-race-condition
+ (open pathspec
+ :external-format external-format)))
+ (%load stream :verbose verbose :print print)))