mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

contrib: ecl-cdb: fix invalid type declarations

Browse source 
There is no type :uint32-t nor unsigned-integer.
This commit is contained in:
Daniel Kochmański 2023-09-11 14:11:51 +02:00
parent cd14663e7e
commit f27663bea6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -73,7 +73,7 @@
(ash (read-byte stream) 24)))
(defun write-word (byte stream)
(declare (type :uint32-t byte)
(declare (type (unsigned-byte 32) byte)
(stream stream)
(optimize speed (safety 0)))
(write-byte (logand #xff byte) stream)
@ -88,7 +88,7 @@
(defun to-cdb-hash (key-vector)
(declare (type (array (unsigned-byte 8) (*)) key-vector))
(loop with h of-type (unsigned-integer 32) = 5381
(loop with h of-type (unsigned-byte 32) = 5381
for byte of-type (unsigned-byte 8) across key-vector
do (setf h (logxor (logand #xffffffff
(+ (ash (logand #.(ash #xffffffff -5) h)