Commit 56bd6c16 authored by Attila Lendvai's avatar Attila Lendvai

added simple-parse-error

parent 7ff1807a
......@@ -25,6 +25,14 @@ a default value for required keyword arguments."
:format-control message
:format-arguments args))
(define-condition simple-parse-error (simple-error parse-error)
())
(defun simple-parse-error (message &rest args)
(error 'simple-parse-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."
......
......@@ -124,6 +124,7 @@
#:ignore-some-conditions
#:simple-style-warning
#:simple-reader-error
#:simple-parse-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