OSCL/Deflate
2
0
Fork 0
mirror of https://github.com/pmai/Deflate.git synced 2025-12-21 13:04:30 +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
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
=============

4
deflate.asd
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
@ -42,5 +42,5 @@
:author "Pierre R. Mai <pmai@pmsf.de>"
:maintainer "Pierre R. Mai <pmai@pmsf.de>"
:licence "MIT/X11"
:version "1.0.2"
:version "1.0.3"
:components ((:file "deflate")))

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))