anchor.diff:                    "Restart CLIM's event loop.")
                  (loop
                    (process-next-event port)))))
  -         :name (format nil "~S's event process." port))))
  -    ))
  +         :name (format nil "~S's event process." port)))) ))
   
   #+NIL
   (defmethod (setf sheet-mirror-transformation) :after (new-value (sheet mirrored-sheet-mixin))
  
positive.code:                                       :map nil
                                        :width (round-coordinate (space-requirement-width q))
                                        :height (round-coordinate (space-requirement-height q))
                                        :event-mask nil
                                        ;;GB
                                        #+NIL '(:structure-notify))))
        (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)))))
  
negative.code:   (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))
  