Change AND to WHEN; Change order of COND clauses

xach · Oct 12, 2016 · 56f2ad9 · 56f2ad9
1 parent 8765b8c
commit 56f2ad9
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/request.lisp b/request.lisp
@@ -165,13 +165,13 @@
 
 (defmethod slot-unbound ((class t) (request request) (slot (eql 'content-md5)))
   (setf (content-md5 request)
-        (and *use-content-md5*
-             (let ((content (content request)))
-               (cond ((pathnamep content) (file-md5/b64 content))
-                     ((vectorp content) (vector-md5/b64 content))
-                     ((stringp content)
-                      (vector-md5/b64
-                       (flexi-streams:string-to-octets content))))))))
+        (when *use-content-md5*
+          (let ((content (content request)))
+            (cond ((pathnamep content) (file-md5/b64 content))
+                  ((stringp content)
+                   (vector-md5/b64
+                    (flexi-streams:string-to-octets content)))
+                  ((vectorp content) (vector-md5/b64 content)))))))
 
 (defmethod slot-unbound ((class t) (request request) (slot (eql 'signed-string)))
   (setf (signed-string request)