From 5257515973703e60f7ad3eca63c9a1ea0409cdd1 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 13 May 2004 10:41:14 +0000
Subject: [PATCH] r9344: fix type on sqlite

---
 ChangeLog                 |  2 ++
 LATEST-TEST-RESULTS       | 45 +++++++--------------------------------
 db-sqlite/sqlite-sql.lisp |  2 +-
 sql/utils.lisp            |  9 +++++---
 tests/test-init.lisp      |  2 +-
 5 files changed, 18 insertions(+), 42 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cd072d8..79d0aec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,6 @@
 12 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+	* Version 2.10.17
+	* LATEST-TEST-RESULTS: Run on all platforms, add AMD64
 	* sql/sql.lisp: Add FOR-EACH-ROW macro from clsql-classic/sql.lisp
 	* db-sqlite/sqlite-uffi-api.lisp: Fix row-pointer type
 	* *: Fix minor style warnings
diff --git a/LATEST-TEST-RESULTS b/LATEST-TEST-RESULTS
index 705fe84..746c71e 100644
--- a/LATEST-TEST-RESULTS
+++ b/LATEST-TEST-RESULTS
@@ -1,39 +1,10 @@
-Version 2.10.15 run on May 10, 2004 on x86 and PowerPC platforms
+Version 2.10.17 run on May 13, 2004 on x86, x86_64, and PowerPC platforms
 
-POSTGRESQL: All 174 tests passed (X86, SBCL).
-POSTGRESQL-SOCKET: All 174 tests passed (X86, SBCL).
-MYSQL: All 158 tests passed (X86, SBCL).
-SQLITE: All 168 tests passed (X86, SBCL).
-ODBC/POSTGRESQL: All 174 tests passed (X86, SBCL).
-ODBC/MYSQL: All 158 tests passed (X86, SBCL).
-POSTGRESQL: All 174 tests passed (x86, Allegro CL Enterprise Edition).
-POSTGRESQL-SOCKET: All 174 tests passed (x86, Allegro CL Enterprise Edition).
-MYSQL: All 158 tests passed (x86, Allegro CL Enterprise Edition).
-SQLITE: All 168 tests passed (x86, Allegro CL Enterprise Edition).
-ODBC/POSTGRESQL: All 174 tests passed (x86, Allegro CL Enterprise Edition).
-ODBC/MYSQL: All 158 tests passed (x86, Allegro CL Enterprise Edition).
-POSTGRESQL: All 174 tests passed (X86, CMU Common Lisp).
-POSTGRESQL-SOCKET: All 174 tests passed (X86, CMU Common Lisp).
-MYSQL: All 158 tests passed (X86, CMU Common Lisp).
-SQLITE: All 168 tests passed (X86, CMU Common Lisp).
-ODBC/POSTGRESQL: All 174 tests passed (X86, CMU Common Lisp).
-ODBC/MYSQL: All 158 tests passed (X86, CMU Common Lisp).
-POSTGRESQL: All 174 tests passed (NIL, LispWorks).
-POSTGRESQL-SOCKET: All 174 tests passed (NIL, LispWorks).
-MYSQL: All 158 tests passed (NIL, LispWorks).
-SQLITE: All 168 tests passed (NIL, LispWorks).
-ODBC/POSTGRESQL: All 174 tests passed (NIL, LispWorks).
-ODBC/MYSQL: All 158 tests passed (NIL, LispWorks).
 
-POSTGRESQL: All 174 tests passed (PowerPC, SBCL).
-POSTGRESQL-SOCKET: All 174 tests passed (PowerPC, SBCL).
-MYSQL: All 158 tests passed (PowerPC, SBCL).
-SQLITE: All 168 tests passed (PowerPC, SBCL).
-ODBC/MYSQL: All 158 tests passed (PowerPC, SBCL).
-ODBC/POSTGRESQL: All 174 tests passed (PowerPC, SBCL).
-POSTGRESQL: All 174 tests passed (ppc, OpenMCL).
-POSTGRESQL-SOCKET: All 174 tests passed (ppc, OpenMCL).
-MYSQL: All 158 tests passed (ppc, OpenMCL).
-SQLITE: All 168 tests passed (ppc, OpenMCL).
-ODBC/MYSQL: All 158 tests passed (ppc, OpenMCL).
-ODBC/POSTGRESQL: All 174 tests passed (ppc, OpenMCL).
+postgresql: All 174 tests passed (64-bit AMD64, Allegro CL Enterprise Edition).
+postgresql-socket: All 174 tests passed (64-bit AMD64, Allegro CL Enterprise Edition).
+mysql: All 158 tests passed (64-bit AMD64, Allegro CL Enterprise Edition).
+sqlite: All 168 tests passed (64-bit AMD64, Allegro CL Enterprise Edition).
+odbc/postgresql: All 174 tests passed (64-bit AMD64, Allegro CL Enterprise Edition).
+odbc/mysql: All 158 tests passed (64-bit AMD64, Allegro CL Enterprise Edition).
+
diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index befc885..6d7bbfa 100644
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -198,7 +198,7 @@
 			 #-clisp
 			 (clsql-uffi:convert-raw-field
 			  (uffi:deref-array
-			   (uffi:deref-pointer row 'sqlite:sqlite-row-pointer) '(:array (* :char)) i)
+			   (uffi:deref-pointer row 'sqlite:sqlite-row-pointer) '(:array (* :unsigned-char)) i)
 			  result-types
 			  i)
 			 #+clisp
diff --git a/sql/utils.lisp b/sql/utils.lisp
index e1de857..8763216 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -317,12 +317,12 @@ list of characters and replacement strings."
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (when (char= #\a (schar (symbol-name '#:a) 0))
-    (pushnew :lowercase-reader *features*)))
+    (pushnew :clsql-lowercase-reader *features*)))
 
 (defun symbol-name-default-case (str)
-  #-lowercase-reader
+  #-clsql-lowercase-reader
   (string-upcase str)
-  #+lowercase-reader
+  #+clsql-lowercase-reader
   (string-downcase str))
 
 (defun convert-to-db-default-case (str database)
@@ -341,3 +341,6 @@ list of characters and replacement strings."
     (keyword name)
     (string (nth-value 0 (intern (symbol-name-default-case name) :keyword)))
     (symbol (nth-value 0 (intern (symbol-name name) :keyword)))))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setq cl:*features* (delete :clsql-lowercase-reader cl:*features*)))
diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 10caf4c..9b2597e 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -501,7 +501,7 @@
 				(lisp-implementation-version)
 				(machine-type))))
 	  (when *sexp-report-stream*
-	    (write sexp-error :stream *sexp-report-stream*)) 
+	    (write sexp-error :stream *sexp-report-stream* :readably t)) 
 	  (push sexp-error *error-list*))
 	
 	(format *report-stream* "~&Tests skipped:")
-- 
2.34.1