OSCL/Deflate
2
0
Fork 0
mirror of https://github.com/pmai/Deflate.git synced 2025-12-21 21:14:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix LispWorks simple-int32-vector declarations

Browse Source
This commit is contained in:
Pierre R. Mai
2020-02-15 12:15:32 +01:00
parent a1677371c4
commit ba28e9caa8
4 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
deflate.lisp
View File

@ -1,6 +1,6 @@
;;;; Deflate --- RFC 1951 Deflate Decompression
;;;;
;;;; Copyright (C) 2000-2013 PMSF IT Consulting Pierre R. Mai.
;;;; Copyright (C) 2000-2020 PMSF IT Consulting Pierre R. Mai.
;;;;
;;;; Permission is hereby granted, free of charge, to any person obtaining
;;;; a copy of this software and associated documentation files (the
@ -133,7 +133,7 @@
"CRC-32 Polynomial as per RFC 1952.")
(declaim (ftype #-lispworks (function () (simple-array (unsigned-byte 32) (256)))
#+lispworks (function () (sys:simple-int32-vector 256))
#+lispworks (function () sys:simple-int32-vector)
generate-crc32-table))
(defun generate-crc32-table ()
(let ((result #-lispworks (make-array 256 :element-type '(unsigned-byte 32))
@ -182,7 +182,7 @@
(cur (sys:int32-lognot (sys:integer-to-int32
(dpb (ldb (byte 32 0) crc) (byte 32 0)
(if (logbitp 31 crc) -1 0))))))
(declare (type (sys:simple-int32-vector 256) table)
(declare (type sys:simple-int32-vector table)
(type sys:int32 cur))
(dotimes (i end)
(declare (type fixnum i))