CRC-32: Difference between revisions
→Lisp Code: Use newer style iteration.
(→{{header|TXR}}: Add FFI-to-Zlib version.) |
(→Lisp Code: Use newer style iteration.) |
||
Line 2,271:
(let ((crc #xffffffff)
(l (len buf)))
(
(set crc (logxor [crc-tab (logand (logxor crc [buf i]) #xff)]
(ash crc -8))))
(logxor crc #xffffffff)))</lang>
{{out}}
<pre>$ ./txr -i crc.tl
| |||