diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index 90c5440e8db4b2548fb24e991b2d1d754e686470..bc5aadb66bea7ca5acf69bb513e8c1af24feefbd 100644 --- a/ansi-tests/printer-aux.lsp +++ b/ansi-tests/printer-aux.lsp @@ -94,7 +94,11 @@ (copy-readtable nil) *readtable*))) (read-from-string str)) - (reader-error () :error))))) + (reader-error () :reader-error) + (end-of-file () :end-of-file) + (stream-error () :stream-error) + (file-error () :file-error) + )))) (unless (funcall test obj obj2) (list (list* obj str obj2 (%params)