anchor.diff:  (in-package :mcclim-render-internals)
   
   ;;;
  -;;; Font utilities. 
  +;;; Font utilities.
   ;;;
   
   (defstruct (glyph-info (:constructor glyph-info (id width height left right top dx dy paths opacity-image)))
  
positive.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
  
negative.code:                       ;; * (min 0 left), (max width right)
                        ;; * font-ascent / ascent
                        (values left (- font-ascent) right font-descent)))))))))
  