r1557: *** empty log message ***

diff --git a/Makefile b/Makefile
index d773bc2fb83a385b81bfbeea7a13d59bfd92bf16..4ac6c409acacdee7dee54219d7949eb438c166e6 100644 (file)
--- 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 931aae79450cc54b5680c9348cef30e5508c0956..1475bd9df7845d2fdc4dad568841a2b3d3b1f477 100644 (file)
--- 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 ee7695f06fb95b6f0f011910246d1d77eaf9cba8..ee529806dcd8a55c3f981be65c9d2a4337936ba0 100644 (file)
--- 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