We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8b63e00 commit 4af0894Copy full SHA for 4af0894
quicklisp/http.lisp
@@ -226,7 +226,8 @@
226
(call-processor fun cbuf (start cbuf) (end cbuf))))
227
228
(defun multi-cmatch (matchers cbuf)
229
- (let (start end)
+ (let ((start nil)
230
+ (end nil))
231
(dolist (matcher matchers (values start end))
232
(multiple-value-bind (s e)
233
(match matcher (data cbuf)
quicklisp/network.lisp
@@ -128,7 +128,7 @@
128
closes the connection afterwareds via CLOSE-CONNECTION in an
129
unwind-protect. See also WITH-CONNECTION.")
130
(:implementation t
131
- (let (connection)
+ (let ((connection nil))
132
(unwind-protect
133
(progn
134
(setf connection (open-connection host port))
0 commit comments