anchor.diff:      (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)
  
positive.code:   (declare (ignore wait-function))
    (let* ((*clx-port* port)
           (display    (clx-port-display port)))
      (declare (special *clx-port*))
      (unless (xlib:event-listen display)
        (xlib:display-finish-output (clx-port-display port)))
      ; temporary solution
  
negative.code: ;; pointer-event-buttons slot to pointer events. -- moore
  ;; 
  
  (defvar *clx-port*)
  
  (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
  