From cd362362eacb6f8ca259ece5381596dc672f248c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 12 Jun 2004 18:06:43 +0000 Subject: [PATCH] Added more error handlers for randomized readability tester --- ansi-tests/printer-aux.lsp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp index 90c5440e..bc5aadb6 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) -- GitLab