anchor.diff:  
   ;;;; Debugger
   
  -(defun invoke-debugger ()
  +(defun invoke-debugger (c)
     #{ alert("hey") #})
   
   ;;;; Streams
  
positive.code: 
  (defgeneric call-condition-handler (condition handler dynamic-frame))
  
  (defmethod call-condition-handler ((c condition) (h handler) (df dynamic) (f handler-frame))
    (dynamic-bind-1st-class df (.parent-frame f) ; condition firewall
      (lambda () (funcall (.handler-function h) c))))
  
  (defmethod call-condition-handler ((r restart) (h handler) (df dynamic) (f handler-frame))
    ;; no restart firewall
    (funcall (.handler-function h) r))
  
  
negative.code:       (defun ,signal ((c ,condition))
          (signal-condition c (dynamic-id ,dynamic-frame) (dynamic ,dynamic-frame)))))
  
  (defun signal-condition ((c condition) (df dynamic) f)
    (let* ((handler-and-frame (find-applicable-handler-and-frame c f)))
      (if (nil? handler-and-frame)
          (default-handler c)
  