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: ;; pointer-event-buttons slot to pointer events. -- moore
  ;; 
  
  (defun event-handler (&key display window event-key code state mode time
  		      type width height x y root-x root-y
  		      data override-redirect-p send-event-p hint-p
  
negative.code:     (if fonts
  	(xlib:open-font display (first fonts))
          (xlib:open-font display "fixed"))))
  
  (defmethod text-style-mapping ((port clx-port) text-style
                                 &optional character-set)
  