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: format:
  
  
  'abcdef
  ghijklm
  opqrstu
  vxyz'.
  
  [ ... ]"))
         (let ((data (read-all-data fontpath (addrof s))))
  	(if (ptr-null? data)
  	    (print "Error!" newline)
  
negative.code: (defun printhi (void (a (ptr void)))
      (print "Hi, im davey! " (cast a (ptr char)) newline))
  ;(defer-test printhi (cast (+ " hello ddd-dd-davey? " 2) (ptr void)))
  (test)
  (exit 0)
  