common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Supress style-warning

Browse source
This commit is contained in:
Douglas Katzman 2021-06-22 19:41:20 -04:00
parent b01c2df3a6
commit 1d145d8076
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
contrib/sb-md5/md5.lisp
View file

@ -394,6 +394,7 @@ starting from `offset' into the given 16 word MD5 block."
(type simple-string buffer)
(optimize (speed 3) (safety 0) (space 0) (debug 0)
#+lw-int32 (float 0) #+lw-int32 (hcl:fixnum-safety 0)))
(declare (ignorable block buffer offset))
#+(and :cmu :little-endian)
(kernel:bit-bash-copy
buffer (+ (* vm:vector-data-offset vm:word-bits) (* offset vm:byte-bits))