anchor.diff:      (let ((right (+ left width))
   	  (opacity-image (font-generate-opacity-image paths width height left top)))
         (glyph-info 0 dx dy left right top dx dy paths opacity-image))))
  -    
  +
   (defun font-glyph-info (font character)
     (with-slots (char->glyph-info) font
       (ensure-gethash character char->glyph-info
  
positive.code: 
  (declaim (inline gcache-get))
  
  (defun gcache-get (cache key-number)  
    (declare (optimize (speed 3))
             (type (simple-array t (512))))
    (let ((hash (logand (the fixnum key-number) #xFF)))   ; hello.
  
negative.code:                                         &key (start 0) (end (length string)) translate)
    ;; -> (width ascent descent left right
    ;; font-ascent font-descent direction
    ;; first-not-done)
    (declare ;;(optimize (speed 3))
             (ignore translate))
    (let ((width
  