Commit cd362362 authored by pfdietz's avatar pfdietz
Browse files

Added more error handlers for randomized readability tester

parent 20c260b0
...@@ -94,7 +94,11 @@ ...@@ -94,7 +94,11 @@
(copy-readtable nil) (copy-readtable nil)
*readtable*))) *readtable*)))
(read-from-string str)) (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) (unless (funcall test obj obj2)
(list (list
(list* obj str obj2 (%params) (list* obj str obj2 (%params)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment