anchor.diff:  
   (defgeneric call-condition-handler (condition handler dynamic-frame))
   
  -(defmethod call-condition-handler ((c condition) (h handler) (df dynamic) (f handler-frame))
  +(defmethod call-condition-handler ((c condition) (h handler) (df dynamic) f)
     (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))
  +(defmethod call-condition-handler ((r restart) (h handler) (df dynamic) f)
     ;; no restart firewall
     (funcall (.handler-function h) r))
   
  
positive.code: 
  ;;;; Debugger
  
  (defun invoke-debugger ()
    #{ alert("hey") #})
  
  ;;;; Streams
  
negative.code:           ;; signal unhandled: continue search for handlers
            (signal-condition c df (.parent-frame f))))))
  
  (defun find-applicable-handler-and-frame ((c condition) f)
    (when f
      (block found
        (each (lambda (h)
  