Commit 0e70c894 authored by Attila Lendvai's avatar Attila Lendvai

Added simple-reader-error

parent 4a7e42e0
......@@ -12,6 +12,12 @@ a default value for required keyword arguments."
(defun simple-style-warning (message &rest args)
(warn 'simple-style-warning :format-control message :format-arguments args))
(define-condition simple-reader-error (reader-error simple-error)
())
(defun simple-reader-error (message &rest args)
(warn 'simple-reader-error :format-control message :format-arguments args))
(defmacro ignore-some-conditions ((&rest conditions) &body body)
"Similar to CL:IGNORE-ERRORS but the (unevaluated) CONDITIONS
list determines which specific conditions are to be ignored."
......
......@@ -122,6 +122,7 @@
#:required-argument
#:ignore-some-conditions
#:simple-style-warning
#:simple-reader-error
#:unwind-protect-case
;; Features
#:featurep
......
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