anchor.diff:      :initform 0
       :initarg  :ascent
       :reader   fontset-width)))
  +
  +(defvar *fontset* nil)
   
   (defmethod print-object ((object fontset) stream)
     (format stream "#<fontset ~A>" (fontset-name object)))
  
positive.code:     (if fonts
  	(xlib:open-font display (first fonts))
          (xlib:open-font display "fixed"))))
  
  (defvar *fontset* nil)
  
  (defmethod text-style-mapping ((port clx-port) text-style
                                 &optional character-set)
  
negative.code:                       request first-keycode count
                        &allow-other-keys)
    (declare (ignore display request first-keycode count))
    (let ((sheet (and window (port-lookup-sheet *clx-port* window))))
      (when sheet
        (case event-key
  