anchor.diff:                      (make-truetype-font port path size))
                '(8 10 12 14 18 24 48 72))))))
   
  -(defmethod clim-clx:port-find-all-font-families((port clim-clx::clx-port) (font-renderer truetype-font-renderer)
  -                                                &key invalidate-cache)
  +(defmethod clim-clx:port-find-all-font-families ((port clim-clx::clx-port) (font-renderer truetype-font-renderer)
  +                                                 &key invalidate-cache)
     (when (or (null (clim-clx::font-families port)) invalidate-cache)
       (setf (clim-clx::font-families port) (clim-clx::reload-font-table port)))
     (register-all-ttf-fonts port)
  
positive.code:              (drawable-picture mirror)
               (display-the-glyph-set display)
               source-picture
               x y
               glyph-ids
               :end (- end start))))))))
  
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defclass truetype-font-renderer (clim-clx::font-renderer)
    ())
  
  (setq clim:*default-server-path* '(:clx :font-renderer mcclim-truetype:truetype-font-renderer))
  
  