anchor.diff:  
   ;; FIXME: USELESS ?
   (defun code-uchar (code)
  -  (check-type code (mod #.uchar-code-limit))
  +  (check-type code uchar)
     code)
   
   ;; FIXME: USELESS ?
  
positive.code: ;;;-------------------------------------------------------------------------
  
  (deftype uchar ()
    '(mod #.uchar-code-limit))
  
  (deftype ustring (&optional (size '*))
    `(simple-array uchar (,size)))
  
negative.code: ;;;-------------------------------------------------------------------------
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defconstant uchar-code-limit (+ #x110000 #xFF)))
  
  
  