Commit ac729f6e authored by ehuelsmann's avatar ehuelsmann
Browse files

Fix semantic bugs: add 2 closing parens.

parent e8073e9f
......@@ -36,7 +36,7 @@
:real-error condition
:socket socket))))))
(defun socket-connect (host port &key (element-type 'character)
(defun socket-connect (host port &key (element-type 'character))
(let ((socket))
(setf socket
(with-mapped-conditions (socket)
......@@ -83,4 +83,4 @@
;; structure is too long.
(with-mapped-conditions ()
(list (hbo-to-vector-quad (socket:lookup-hostname
(host-to-hostname name)))))
(host-to-hostname name))))))
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