anchor.diff:        (defdynamic ,dynamic-frame)
         (defmacro ,condition-bind (condition-specs &rest body)
           "condition-spec ::= (class-name function-form associated-condition)"
  -        #`(dynamic-bind-1st-class (dynamic-id ,dynamic-frame)
  -                                  (list ,@(compound-map
  -                                           (lambda (spec)
  -                                             #`(make-handler
  -                                                (class ,(compound-elt spec 0))
  -                                                ,(compound-elt spec 1)
  -                                                ,(compound-elt spec 2)))
  -                                           condition-spec))
  +        #`(dynamic-bind-1st-class (dynamic-id ,,dynamic-frame)
  +                                  (make-handler-frame
  +                                   (list ,@(compound-map
  +                                            (lambda (spec)
  +                                              #`(make-handler
  +                                                 (class ,(compound-elt spec 0))
  +                                                 ,(compound-elt spec 1)
  +                                                 ,(compound-elt spec 2)))
  +                                            condition-specs)))
                                     (lambda () ,@body)))
         (defun ,signal ((c ,condition))
           (signal-condition c (dynamic-id ,dynamic-frame) (dynamic ,dynamic-frame)))))
  
positive.code: 
  ;;;; Debugger
  
  (defun invoke-debugger (c)
    #{ alert("hey") #})
  
  ;;;; Streams
  
  
negative.code:    .associated-condition))
  
  (defun make-handler ((handler-class class) (handler-function function)
                       &optional (associated-condition nil))
    (let ((h (make handler)))
      (setf (.handler-class h) handler-class)
      (setf (.handler-function h) handler-function)
  