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:                           as char = (aref string i)
                            as code = (char-code char)
                            sum (or (gcache-get width-cache code)
                                    (gcache-set width-cache code (max (font-glyph-right font char)
                                                                      (font-glyph-width font char))))
                              #+NIL (clim-clx::font-glyph-width font char))))
             (if (numberp (slot-value font 'fixed-width))
                 (* (slot-value font 'fixed-width) (- end start))
                 (typecase string
                   (simple-string
                    (locally (declare (type simple-string string))
                      (compute)))
                   (string
                    (locally (declare (type string string))
                      (compute)))
                   (t (compute)))))))
  