ake-object</code>, a safeguard may take the form simply of a  method of that generic function:</p>

<div class="example">
<pre class="in-code">
(define-condition json-security-violation (error)
  ((bindings :reader json-security-violation-bindings :initarg :bindings)
   (class :reader json-security-violation-class :initarg :class))
  (:report
   (lambda (sv stream)
     (with-slots (bindings class) sv
       (format stream "Incoming JSON Object ~S in the class ~S ~
                       violates security r