Skip to content

Commit 4af0894

Browse files
committed
Initialize LET variable bindings with NIL
- Always initialize LET variables - Easy to misread what is initialized to what
1 parent 8b63e00 commit 4af0894

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

quicklisp/http.lisp

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -226,7 +226,8 @@
226226
(call-processor fun cbuf (start cbuf) (end cbuf))))
227227

228228
(defun multi-cmatch (matchers cbuf)
229-
(let (start end)
229+
(let ((start nil)
230+
(end nil))
230231
(dolist (matcher matchers (values start end))
231232
(multiple-value-bind (s e)
232233
(match matcher (data cbuf)

quicklisp/network.lisp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -128,7 +128,7 @@
128128
closes the connection afterwareds via CLOSE-CONNECTION in an
129129
unwind-protect. See also WITH-CONNECTION.")
130130
(:implementation t
131-
(let (connection)
131+
(let ((connection nil))
132132
(unwind-protect
133133
(progn
134134
(setf connection (open-connection host port))

0 commit comments

Comments
 (0)