anchor.diff:    (let ((string (form-string syntax (first (children form)))))
       (parse-integer string :start 1 :end (1- (length string)) :radix 10)))
   
  -(defmethod extract-label ((syntax lisp-syntax) (form sharpsign-sharpsign-lexeme))
  +(defmethod extract-label ((syntax lisp-syntax) (form sharpsign-sharpsign-form))
     (let ((string (form-string syntax form)))
       (parse-integer string :start 1 :end (1- (length string)) :radix 10)))
   
  
positive.code: 			  (#\= (fo)
  			       (make-instance 'sharpsign-equals-lexeme))
  			  (#\# (fo)
  			       (make-instance 'sharpsign-sharpsign-lexeme))
  			  (#\+ (fo)
  			       (make-instance 'reader-conditional-positive-lexeme))
  			  (#\- (fo)
  
negative.code: (defclass delimiter-lexeme (lisp-lexeme) ())
  (defclass text-lexeme (lisp-lexeme) ())
  (defclass sharpsign-equals-lexeme (lisp-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) ())
  