[mcclim-cvs] CVS mcclim/Backends/CLX

[afuchs]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory clnet:/tmp/cvs-serv19479/Backends/CLX

Modified Files:
	port.lisp 
Log Message:
Commit 2 of 3 acl fixes by Willem Broekema:
 * package.lisp depends on patch.lisp (how did I miss this all the time?)
 * use xlib::*x-tcp-port*


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2006/03/23 08:45:26	1.122
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2006/10/29 08:29:46	1.123
@@ -1428,7 +1428,8 @@
 		     :remote-filename (format nil "/tmp/.X11-unix/X~D" display)
 		     :format :binary)
 		    (socket:make-socket :remote-host (string host)
-					:remote-port (+ *x-tcp-port* display)
+					:remote-port (+ xlib::*x-tcp-port*
+                                                        display)
 					:format :binary))))
     (if (streamp stream)
 	stream