anchor.diff:    (member 'decimal-point (cdr (assoc char *char-traits*))))
   
   (defun non-terminating-macro-char-p (char)
  -  (equal 'non-terminating-macro-char (cadr (assoc char *syntax-types*))))
  +  (equal 'non-terminating-macro-char (cdr (assoc char *syntax-types*))))
   
   (defun terminating-macro-char-p (char)
  -  (equal 'terminating-macro-char (cadr (assoc char *syntax-types*))))
  +  (equal 'terminating-macro-char (cdr (assoc char *syntax-types*))))
   
   (defun maybe-change-case (char)
     ;; TODO: implement readcase here
  
positive.code: ;;;; 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 *char-traits* '((#\Backspace . (invalid))                                 (#\Tab      . (invalid))
                          (#\Newline   . (invalid))                                 (#\Linefeed . (invalid))
  
negative.code:   (cdr (assoc char *char-traits*)))
  
  (defun whitespacep (char)
    (equal 'whitespace (cdr (assoc char *syntax-types*))))
  
  (defun constituentp (char)
    (equal 'constituent (cdr (assoc char *syntax-types*))))
  
  (defun single-escape-p (char)
    (equal 'single-escape (cdr (assoc char *syntax-types*))))
  
  (defun multiple-escape-p (char)
    (equal 'multiple-escape (cdr (assoc char *syntax-types*))))
  
  (defun invalidp (char)
    (member 'invalid (cdr (assoc char *char-traits*))))
  