anchor.diff:      (let ((text-style (parse-text-style text-style)))
         (labels
             ((find-and-make-xlib-face (display family face size)
  -             (destructuring-bind (family-name face-table)
  -                 (if (stringp family)
  -                     (list family *clx-text-faces*)
  -                     (or (getf *clx-text-family+face-map* family)
  -                         (getf *clx-text-family+face-map* :fix)))
  -               (let* ((face-name (if (stringp face)
  -                                     face
  -                                     (or (getf face-table
  -                                               (if (listp face)
  -                                                   (intern (format nil "~A-~A"
  -                                                                   (symbol-name (first face))
  -                                                                   (symbol-name (second face)))
  -                                                           :keyword)
  -                                                   face))
  -                                         (getf *clx-text-faces* :roman)))))
  -                 (flet ((try (encoding)
  -                          (open-font
  -                           display
  -                           (format nil "-~A-~A-*-*-~D-*-*-*-*-*-~A"
  -                                   family-name face-name size encoding))))
  -                   (or (when (> char-code-limit #x100)
  -                         (try "iso10646-1"))
  -                       (try "iso8859-1")
  -                       (try "*-*"))))))
  +             (let* ((family-name (if (stringp family)
  +                                     family
  +                                     (getf *families/names* family "adobe-times")))
  +                    (face-name (if (stringp face)
  +                                   face
  +                                   (or (assoc (list family face) *families/faces*
  +                                              :test #'equal)
  +                                       "medium-r"))))
  +               (flet ((try (encoding)
  +                        (open-font
  +                         display
  +                         (format nil "-~A-~A-*-*-~D-*-*-*-*-*-~A"
  +                                 family-name face-name size encoding))))
  +                 (or (and (> char-code-limit #x100)
  +                          (try "iso10646-1"))
  +                     (try "iso8859-1")
  +                     (try "*-*")))))
              (find-font ()
                (multiple-value-bind (family face size)
                    (text-style-components text-style)
  
positive.code: 		 ;; :graft (find-graft :port port) 
  		 :sheet sheet))
  
  (defconstant *clx-text-families* '(:fix         "adobe-courier"
  				   :serif       "adobe-times"
  				   :sans-serif  "adobe-helvetica"))
  
  (defconstant *clx-text-faces* '(:roman          "medium-r"
  				:bold           "bold-r"
  				:italic         "medium-i"
  				:bold-italic    "bold-i"
  				:italic-bold    "bold-i"))
  
  (defparameter *clx-text-sizes*
    '(:normal         12
      :tiny            8
  
negative.code:                (setf face   (or face :roman)
                       family (or family :fix)
                       size   (or size :normal)
                       size   (round (getf clim-clx::*clx-text-sizes* size size)))
  
                 (when (eq family :fixed)
                   (setf family :fix))
  
                 (when (zerop size)
                   (setf size (getf clim-clx::*clx-text-sizes* :normal)))
  
                 (let ((display (clim-clx::clx-port-display port)))
                   (find-and-make-xlib-face display family face size)))))
  