Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv7770/Backends/CLX
Modified Files: port.lisp Log Message: Patches from dtc for Scieneer Common Lisp, and a few other fixes too.
--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/02/06 08:51:02 1.120 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2006/03/15 22:56:55 1.121 @@ -210,9 +210,11 @@ (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)))))) + (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