anchor.diff:  (define-token-class character-literal)
   (define-token-class punctuation)
   (define-token-class other)
  +
   
   (defun pseudo-token (file lino)
     (make-other "" 0 lino file))
  
positive.code: (defmacro define-token-class (name)
    (let ((class-name (intern (concatenate 'string (string name) (string '-token)))))
      `(progn
         (defclass ,class-name   (token) ())
         (defun ,(intern (concatenate 'string (string name) (string '-p))) (object)
           (typep object ',class-name))
         (defmethod print-object ((self ,class-name) stream)
  
negative.code: (in-package "COM.INFORMATIMAGO.LANGUAGES.CPP")
  
  
  (defclass cpp-token (token)
    ((file   :initform "-" :initarg :file   :accessor token-file)))
  
  
  
  