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
 #
 #  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
 #
 #
 # 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)
 
 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
 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
         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
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; 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))
   (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) 
     (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
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; 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."
 (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
   #+(or lispworks allegro)
   `(deftype ,name () t)
   #+cmu