X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=sockets.lisp;fp=sockets.lisp;h=f7c8408476e038fd188f69a86f3eaba458b4c1f7;hp=259b7b0fc448fdb69b78f3fb9ad41e60bc62c2e6;hb=5738e60dc3724dc7d022d0fd2d5f2dbe337be470;hpb=91e3d8f38e4ccdfbfb9c351e05b487ee899c9e47

diff --git a/sockets.lisp b/sockets.lisp
index 259b7b0..f7c8408 100644
--- a/sockets.lisp
+++ b/sockets.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg with excerpts from portableaserve
 ;;;; Date Started:  Jun 2003
 ;;;;
-;;;; $Id: sockets.lisp,v 1.4 2003/07/11 06:58:32 kevin Exp $
+;;;; $Id: sockets.lisp,v 1.5 2003/07/21 00:52:56 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:kmrcl)
@@ -35,7 +35,7 @@ setsockopt SO_REUSEADDR if :reuse is not nil"
 (defun create-inet-listener (port &key (format :text) (reuse-address t))
   #+cmu (ext:create-inet-listener port)
   #+allegro
-  (socket:make-socket :connect :passive :local-port port :format :binary
+  (socket:make-socket :connect :passive :local-port port :format format
 		      :address-family 
 		      (if (stringp port)
 			  :file