From 40eec63c2cd6be9e6842507a91e8f0b8394f0ae8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 7 Apr 2015 21:32:54 +0200 Subject: [PATCH] ecl-sdb: Fix bogus name in declaration. Closes #27. --- contrib/ecl-cdb/ecl-cdb.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/ecl-cdb/ecl-cdb.lisp b/contrib/ecl-cdb/ecl-cdb.lisp index 962ac96bf..834704bb9 100644 --- a/contrib/ecl-cdb/ecl-cdb.lisp +++ b/contrib/ecl-cdb/ecl-cdb.lisp @@ -87,7 +87,7 @@ do (write-word v stream))) (defun to-cdb-hash (key-vector) - (declare (type (array (unsigned-byte 8) (*)) vector)) + (declare (type (array (unsigned-byte 8) (*)) key-vector)) (loop with h of-type (unsigned-integer 32) = 5381 for byte of-type (unsigned-byte 8) across key-vector do (setf h (logxor (logand #xffffffff