anchor.diff:     (find c {123456789+-.0}))
   
   (define (char-numeric? c)
  -   (find c {0123456789+-.xXabcdefABracketedCommandDEF}))
  +   (find c {0123456789+-.xXabcdefABCDEFL}))
   
   (define (char-whitespace? c)
     (or (= c " ") (= c "\n") (= c "\t")))
  
positive.code: ;; @author cormullion
  ;; @description  newLISP source code lexer/tokenizer/parser
  ;; @location somewhere on github
  ;; @version 0.1 of 2011-09-19 08:55:19
  ;;<h4>About this module</h4>
  ;;<p>The Nlex module is a lexer/tokenizer/parser for newLISP source code.
  ;; An expert from StackOverflow xplains:
  
negative.code:            ((= token-type 'Quote); quote
                  (extend buff (string  "'")))
             ((= token-type 'Comment) ; comment
                  (extend buff (string (last element) )))
             ((= token-type 'Integer) ; int
                  (extend buff (string (int (last element)))))
             ((= token-type 'Float) ; float
                  (extend buff (string (precise-float (last element)))))  
             ((= token-type 'Scientific) ; scientific notation
                  (extend buff (scientific-float (last element))))
             ((= token-type 'BigintLit) ; these have "L" appended
                  (extend buff (string (bigint (last element)))))  
             ((= token-type 'Bigint) ; these are implicit bignums
                  (extend buff (trim (string (bigint (last element))) "L")))  
             ((= token-type 'BracketedCommand) ; bracketed command
                 (extend buff (string {[cmd]} (last element) {[/cmd]})))
             ((or 
                  (= token-type 'Symbol) ; close parenthesis
                  (= token-type 'Hex) ; hex
                  (= token-type 'NaN) ; some generic number
                  (= token-type 'Octal) ; octal
                  )
                  (extend buff (string (last element))))
  