anchor.diff:  (defclass bit-vector-form (form-lexeme complete-form-mixin) ())
   (defclass number-lexeme (form-lexeme complete-form-mixin) ())
   (defclass token-mixin () ())
  -(defclass literal-object-lexeme (form-lexeme) ())
  +(defclass literal-object-form (form-lexeme complete-form-mixin) ())
   (defclass complete-token-lexeme (token-mixin form-lexeme complete-form-mixin) ())
   (defclass multiple-escape-start-lexeme (lisp-lexeme) ())
   (defclass multiple-escape-end-lexeme (lisp-lexeme) ())
  
positive.code:   (when read
      (read-from-string (form-string syntax form))))
  
  (defmethod form-to-object ((syntax lisp-syntax) (form literal-object-lexeme) &key &allow-other-keys)
    (object-after (start-mark form)))
  
  (defmethod form-to-object ((syntax lisp-syntax) (form pathname-form) &key &allow-other-keys)
  
negative.code: 	(t (cond ((or (constituentp object)
                        (eql object #\\))
                    (lex-token syntax scan))
                   (t (fo) (make-instance 'literal-object-form))))))))
  
  (defmethod lex ((syntax lisp-syntax) (state lexer-list-state) scan)
    (macrolet ((fo () `(forward-object scan)))
  