anchor.diff:  (defclass tag-ast (ast)
     ((%name :initarg :name :reader name)))
   
  -(defun make-tag-ast (name)
  +(defun make-tag-ast (name &key origin)
     (make-instance 'tag-ast
  +    :origin origin
       :name name))
   
   (cleavir-io:define-save-info tag-ast
  
positive.code: (defclass lexical-ast (ast one-value-ast-mixin side-effect-free-ast-mixin)
    ((%name :initarg :name :reader name)))
  
  (defun make-lexical-ast (name)
    (make-instance 'lexical-ast :name name))
  
  (cleavir-io:define-save-info lexical-ast
    (:name name))
  
negative.code:   ((%form-ast :initarg :form-ast :reader form-ast)
     (%type-specifiers :initarg :type-specifiers :reader type-specifiers)))
  
  (defun make-the-ast (form-ast type-specifiers &key origin)
    (make-instance 'the-ast
      :origin origin
      :form-ast form-ast
      :type-specifiers type-specifiers))
  
  