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

2
COPYING
View File

@ -1,4 +1,4 @@
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 Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the a copy of this software and associated documentation files (the

5
NEWS
View File

@ -1,3 +1,8 @@
Release 1.0.3
=============
* Correct type declarations for LispWorks simple int32 vectors.
Release 1.0.2 Release 1.0.2
============= =============

4
deflate.asd
View File

@ -1,6 +1,6 @@
;;;; Deflate --- RFC 1951 Deflate Decompression ;;;; 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 ;;;; Permission is hereby granted, free of charge, to any person obtaining
;;;; a copy of this software and associated documentation files (the ;;;; a copy of this software and associated documentation files (the
@ -42,5 +42,5 @@
:author "Pierre R. Mai <pmai@pmsf.de>" :author "Pierre R. Mai <pmai@pmsf.de>"
:maintainer "Pierre R. Mai <pmai@pmsf.de>" :maintainer "Pierre R. Mai <pmai@pmsf.de>"
:licence "MIT/X11" :licence "MIT/X11"
:version "1.0.2" :version "1.0.3"
:components ((:file "deflate"))) :components ((:file "deflate")))

6
deflate.lisp
View File

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