anchor.diff:  (defclass load-time-value-form (form)
     ((body :accessor body :initarg :body)
      (read-only :initform nil :accessor read-only-p :initarg :read-only)
  -   (value :accessor value)))
  +   (value :accessor value-of)))
   
   (defmethod initialize-instance :after ((self load-time-value-form) &key)
  -  (setf (value self) (eval (body self))))
  +  (setf (value-of self) (eval (body self))))
   
   (defwalker-handler load-time-value (form parent env)
     (assert (<= (length form) 3))
  
positive.code:     :accessor variable-name-of
      :initarg :variable-name)
     (value
      :accessor value
      :initarg :value)))
  
  (defwalker-handler setq (form parent env)
  
negative.code:           (ecase type
              (setq (with-form-object (setq setq-form :parent parent :source form
                                            :variable-name var)
                      (setf (value-of setq) (walk-form value setq env))))
              (setf (walk-form (first effective-code) parent env))))
          ;; multiple forms
          (with-form-object (progn progn-form :parent parent :source form)
  