[mcclim-cvs] CVS mcclim/Backends/CLX

[tmoore]

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