From b618971f9c32b6bcf560f3fae88fab35d51f8d3b Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 27 Apr 2012 16:19:40 +0300 Subject: [PATCH] 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. --- src/compiler/main.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 1.7.10.4