Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

use upgraded-array-element-type for comparisons, fixes #24

Patch by @ralcantaraperez on github.
  • Loading branch information...
commit 8773097989c217f48f7e9f4f182bb8c423a30bb2 1 parent d94fd03
@froydnj authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  src/ciphers/cipher.lisp
View
3  src/ciphers/cipher.lisp
@@ -284,7 +284,8 @@ cipher or is not a cipher object."))
(defun generate-key-verifier-methods (name key-length-spec)
(let ((acceptable-key-lengths (acceptable-key-lengths key-length-spec)))
`(defmethod verify-key ((cipher ,name) (key vector))
- (unless (equal (array-element-type key) '(unsigned-byte 8))
+ (unless (equal (array-element-type key)
+ (upgraded-array-element-type '(unsigned-byte 8)))
(error 'type-error :expected-type '(vector (unsigned-byte 8))
:datum key))
(let ((length (length key)))
Please sign in to comment.
Something went wrong with that request. Please try again.