CRYPTOGRAPHY: remove redundant check-types

jonatack · Aug 30, 2019 · 25e8b8a · 25e8b8a
1 parent 6825e50
commit 25e8b8a
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/src/cryptography.lisp b/src/cryptography.lisp
@@ -30,8 +30,6 @@
 
 (defun message (path nonce)
   "Message composed of (PATH + SHA256(NONCE + POST data)) in octets."
-  (check-type path  (and simple-string (not null)))
-  (check-type nonce (and simple-string (not null)))
   (let ((post-params-data (concatenate 'string nonce "nonce=" nonce)))
     (concatenate '(simple-array (unsigned-byte 8) (*))
                  (map '(simple-array (unsigned-byte 8) (*)) 'char-code path)