Commit 3aa4b145 authored by Attila Lendvai's avatar Attila Lendvai

Fix some glitches with simple-reader-error and add comment why there's no :report for it.

parent 0e70c894
......@@ -12,11 +12,18 @@ a default value for required keyword arguments."
(defun simple-style-warning (message &rest args)
(warn 'simple-style-warning :format-control message :format-arguments args))
;; We don't specify a :report for simple-reader-error to let the underlying
;; implementation report the line and column position for us. Unfortunately
;; this way the message from simple-error is not displayed, but it's still
;; inspectable from the debugger.
(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))
(defun simple-reader-error (stream message &rest args)
(error 'simple-reader-error
:stream stream
:format-control message
:format-arguments args))
(defmacro ignore-some-conditions ((&rest conditions) &body body)
"Similar to CL:IGNORE-ERRORS but the (unevaluated) CONDITIONS
......
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