From ba28e9caa81c357542abebe6064bf829b5377fad Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Sat, 15 Feb 2020 12:15:32 +0100 Subject: [PATCH] Fix LispWorks simple-int32-vector declarations --- COPYING | 2 +- NEWS | 5 +++++ deflate.asd | 4 ++-- deflate.lisp | 6 +++--- 4 files changed, 11 insertions(+), 6 deletions(-) diff --git a/COPYING b/COPYING index 7b02224..0bc21f4 100644 --- a/COPYING +++ b/COPYING @@ -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 diff --git a/NEWS b/NEWS index ca95c5a..507bc9b 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,8 @@ +Release 1.0.3 +============= + + * Correct type declarations for LispWorks simple int32 vectors. + Release 1.0.2 ============= diff --git a/deflate.asd b/deflate.asd index 9b659d4..de7f5a3 100644 --- a/deflate.asd +++ b/deflate.asd @@ -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 " :maintainer "Pierre R. Mai " :licence "MIT/X11" - :version "1.0.2" + :version "1.0.3" :components ((:file "deflate"))) diff --git a/deflate.lisp b/deflate.lisp index 3ddb36b..aea6492 100644 --- a/deflate.lisp +++ b/deflate.lisp @@ -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))