sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cdb: fix declaration

Browse source
This commit is contained in:
Daniel Kochmański 2017-01-28 18:14:06 +01:00 • committed by Daniel Kochmanski
parent 851dc899eb
commit da4669d792
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -73,7 +73,7 @@
(ash (read-byte stream) 24))) (ash (read-byte stream) 24)))
(defun write-word (byte stream) (defun write-word (byte stream)
(declare (type (unsigned-byte 32) byte) (declare (type :uint32-t byte)
(stream stream) (stream stream)
(optimize speed (safety 0))) (optimize speed (safety 0)))
(write-byte (logand #xff byte) stream) (write-byte (logand #xff byte) stream)