anchor.diff:    (let ((table (slot-value port 'font-table)))
       (or (gethash text-style table)
           (multiple-value-bind (family face size) (text-style-components text-style)
  -	  (let* ((family-name (if (stringp family)
  -				  family
  -				  (or (getf *clx-text-families* family)
  -				      (getf *clx-text-families* :fix))))
  -		 (face-name (if (stringp face)
  -				face
  -				(or (getf *clx-text-faces*
  -					  (if (listp face)
  -					      (intern (format nil "~A-~A"
  -							      (first face)
  -							      (second face))
  -						      :keyword)
  -					      face))
  -				    (getf *clx-text-faces* :roman))))
  -		 (size-number (if (numberp size)
  -				  (round size)
  -				  (or (getf *clx-text-sizes* size)
  -				      (getf *clx-text-sizes* :normal))))
  -		 (font-name (format nil "-~A-~A-*-*-~D-*-*-*-*-*-*-*"
  -				    family-name face-name size-number)))
  -	    (setf (gethash text-style table)
  -		  (open-font (clx-port-display port) font-name)))))))
  +          (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"
  +                                                                (first face)
  +                                                                (second face))
  +                                                        :keyword)
  +                                                face))
  +                                      (getf *clx-text-faces* :roman))))
  +                   (size-number (if (numberp size)
  +                                    (round size)
  +                                    (or (getf *clx-text-sizes* size)
  +                                        (getf *clx-text-sizes* :normal))))
  +                   (font-name (format nil "-~A-~A-*-*-~D-*-*-*-*-*-*-*"
  +                                      family-name face-name size-number)))
  +              (setf (gethash text-style table)
  +                    (open-font (clx-port-display port) font-name))))))))
   
   (defmethod port-character-width ((port clx-port) text-style char)
     (let* ((font (text-style-to-X-font port text-style))
  
positive.code:         #'clx-error-handler)
      
        #-NIL
        (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-finish-output))
      
      (setf (clx-port-screen port) (nth (getf options :screen-id 0)
  				      (xlib:display-roots (clx-port-display port))))
  
negative.code: 				:very-large 20
  				:huge 24))
  
  (defparameter *clx-text-family+face-map*
    '(:fix
      #-NIL
      ("adobe-courier"
       (:roman               "medium-r"
        :bold                "bold-r"
        :italic              "medium-o"
        :bold-italic         "bold-o"
        :italic-bold         "bold-o"))
      #+NIL
      ("*-lucidatypewriter"
       (:roman               "medium-r"
        :bold                "bold-r"
        :italic              "medium-r"
        :bold-italic         "bold-r"
        :italic-bold         "bold-r"))
      :sans-serif
      ("adobe-helvetica"
       (:roman               "medium-r"
        :bold                "bold-r"
        :italic              "medium-o"
        :bold-italic         "bold-o"
        :italic-bold         "bold-o"))
      :serif
      ("adobe-times"
       (:roman               "medium-r"
        :bold                "bold-r"
        :italic              "medium-i"
        :bold-italic         "bold-i"
        :italic-bold         "bold-i")) ))
  
  (defparameter *clx-text-sizes*
    '(:tiny 8
      :very-small 8
      :small 10
      :normal 12
      :large 14
      :very-large 18
      :huge 24))
  
  (defun open-font (display font-name)
    (let ((fonts (xlib:list-font-names display font-name :max-fonts 1)))
      (if fonts
  