Skip to content

Commit 5406198

Browse files
committed
Substitute (IF test T else) with (OR test else)
- Apparent intent: either test evaluates true, or else is evaluated - One line less code
1 parent 5ff40da commit 5406198

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

quicklisp/http.lisp

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -80,8 +80,7 @@
8080
,@(mapcar (lambda (case)
8181
(destructuring-bind (keys &rest body)
8282
case
83-
`(,(if (eql keys t)
84-
t
83+
`(,(or (eql keys t)
8584
(convert-case-keys keys))
8685
,@body)))
8786
cases))))

0 commit comments

Comments
 (0)