Index: Backends/CLX/port.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v
retrieving revision 1.120
diff -c -r1.120 port.lisp
*** Backends/CLX/port.lisp	6 Feb 2006 08:51:02 -0000	1.120
--- Backends/CLX/port.lisp	14 Mar 2006 00:18:37 -0000
***************
*** 210,218 ****
  (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 &rest args &key major &allow-other-keys)
    (unless (and (eql major 42)  ; 42 is SetInputFocus, we ignore match-errors from that
--- 210,220 ----
  (defmethod print-object ((object clx-port) stream)
    (print-unreadable-object (object stream :identity t :type t)
      (when (slot-boundp object 'display)
!       (let ((display (slot-value object 'display)))
! 	(when display
! 	  (format stream "~S ~S ~S ~S"
! 		  :host (xlib:display-host display)
! 		  :display-id (xlib:display-display display)))))))
  
  (defun clx-error-handler (display error-name &rest args &key major &allow-other-keys)
    (unless (and (eql major 42)  ; 42 is SetInputFocus, we ignore match-errors from that
