Permalink
Browse files

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

Patch by @ralcantaraperez on github.
  • Loading branch information...
1 parent d94fd03 commit 8773097989c217f48f7e9f4f182bb8c423a30bb2 @froydnj committed Sep 3, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/ciphers/cipher.lisp
View
@@ -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)))

0 comments on commit 8773097

Please sign in to comment.