Commit 78155238 authored by Zach Beane's avatar Zach Beane
Browse files

Add SOCKET:SOCKET-CONTROL.

Does nothing at the moment.
parent 99dbcae3
......@@ -145,3 +145,7 @@
(defun socket::make-ssl-client-stream (&rest args)
(declare (ignore args))
(error "Not implemented -- MAKE-SSL-CLIENT-STREAM"))
(defun socket:socket-control (socket &key read-timeout write-timeout)
(declare (ignore socket read-timeout write-timeout))
nil)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment