From 56f2ad9fade7bcbac1c52820940776ea71b60fd6 Mon Sep 17 00:00:00 2001 From: wsg Date: Wed, 12 Oct 2016 13:33:44 +0200 Subject: [PATCH] Change AND to WHEN; Change order of COND clauses --- request.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/request.lisp b/request.lisp index e124fd3..a1c2c42 100644 --- 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)