Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 69d9c6e)
ecl-sdb: Fix bogus name in declaration. Closes #27.
authorDaniel Kochmański <jackdaniel@hellsgate.pl>
Tue, 7 Apr 2015 19:32:54 +0000 (21:32 +0200)
committerDaniel Kochmański <jackdaniel@hellsgate.pl>
Tue, 7 Apr 2015 19:32:54 +0000 (21:32 +0200)
contrib/ecl-cdb/ecl-cdb.lisp patch | blob | blame | history

diff --git a/contrib/ecl-cdb/ecl-cdb.lisp b/contrib/ecl-cdb/ecl-cdb.lisp
index 962ac96..834704b 100644 (file)
--- 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
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)