anchor.diff:  (defclass safety-ast (optimize-ast)
     ())
   
  -(defun make-safety-ast (child-ast value-ast &key origin)
  +(defun make-safety-ast (child-ast value &key origin)
     (make-instance 'safety-ast
       :origin origin
       :child-ast child-ast
  -    :value-asts value-ast))
  +    :values value))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: (defclass speed-ast (optimize-ast)
    ())
  
  (defun make-speed-ast (child-ast value-ast &key origin)
    (make-instance 'speed-ast
      :origin origin
      :child-ast child-ast
      :value-asts value-ast))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: (defclass space-ast (optimize-ast)
    ())
  
  (defun make-space-ast (child-ast value &key origin)
    (make-instance 'space-ast
      :origin origin
      :child-ast child-ast
      :values value))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  