anchor.diff:                                  #`(make-handler
                                      (class ,(compound-elt spec 0))
                                      ,(compound-elt spec 1)))
  -                              specs)))))
  +                              specs))
  +                     (dynamic handler-frame))))
         ,@body))
   
   (defun signal ((c condition))
  
positive.code:                                    (class ,(compound-elt spec 0))
                                     ,(compound-elt spec 1)
                                     ,(compound-elt spec 2)))
                                specs)))))
        ,@body))
  
  (defun invoke-restart ((r restart))
  
negative.code:    .handler-function
     .associated-condition))
  
  (defmethod show-object ((h handler))
    (show-object (.handler-class h)))
  
  (defun make-handler ((handler-class class) (handler-function function)
  