anchor.diff:          (time      (event-timestamp event)))
       (when (null property)
         (format *trace-output* "~&* Requestor property is null! *~%"))
  -    #+nil ; debugging output
  -    (progn
  -      (describe event *trace-output*)
  -      (force-output *trace-output*))
       (flet ((send-event (&key target (property property))
   	     ;; debugging output, but the KDE Klipper client turns out
   	     ;; to poll other clients for selection, which means it
   	     ;; would be bad to print at every request.
  -             #+nil
  -             (format *trace-output*
  -                     "~&;; clim-clx::send-selection - Requested target ~A, sent ~A to property ~A. time ~S~%"
  -                     (selection-event-target event)
  -                     target
  -                     property time)
                (xlib:send-event requestor
   			      :selection-notify nil
   			      :window requestor
  
positive.code:     (progn
        (setf (xlib:display-error-handler (clx-port-display port))
          #'clx-error-handler)
  
        #+nil ;; Uncomment this when debugging CLX backend if asynchronous errors become troublesome..
        (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-finish-output))
        
      
      (setf (clx-port-screen port) (nth (getf options :screen-id)
  				      (xlib:display-roots (clx-port-display port))))
      (setf (clx-port-window port) (xlib:screen-root (clx-port-screen port)))
      (make-cursor-table port)    
      (make-graft port)
  
negative.code: 
  (defmethod initialize-instance :after ((port clx-port) &rest args)
    (declare (ignore args))
    (push (make-instance 'clx-frame-manager :port port)
  	(slot-value port 'frame-managers))
    (setf (slot-value port 'pointer)
  	(make-instance 'clx-pointer :port port))
    (initialize-clx port))
  