r1523: *** empty log message ***

diff --git a/ChangeLog b/ChangeLog
index 153f535a1aed7870fea06135ae72a4954a80d5c9..d9bace39663d48bd98655500d8769bc08afb05ee 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,12 @@
+9 Mar 2002
+       - Changed def-routine name to def-function
+       - Fixed bug in def-function for Lispworks
+       - Fixed error in +null-c-string-pointer+ name
+       - Fixed error in (make-null-pointer) for Lispworks
+       
+       
 8 Mar 2002
        - Added ZIP file output with LF->CRLF translations to distribution
        - Modified def-enum to use uffi:def-constant rather than
        cl:defconstant
        
-9 Mar 2002
-       - Changed def-routine name to def-function
-       - Fixed bug in def-function for Lispworks

diff --git a/Makefile b/Makefile
index 47318fb6a0def8534315b07c1377b8c722c145ae..aff1142bb47b39a39ec3c6bce5838c4dd6d3f49f 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.4 2002/03/09 21:53:58 kevin Exp $
+#  CVS Id:   $Id: Makefile,v 1.5 2002/03/10 00:11:47 kevin Exp $
 #
 #  Copyright (c) 2002 by Kevin M. Rosenberg
 #
@@ -41,7 +41,7 @@ realclean: clean
 docs:
        @(cd doc; make dist-doc)
 
-VERSION=0.1.3-pre
+VERSION=0.1.3
 DISTDIR=uffi-${VERSION}
 DIST_TARBALL=${DISTDIR}.tar.gz
 DIST_ZIP=${DISTDIR}.zip

diff --git a/src/objects.cl b/src/objects.cl
index a114b653921004d4a9352668469bf793d2deb02d..6167636a7fb1c57a36f9893215788d0ddb73bdf4 100644 (file)
--- a/src/objects.cl
+++ b/src/objects.cl
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Copyright (c) 2002 Kevin M. Rosenberg
 ;;;;
-;;;; $Id: objects.cl,v 1.1 2002/03/09 19:55:33 kevin Exp $
+;;;; $Id: objects.cl,v 1.2 2002/03/10 00:11:47 kevin Exp $
 ;;;;
 ;;;; This file is part of the UFFI. 
 ;;;;
@@ -64,7 +64,7 @@
   
   #+cmu `(system:int-sap 0)
   #+allegro 0
-  #+lispworks `(fli:make-pointer :address 0 :type ,type)
+  #+lispworks `(fli:make-pointer :address 0 :type ',type)
   )
 
 (defmacro deref-pointer (ptr type)

diff --git a/src/strings.cl b/src/strings.cl
index 6eeea2c60ff7d7bc7778940450c367cc4abd8227..0cbf721d9e739534a3b740cf24d01ef5d1f4b184 100644 (file)
--- a/src/strings.cl
+++ b/src/strings.cl
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Copyright (c) 2002 Kevin M. Rosenberg
 ;;;;
-;;;; $Id: strings.cl,v 1.1 2002/03/09 19:55:33 kevin Exp $
+;;;; $Id: strings.cl,v 1.2 2002/03/10 00:11:47 kevin Exp $
 ;;;;
 ;;;; This file is part of the UFFI. 
 ;;;;
@@ -52,7 +52,7 @@ that CMU automatically converts strings from c-calls."
 (defmacro convert-to-c-string (obj)
   #+lispworks
   `(if (null ,obj)
-       +null-c-string-ptr+
+       +null-c-string-pointer+
      (fli:convert-to-foreign-string ,obj))
   #+allegro
   `(if (null ,obj)
@@ -101,7 +101,7 @@ that CMU automatically converts strings from c-calls."
 (defmacro convert-to-foreign-string (obj)
   #+lispworks
   `(if (null ,obj)
-       +null-c-string-ptr+
+       +null-c-string-pointer+
      (fli:convert-to-foreign-string ,obj))
   #+allegro
   `(if (null ,obj)