![[XANALYS]](../Graphics/XanSmall.gif)
Syntax:
make-condition type &rest slot-initializations => condition
Arguments and Values:
type---a type specifier (for a subtype of condition).
slot-initializations---an initialization argument list.
condition---a condition.
Description:
Constructs and returns a condition of type type using slot-initializations for the initial values of the slots. The newly created condition is returned.
Examples:
(defvar *oops-count* 0)
(setq a (make-condition 'simple-error
:format-control "This is your ~:R error."
:format-arguments (list (incf *oops-count*))))
=> #<SIMPLE-ERROR 32245104>
(format t "~&~A~%" a)
>> This is your first error.
=> NIL
(error a)
>> Error: This is your first error.
>> To continue, type :CONTINUE followed by an option number:
>> 1: Return to Lisp Toplevel.
>> Debug>
Side Effects: None.
Affected By:
The set of defined condition types.
Exceptional Situations: None.
See Also:
define-condition, Section 9.1 (Condition System Concepts)
Notes: None.