Commit cd362362 authored by pfdietz's avatar pfdietz

Added more error handlers for randomized readability tester

parent 20c260b0
......@@ -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)
......
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