From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 10 Mar 2002 00:11:54 +0000 (+0000)
Subject: r1523: *** empty log message ***
X-Git-Tag: v1.6.1~625
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;ds=sidebyside;h=40314c219af7f3c1117836a66f4028a52704437d;p=uffi.git

r1523: *** empty log message ***
---

diff --git a/ChangeLog b/ChangeLog
index 153f535..d9bace3 100644
--- 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 47318fb..aff1142 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.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 a114b65..6167636 100644
--- 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 6eeea2c..0cbf721 100644
--- 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)