Commit 5c0bf9d0 authored by Attila Lendvai's avatar Attila Lendvai

Merge conflicts around the conditions

parent 95f39525
......@@ -5,3 +5,17 @@
use as an initialization form for structure and class-slots, and
a default value for required keyword arguments."
(error "Required argument ~@[~S ~]missing." name))
(define-condition simple-style-warning (style-warning simple-warning)
())
(defun simple-style-warning (message &rest args)
(warn 'simple-style-warning :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."
`(handler-case
(progn ,@body)
,@(loop for condition in conditions collect
`(,condition (c) (values nil c)))))
......@@ -115,6 +115,15 @@
#:of-type
#:type=
#:coercef
;; Errors
;; Conditions
#:required-argument
v v v v v v v
#:ignore-some-conditions
;; Features
#:featurep
*************
#:simple-style-warning
;; 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