projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5354: *** empty log message ***
[kmrcl.git]
/
sockets.lisp
diff --git
a/sockets.lisp
b/sockets.lisp
index 259b7b0fc448fdb69b78f3fb9ad41e60bc62c2e6..f7c8408476e038fd188f69a86f3eaba458b4c1f7 100644
(file)
--- a/
sockets.lisp
+++ b/
sockets.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg with excerpts from portableaserve
;;;; Date Started: Jun 2003
;;;;
;;;; 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)
;;;; *************************************************************************
(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
(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
:address-family
(if (stringp port)
:file