From 74ef1dfc4aad7cbd34f757ca8a9710402a21cc8f Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Sat, 10 Aug 2024 17:56:44 +0000 Subject: [PATCH] Fix. --- src/ev/tcp.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/ev/tcp.lisp b/src/ev/tcp.lisp index 508d290..05b289f 100644 --- a/src/ev/tcp.lisp +++ b/src/ev/tcp.lisp @@ -241,8 +241,7 @@ (multiple-value-bind (remote-addr remote-port) (get-remote-addr-and-port) (let ((socket (make-socket :fd client-fd :tcp-read-cb 'tcp-read-cb - :remote-addr remote-addr :remote-port remote-port - :ssl-stream (make-ssl-stream client-fd)))) + :remote-addr remote-addr :remote-port remote-port))) (let* ((callbacks (callbacks fd)) (read-cb (getf callbacks :read-cb)) (connect-cb (getf callbacks :connect-cb)))