From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 14 Mar 2002 21:32:23 +0000 (+0000)
Subject: r1557: *** empty log message ***
X-Git-Tag: v1.6.1~597
X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=4dad9a2d968de896ec97c7470620ab921fcf275f

r1557: *** empty log message ***
---

diff --git a/Makefile b/Makefile
index d773bc2..4ac6c40 100644
--- a/Makefile
+++ b/Makefile
@@ -5,7 +5,7 @@
 #  Programer:    Kevin M. Rosenberg, M.D.
 #  Date Started: Mar 2002
 #
-#  CVS Id:   $Id: Makefile,v 1.13 2002/03/14 21:27:00 kevin Exp $
+#  CVS Id:   $Id: Makefile,v 1.14 2002/03/14 21:32:23 kevin Exp $
 #
 # This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 #
@@ -31,11 +31,11 @@ realclean: clean
 docs:
 	@(cd doc; make dist-doc)
 
-VERSION=0.2.4
+VERSION=0.2.5
 DISTDIR=uffi-${VERSION}
 DIST_TARBALL=${DISTDIR}.tar.gz
 DIST_ZIP=${DISTDIR}.zip
-SOURCE_FILES=src doc examples Makefile COPYING COPYRIGHT README \
+SOURCE_FILES=src doc examples Makefile uffi.system COPYRIGHT README \
 	 INSTALL uffi.lsm ChangeLog NEWS test-examples.cl set-logical.cl
 
 dist: realclean docs
diff --git a/src/aggregates.cl b/src/aggregates.cl
index 931aae7..1475bd9 100644
--- a/src/aggregates.cl
+++ b/src/aggregates.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: aggregates.cl,v 1.4 2002/03/14 21:03:12 kevin Exp $
+;;;; $Id: aggregates.cl,v 1.5 2002/03/14 21:32:23 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -26,6 +26,7 @@ of the enum-name name, separator-string, and field-name"
   (let ((counter 0)
 	(cmds nil)
 	(constants nil))
+    (declare (fixnum counter))
     (dolist (arg args)
       (let ((name (if (listp arg) (car arg) arg))
 	    (value (if (listp arg) 
diff --git a/src/primitives.cl b/src/primitives.cl
index ee7695f..ee52980 100644
--- a/src/primitives.cl
+++ b/src/primitives.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: primitives.cl,v 1.4 2002/03/14 21:03:12 kevin Exp $
+;;;; $Id: primitives.cl,v 1.5 2002/03/14 21:32:23 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -28,6 +28,8 @@
 (defmacro def-type (name type)
   "Generates a (deftype) statement for CL. Currently, only CMUCL
 supports takes advantage of this optimization."
+  #+(or lispworks allegro)
+  (declare (ignore type))
   #+(or lispworks allegro)
   `(deftype ,name () t)
   #+cmu