r1667: Fixed type specifier

diff --git a/ChangeLog b/ChangeLog
index cd3d796795333a66f1cd55fa3d47c8bffd24a35b..3b5363be9cb47ebe687d365e5e94eb3e8afa2d3b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,9 @@
        Implemented direct socket reading for field type :double
 
        * Added usage information for :types to documentation
+
+       * interfaces/mysql/mysql-sql.cl
+       Fixed type specifiers in ato* calls
        
 25 Mar 2002 Kevin Rosenberg (kevin@rosenberg.net)
 

diff --git a/interfaces/mysql/mysql-sql.cl b/interfaces/mysql/mysql-sql.cl
index 576438e04f835b0518aeca0f02ab71cab035b112..32db9b64bac4131353610db423c632b55a8250d5 100644 (file)
--- a/interfaces/mysql/mysql-sql.cl
+++ b/interfaces/mysql/mysql-sql.cl
@@ -8,7 +8,7 @@
 ;;;;                Original code by Pierre R. Mai 
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: mysql-sql.cl,v 1.10 2002/03/25 23:48:46 kevin Exp $
+;;;; $Id: mysql-sql.cl,v 1.11 2002/03/27 00:25:03 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -85,15 +85,15 @@
     nil)))
 
 (uffi:def-function "atoi"
-    ((str :cstring))
+    ((str (* :unsigned-char)))
   :returning :int)
 
 (uffi:def-function "atol"
-    ((str :cstring))
+    ((str (* :unsigned-char)))
   :returning :long)
 
 (uffi:def-function "atof"
-    ((str :cstring))
+    ((str (* :unsigned-char)))
   :returning :double)
 
 (defun convert-raw-field (char-ptr types index)