anchor.diff:  	(t (cond ((or (constituentp object)
                         (eql object #\\))
                     (lex-token syntax scan))
  -                 (t (fo) (make-instance 'literal-object-lexeme))))))))
  +                 (t (fo) (make-instance 'literal-object-form))))))))
   
   (defmethod lex ((syntax lisp-syntax) (state lexer-list-state) scan)
     (macrolet ((fo () `(forward-object scan)))
  
positive.code:                   (t (call-next-method))))))
        (call-next-method)))
  
  (defmethod display-parse-tree ((parser-symbol literal-object-lexeme) stream (drei drei)
                                 (syntax lisp-syntax))
    (updating-output
        (stream :unique-id (list drei parser-symbol)
  
negative.code:   (when read
      (read-from-string (form-string syntax form))))
  
  (defmethod form-to-object ((syntax lisp-syntax) (form literal-object-form) &key &allow-other-keys)
    (object-after (start-mark form)))
  
  (defmethod form-to-object ((syntax lisp-syntax) (form pathname-form) &key &allow-other-keys)
  