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