anchor.diff:  (in-package :simple-parse-number)
  -
  -(defstruct (parsed-integer (:conc-name nil)
  -                           (:constructor make-parsed-integer
  -                                         (value num-digits)))
  -  "A parsed integer contains information on both the value and the
  -   number of digits. This is useful for reprsenting decimal values."
  -  num-digits value)
   
   (define-condition invalid-number (parse-error)
     ((value :reader invalid-number-value
  
positive.code: (defun invalid-last-char (char radix)
    "Is this character valid except at the end of a number?"
    (or (exponent-marker-p char radix) (eql char #\/)))
  
  (defun split-and-parse (string radix &rest points)
    "Given a string of integers and a list of locations in beteween
  
negative.code:      (,regular (string-trim *whitespace-characters* (subseq string start end))
  	       radix)))
  
  (deftrimmer parse-number parse-trimmed-number)
  (deftrimmer parse-real-number parse-trimmed-real-number)
  (deftrimmer parse-positive-real-number parse-trimmed-positive-real-number)
  