anchor.diff:  (defclass delimiter-lexeme (lisp-lexeme) ())
   (defclass text-lexeme (lisp-lexeme) ())
   (defclass sharpsign-equals-lexeme (lisp-lexeme) ())
  -(defclass sharpsign-sharpsign-lexeme (form-lexeme) ())
  +(defclass sharpsign-sharpsign-form (form-lexeme complete-form-mixin) ())
   (defclass reader-conditional-positive-lexeme (lisp-lexeme) ())
   (defclass reader-conditional-negative-lexeme (lisp-lexeme) ())
   (defclass uninterned-symbol-lexeme (lisp-lexeme) ())
  
positive.code:                            &rest args)
    (apply #'register-form-label syntax form args))
  
  (defmethod form-to-object ((syntax lisp-syntax) (form sharpsign-sharpsign-lexeme)
                             &rest args)
    (apply #'label-placeholder syntax form (extract-label syntax form) t args))
  
  
negative.code: 			  (#\= (fo)
  			       (make-instance 'sharpsign-equals-lexeme))
  			  (#\# (fo)
  			       (make-instance 'sharpsign-sharpsign-form))
  			  (#\+ (fo)
  			       (make-instance 'reader-conditional-positive-lexeme))
  			  (#\- (fo)
  