anchor.diff:    ((string
       :type string
       :allocation :class
  -    :accessor literal-token-string)))
  +    :accessor literal-token-string))
  +  (:documentation
  +   "This class is a base class for tokens that represent very specific
  +character sequences."))
   (defmethod print-object ((literal-token literal-token) stream)
     (if *print-literals-by-name*
         (format stream "#<~A>" (class-name (class-of literal-token)))
  
positive.code: (defparameter *operators* (fset:empty-map))
  
  (defclass operator (literal-token)
    ())
  
  (defmacro define-operator (name string &optional (superclasses '(operator)) slots &body options)
    (check-type name symbol)
  
negative.code: 
  (optimization-settings)
  
  (defgeneric token-value (token)
    (:documentation
     "Returns the string that was used to build this token.
  
  This function should only be used for debugging purposes."))
  
  (defclass token ()
    ((value :type (or null string)
            :initform nil
            :accessor token-value
            :initarg :value))
    (:documentation
     "A class representing a token in the POSIX shell language."))
  (defmethod print-object ((token token) stream)
    (format stream "#<~A ~W>" (class-name (class-of token)) (token-value token)))
  (defmethod make-load-form ((token token) &optional environment)
  