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