[Openmcl-cvs-notifications] r15117 - /trunk/source/lib/swink.lisp

[gz at clozure.com]

Author: gz
Date: Wed Dec  7 19:57:00 2011
New Revision: 15117

Log:
Allow remote connections

Modified:
    trunk/source/lib/swink.lisp

Modified: trunk/source/lib/swink.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/swink.lisp (original)
+++ trunk/source/lib/swink.lisp Wed Dec  7 19:57:00 2011
@@ -412,7 +412,8 @@
   connections, otherwise it will be closed after the first."
   (let* ((stream-args (and external-format `(:external-format ,external-fo=
rmat)))
          (socket (make-socket :connect :passive
-                              :local-host "127.0.0.1" :local-port port
+                              ;; :local-host "127.0.0.1"
+                              :local-port port
                               :reuse-address t))
          (info (cons socket nil))
          (local-port (local-port socket)))