From 450dc904b65d24f9c4f19b39b330bec596ee183c Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 1 Jun 2004 03:12:41 +0000 Subject: [PATCH] r9539: Automated commit for Debian build of kmrcl upstream-version-1.72 --- debian/changelog | 6 ++++++ sockets.lisp | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/debian/changelog b/debian/changelog index 7d1403a..861e2d5 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.72-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Mon, 31 May 2004 21:12:35 -0600 + cl-kmrcl (1.71-1) unstable; urgency=low * New upstream diff --git a/sockets.lisp b/sockets.lisp index 5bcc7cb..2fa8547 100644 --- a/sockets.lisp +++ b/sockets.lisp @@ -179,12 +179,12 @@ setsockopt SO_REUSEADDR if :reuse is not nil" sock :input t :output t :element-type 'base-char) sock)) #+cmu - (let ((sock (ext:connect-to-inet-socket host port))) + (let ((sock (ext:connect-to-inet-socket server port))) (values (sys:make-fd-stream sock :input t :output t :element-type 'base-char) sock)) #+openmcl - (let ((sock (ccl:make-socket :remote-host host :remote-port port ))) + (let ((sock (ccl:make-socket :remote-host server :remote-port port ))) (values sock sock)) ) -- 2.34.1