anchor.diff:    (name
      namespace))
   (defun make-unbound-variable ((name string) (namespace string))
  -  (let ((e (make unbound-variable)))
  -    (setf (.name e) name)
  -    (setf (.namespace e) namespace)
  -    e))
  +  (make unbound-variable :name name :namespace namespace))
   (defmethod show ((e unbound-variable))
     (string-concat "The " (.namespace e) " " (.name e) " is unbound."))
   (defclass simple-error (error))
  
positive.code:    max))
  
  (defun make-number-iter (max)
    (let ((iter (make number-iter)))
      (setf (.i iter) 0)
      (setf (.max iter) max)
      iter))
  
  (defmethod iter ((max number))
    (make-number-iter max))
  
negative.code: (defmethod default-handler ((c serious-condition))
    (invoke-debugger c))
  (defmethod default-handler ((r restart))
    (error (make restart-control-error :restart r)))
  
  (defclass handler ()
    (handler-class
  