anchor.diff:   
   
  -(defmethod font-generate-glyph ((font clx-truetype-font) code &optional (tr +identity-transformation+))
  +(defmethod font-generate-glyph ((font clx-truetype-font) code
  +                                &optional (transformation +identity-transformation+))
     (let* ((display (clx-truetype-font-display font))
            (glyph-id (display-draw-glyph-id display))
            (character (code-char (ldb (byte #.(ceiling (log char-code-limit 2)) 0) code)))
  
positive.code:        (incf i*)
       finally
         (setf (aref (the (simple-array (unsigned-byte 32)) glyph-ids) i*)
               (the (unsigned-byte 32) (glyph-info-id (font-generate-glyph* font
                                                                            (char-code char)
                                                                            glyph-transformation))))
       finally
       ;; rendering one glyph at a time (last glyph)
         (multiple-value-bind (current-x current-y)
  
negative.code:                               :y-advance dy)
        (let ((right (+ left (array-dimension arr 1)))
              (bottom (- top (array-dimension arr 0))))
          (if (identity-transformation-p transformation)
              (glyph-info glyph-id width height left right top bottom dx dy)
              ;; INV advance-width and advance-height are hacked here for transformed
              ;; glyph rendering. They are not transformed. See %RENDER-TRANSFORMED-GLYPHS.
              (glyph-info glyph-id width height left right top bottom udx udy))))))
  
  (defun drawable-picture (drawable)
    (or (getf (xlib:drawable-plist drawable) 'picture)
  