From: Nikodemus Siivola Date: Fri, 27 Apr 2012 13:19:40 +0000 (+0300) Subject: fix compiler reader error reporting X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b618971f9c32b6bcf560f3fae88fab35d51f8d3b;p=sbcl.git fix compiler reader error reporting Stream slot was left unbound along one leg, which is bad because READER-ERROR is a subtype of STREAM-ERROR. --- diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index 657c137..c7f19ce 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -904,7 +904,8 @@ Examples: (compiler-error 'input-error-in-compile-file ;; We don't need to supply :POSITION here because ;; READER-ERRORs already know their position in the file. - :condition condition)) + :condition condition + :stream stream)) ;; ANSI, in its wisdom, says that READ should return END-OF-FILE ;; (and that this is not a READER-ERROR) when it encounters end of ;; file in the middle of something it's trying to read.