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