* Backends/CLX/port.lisp, print-object (clx-port): handle the 'display slot being 'nil.
Regards Douglas Crosher
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