anchor.diff:  ;; 11111110 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 36 ;;this probably does not exist.
     (let ((ustr (cast string (ptr u8))))
       (let ((first (deref ustr)) 
  -	  (nchars 0))
  -      (if (< first 0b10000000)
  +	  (nchars (the 0 i32)))
  +      (if! (< first 0b10000000)
   	  (progn
   	    (setf nchars 0)
   	    (noop))
  
positive.code: 		    )
  		  (progn
  		    (setf text (read-utf8-codepoint text (addrof (member status codepoint))))
  	       
  		    (tt:get-codepoint-h-metrics font 
  						(member status codepoint) 
  						(addrof (member status advance)) 
  
negative.code: format:
  
  
  '|abcdef
  ghijklm
  opqrstu
  vxyz|'.
  
  [ ... ]µáßðåäé "))
         (let ((data (read-all-data fontpath (addrof s))))
  	(if (ptr-null? data)
  	    (print "Error!" newline)
  