[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv3753

Modified Files:
	swank-cmucl.lisp 
Log Message:
(create-socket): Fix last change.  Use the proper port argument down.

Date: Sun Feb  8 15:11:20 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.63 slime/swank-cmucl.lisp:1.64
--- slime/swank-cmucl.lisp:1.63	Sun Feb  8 14:19:42 2004
+++ slime/swank-cmucl.lisp	Sun Feb  8 15:11:20 2004
@@ -10,7 +10,7 @@
 (setq *swank-in-background* :sigio)
 
 (defimplementation create-socket (host port)
-  (ext:create-inet-listener 0 :stream
+  (ext:create-inet-listener port :stream
                             :reuse-address t
                             :host (resolve-hostname host)))