anchor.diff:  
   ;;;; Debugger
   
  -(defun invoke-debugger (c)
  -  #{ alert("hey") #})
  +(defun invoke-debugger ((c condition))
  +  (print (string-concat "Debugger:" (show c))))
   
   ;;;; Streams
   
  
positive.code: (defmacro dynamic-bind-1 (binding &rest body)
    (let ((name (compound-elt binding 0))
          (value (compound-elt binding 1)))
      #`(dynamic-bind-1st-class ,(dynamic name) ,value
          (lambda () ,@body))))
  
  (defun dynamic-bind-1st-class ((d dynamic) value (f function))
  
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)
  