From e04478ee7c288f9011ab5b04a5f9001654cc7481 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 27 Mar 2002 00:25:03 +0000
Subject: [PATCH] r1667: Fixed type specifier

---
 ChangeLog                     | 3 +++
 interfaces/mysql/mysql-sql.cl | 8 ++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cd3d796..3b5363b 100644
--- 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 576438e..32db9b6 100644
--- 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)
-- 
2.34.1