Substitute (IF test T else) with (OR test else)

- Apparent intent: either test evaluates true, or else is evaluated
- One line less code

Author: kilianmh

quicklisp/http.lisp

@@ -80,8 +80,7 @@
        ,@(mapcar (lambda (case)
                    (destructuring-bind (keys &rest body)
                        case
-                     `(,(if (eql keys t)
-                            t
+                     `(,(or (eql keys t)
                             (convert-case-keys keys))
                         ,@body)))
                  cases))))