anchor.diff:                         (if ,test (progn ,@body) (reject nil))
                          (loop :while ,test :do ,@body)))
                     (opt-sign (sign token i)
  -                            `(alt ((>= ,i (token-length ,token)))
  -                                  ((traitp +ct-plus-sign+  (token-char-traits ,token ,i))
  -                                   (setf ,sign +1 ,i (1+ ,i)))
  -                                  ((traitp +ct-minus-sign+ (token-char-traits ,token ,i))
  -                                   (setf ,sign -1 ,i (1+ ,i))))))
  -           ,@body))))
  +                    `(alt ((>= ,i (token-length ,token)))
  +                          ((traitp +ct-plus-sign+  (token-char-traits ,token ,i))
  +                           (setf ,sign +1 ,i (1+ ,i)))
  +                          ((traitp +ct-minus-sign+ (token-char-traits ,token ,i))
  +                           (setf ,sign -1 ,i (1+ ,i))))))
  +         ,@body))))
   
   
   (defparser parse-decimal-integer-token (token)
  
positive.code:   (let* ((rst  (readtable-syntax-table readtable)))
      (setf (character-description rst char)
            (make-instance 'character-description
                :syntax (if non-terminating-p
                            +cs-non-terminating-macro-character+
                            +cs-terminating-macro-character+)
                :traits (character-constituent-traits
                         (character-description rst char))
                :macro new-function)))
    t)
  
  
  
negative.code: ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;    
  ;;;;    Copyright Pascal J. Bourguignon 2006 - 2014
  ;;;;    
  ;;;;    This program is free software: you can redistribute it and/or modify
  ;;;;    it under the terms of the GNU Affero General Public License as published by
  