anchor.diff:  ;;;; constituent traits ;;;;
   (defvar *constituent-traits* '(alphabetic digit package-marker plus-sign minus-sign dot decimal-point ratio-marker exponent-marker invalid))
   
  -(defvar *syntax-types* '((#\Backspace  constituent)               (#\Tab        whitespace)
  -                         (#\Newline    whitespace)                (#\Linefeed   whitespace)
  -                         (#\Page       whitespace)                (#\Return     whitespace)
  -                         (#\Space      whitespace)                (#\!          constituent)
  -                         (#\"          terminating-macro-char)    (#\#          non-terminating-macro-char)
  -                         (#\$          constituent)               (#\%          constituent)
  -                         (#\&          constituent)               (#\'          terminating-macro-char)
  -                         (#\(          terminating-macro-char)    (#\)          terminating-macro-char)
  -                         (#\*          constituent)               (#\+          constituent)
  -                         (#\,          terminating-macro-char)    (#\-          constituent)
  -                         (#\.          constituent)               (#\/          constituent)
  -                         (#\0          constituent)               (#\1          constituent)
  -                         (#\2          constituent)               (#\3          constituent)
  -                         (#\4          constituent)               (#\5          constituent)
  -                         (#\6          constituent)               (#\7          constituent)
  -                         (#\8          constituent)               (#\9          constituent)
  -                         (#\:          constituent)               (#\;          terminating-macro-char)
  -                         (#\<          constituent)               (#\=          constituent)
  -                         (#\>          constituent)               (#\?          constituent)
  -                         (#\@          constituent)               (#\A          constituent)
  -                         (#\B          constituent)               (#\C          constituent)
  -                         (#\D          constituent)               (#\E          constituent)
  -                         (#\F          constituent)               (#\G          constituent)
  -                         (#\H          constituent)               (#\I          constituent)
  -                         (#\J          constituent)               (#\K          constituent)
  -                         (#\L          constituent)               (#\M          constituent)
  -                         (#\N          constituent)               (#\O          constituent)
  -                         (#\P          constituent)               (#\Q          constituent)
  -                         (#\R          constituent)               (#\S          constituent)
  -                         (#\T          constituent)               (#\U          constituent)
  -                         (#\V          constituent)               (#\W          constituent)
  -                         (#\X          constituent)               (#\Y          constituent)
  -                         (#\Z          constituent)               (#\[          constituent)
  -                         (#\\          single-escape)             (#\]          constituent)
  -                         (#\^          constituent)               (#\_          constituent)
  -                         (#\`          terminating-macro-char)    (#\a          constituent)
  -                         (#\b          constituent)               (#\c          constituent)
  -                         (#\d          constituent)               (#\e          constituent)
  -                         (#\f          constituent)               (#\g          constituent)
  -                         (#\h          constituent)               (#\i          constituent)
  -                         (#\j          constituent)               (#\k          constituent)
  -                         (#\l          constituent)               (#\m          constituent)
  -                         (#\n          constituent)               (#\o          constituent)
  -                         (#\p          constituent)               (#\q          constituent)
  -                         (#\r          constituent)               (#\s          constituent)
  -                         (#\t          constituent)               (#\u          constituent)
  -                         (#\v          constituent)               (#\w          constituent)
  -                         (#\x          constituent)               (#\y          constituent)
  -                         (#\z          constituent)               (#\{          constituent)
  -                         (#\|          multiple-escape)           (#\}          constituent)
  -                         (#\~          constituent)               (#\Rubout     constituent)))
  +(defvar *syntax-types* '((#\Backspace  . constituent)               (#\Tab        . whitespace)
  +                         (#\Newline    . whitespace)                (#\Linefeed   . whitespace)
  +                         (#\Page       . whitespace)                (#\Return     . whitespace)
  +                         (#\Space      . whitespace)                (#\!          . constituent)
  +                         (#\"          . terminating-macro-char)    (#\#          . non-terminating-macro-char)
  +                         (#\$          . constituent)               (#\%          . constituent)
  +                         (#\&          . constituent)               (#\'          . terminating-macro-char)
  +                         (#\(          . terminating-macro-char)    (#\)          . terminating-macro-char)
  +                         (#\*          . constituent)               (#\+          . constituent)
  +                         (#\,          . terminating-macro-char)    (#\-          . constituent)
  +                         (#\.          . constituent)               (#\/          . constituent)
  +                         (#\0          . constituent)               (#\1          . constituent)
  +                         (#\2          . constituent)               (#\3          . constituent)
  +                         (#\4          . constituent)               (#\5          . constituent)
  +                         (#\6          . constituent)               (#\7          . constituent)
  +                         (#\8          . constituent)               (#\9          . constituent)
  +                         (#\:          . constituent)               (#\;          . terminating-macro-char)
  +                         (#\<          . constituent)               (#\=          . constituent)
  +                         (#\>          . constituent)               (#\?          . constituent)
  +                         (#\@          . constituent)               (#\A          . constituent)
  +                         (#\B          . constituent)               (#\C          . constituent)
  +                         (#\D          . constituent)               (#\E          . constituent)
  +                         (#\F          . constituent)               (#\G          . constituent)
  +                         (#\H          . constituent)               (#\I          . constituent)
  +                         (#\J          . constituent)               (#\K          . constituent)
  +                         (#\L          . constituent)               (#\M          . constituent)
  +                         (#\N          . constituent)               (#\O          . constituent)
  +                         (#\P          . constituent)               (#\Q          . constituent)
  +                         (#\R          . constituent)               (#\S          . constituent)
  +                         (#\T          . constituent)               (#\U          . constituent)
  +                         (#\V          . constituent)               (#\W          . constituent)
  +                         (#\X          . constituent)               (#\Y          . constituent)
  +                         (#\Z          . constituent)               (#\[          . constituent)
  +                         (#\\          . single-escape)             (#\]          . constituent)
  +                         (#\^          . constituent)               (#\_          . constituent)
  +                         (#\`          . terminating-macro-char)    (#\a          . constituent)
  +                         (#\b          . constituent)               (#\c          . constituent)
  +                         (#\d          . constituent)               (#\e          . constituent)
  +                         (#\f          . constituent)               (#\g          . constituent)
  +                         (#\h          . constituent)               (#\i          . constituent)
  +                         (#\j          . constituent)               (#\k          . constituent)
  +                         (#\l          . constituent)               (#\m          . constituent)
  +                         (#\n          . constituent)               (#\o          . constituent)
  +                         (#\p          . constituent)               (#\q          . constituent)
  +                         (#\r          . constituent)               (#\s          . constituent)
  +                         (#\t          . constituent)               (#\u          . constituent)
  +                         (#\v          . constituent)               (#\w          . constituent)
  +                         (#\x          . constituent)               (#\y          . constituent)
  +                         (#\z          . constituent)               (#\{          . constituent)
  +                         (#\|          . multiple-escape)           (#\}          . constituent)
  +                         (#\~          . constituent)               (#\Rubout     . constituent)))
   
   (defvar *char-traits* '((#\Backspace . (invalid))                                 (#\Tab      . (invalid))
                           (#\Newline   . (invalid))                                 (#\Linefeed . (invalid))
  
positive.code:   (cdr (assoc char *char-traits*)))
  
  (defun whitespacep (char)
    (equal 'whitespace (cadr (assoc char *syntax-types*))))
  
  (defun constituentp (char)
    (equal 'constituent (cadr (assoc char *syntax-types*))))
  
  (defun single-escape-p (char)
    (equal 'single-escape (cadr (assoc char *syntax-types*))))
  
  (defun multiple-escape-p (char)
    (equal 'multiple-escape (cadr (assoc char *syntax-types*))))
  
  (defun invalidp (char)
    (member 'invalid (cdr (assoc char *char-traits*))))
  
negative.code:   (member 'decimal-point (cdr (assoc char *char-traits*))))
  
  (defun non-terminating-macro-char-p (char)
    (equal 'non-terminating-macro-char (cdr (assoc char *syntax-types*))))
  
  (defun terminating-macro-char-p (char)
    (equal 'terminating-macro-char (cdr (assoc char *syntax-types*))))
  
  (defun maybe-change-case (char)
    ;; TODO: implement readcase here
  