anchor.diff:  
   (defclass throw-form (form)
     ((tag :accessor tag :initarg :tag)
  -   (value :accessor value :initarg :value)))
  +   (value :accessor value-of :initarg :value)))
   
   (defwalker-handler catch (form parent env)
     (destructuring-bind (tag &body body)
  
positive.code: ;;;; LOAD-TIME-VALUE
  
  (defclass load-time-value-form (form)
    ((value :accessor value)
     (read-only-p :accessor read-only-p)))
  
  (defwalker-handler load-time-value (form parent env)
    (with-form-object (load-time-value load-time-value-form
                                       :parent parent :source form)
      (setf (value load-time-value) (walk-form (second form) load-time-value env)
            (read-only-p load-time-value) (third form))))
  
  ;;;; LOCALLY
  
negative.code: ;;;; Atoms
  
  (defclass constant-form (form)
    ((value :accessor value-of :initarg :value)))
  
  (defclass variable-reference (form)
    ((name :accessor name-of :initarg :name)))
  