anchor.diff:  ;;;;;;;;;;;;;;;; uninterned symbol
   
   ;;; parse trees
  -(defclass uninterned-symbol-form (form) ())
  +(defclass uninterned-symbol-form (form complete-form-mixin) ())
   
   (define-parser-state |#: | (form-may-follow) ())
   (define-parser-state |#: form | (lexer-toplevel-state parser-state) ())
  
positive.code: ;;;;;;;;;;;;;;;; readtime evaluation
  
  ;;; parse trees
  (defclass readtime-evaluation-form (form) ())
  
  (define-parser-state |#. | (form-may-follow) ())
  (define-parser-state |#. form | (lexer-toplevel-state parser-state) ())
  
negative.code: ;;;;;;;;;;;;;;;; array
  
  ;;; parse trees
  (defclass array-form (form complete-form-mixin) ())
  
  (define-parser-state |#A | (form-may-follow) ())
  (define-parser-state |#A form | (lexer-toplevel-state parser-state) ())
  