anchor.diff:    (declare (ignore args))
     (push (make-instance 'clx-frame-manager :port port) (slot-value port 'frame-managers))
     (initialize-clx port))
  +
  +(defmethod print-object ((object clx-port) stream)
  +  (print-unreadable-object (object stream :identity t :type t)
  +    (when (slot-boundp object 'display)
  +      (format stream "~S ~S ~S ~S"
  +              :host (xlib:display-host (slot-value object 'display))
  +              :display-id (xlib:display-display (slot-value object 'display))))))
   
   (defun clx-error-handler (display error-name &key &allow-other-keys)
     (declare (ignore display))
  
positive.code:                   "Restart CLIM's event loop.")
                 (loop
                   (process-next-event port)))))
           :name (format nil "~S's event process." port))))
      ))
  
  #+NIL
  (defmethod (setf sheet-mirror-transformation) :after (new-value (sheet mirrored-sheet-mixin))
  
negative.code:                                       :map nil
                                        :width (round-coordinate (space-requirement-width q))
                                        :height (round-coordinate (space-requirement-height q))
                                        :event-mask nil)))
        (setf (xlib:wm-name window) (frame-pretty-name frame))
        (setf (xlib:wm-icon-name window) (frame-pretty-name frame))
        (setf (xlib:wm-protocols window) `(:wm_delete_window)))))
  