anchor.diff:  
   ;;;; Debugger
   
  -(defun invoke-debugger (c)
  -  #{ alert("hey") #})
  +(defun invoke-debugger ((c condition))
  +  (print (string-concat "Debugger:" (show c))))
   
   ;;;; Streams
   
  
positive.code:    .associated-condition))
  
  (defun make-handler ((handler-class class) (handler-function function)
                       &optional associated-condition)
    (let ((h (make handler)))
      (setf (.handler-class h) handler-class)
      (setf (.handler-function h) handler-function)
  
negative.code:       (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)
                                    (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)))))
  