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