anchor.diff:     (selection-timestamp :initform nil :accessor selection-timestamp)
      (font-families :accessor font-families)))
   
  -(defun automagic-clx-server-path ()
  +(defun automagic-clx-server-path ()  
     (let ((name (get-environment-variable "DISPLAY")))
       (assert name (name)
               "Environment variable DISPLAY is not set")
  
positive.code: 	    :screen-id (or screen 0)
  	    :protocol protocol))))
  
  (defun parse-clx-server-path (path)
    (pop path)
    (if path
  
negative.code: 	    :display-id (getf path :display-id 0)
  	    :screen-id  (getf path :screen-id 0)
  	    :protocol   (getf path :protocol :internet))
        (helpfully-automagic-clx-server-path)))
  
  (setf (get :x11 :port-type) 'clx-port)
  (setf (get :x11 :server-path-parser) 'parse-clx-server-path)
  