anchor.diff:    (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
  
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)
  