mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

ecl-sdb: Fix bogus name in declaration. Closes #27.

Browse source
This commit is contained in:
Daniel Kochmański 2015-04-07 21:32:54 +02:00
parent 69d9c6e43b
commit 40eec63c2c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
contrib/ecl-cdb/ecl-cdb.lisp
View file

@ -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