anchor.diff:  	      (if (< first 0b11100000)
   		  (progn
   		    (setf nchars 1)
  -		    (setf first (.- first (cast 0b11000000 u8))))
  +		    (setf first (bit-and first (cast 0b00011111 u8))))
   		  (if (< first 0b11110000)
   		      (progn
   			(setf nchars 2)
  
positive.code:       (print ": Should be 0xc3xx something.. : ")
        (print-hex (cast codepoint i64))
        (print newline)))
  (test-codepoint)
  ;(exit 0)
  
  (defstruct size
    (width i64)
  
negative.code: 				(setf first (.- first 0b11111100)))
  			      ))))))
  
         (if (eq nchars 0)
  	   (progn
  	     (setf (deref out-pt) (cast first i32))
  	     (noop))
  	   (let ((out (cast first i32)))
  	     (range _it 1 (.+ (cast nchars i64) 1)
  		    (let ((it (cast _it i32)))
  		      (let ((chr (cast (deref (ptr+ ustr (cast it i64))) i32)))
  			(setf out
  			      (bit-or (bit-and chr 0b00111111)
  				      (<< out 6)
  
  				  ))))
  		    )
  	     
        	    (setf (deref out-pt) out)))
  