r9344: fix type on sqlite

diff --git a/ChangeLog b/ChangeLog
index cd072d8a4c68b937b13eb55d69f8283f9d2c62e0..79d0aec0eeef5c60585606b2d0ad37547ffcc779 100644 (file)
--- 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 705fe84ec3f233d32f13435b8a06230c7cac00a5..746c71e48512dca4cb6f21f053493328fb11b400 100644 (file)
--- 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 befc8850e497b850a7a579923b9f679ac480034a..6d7bbfa63f612627ea55e2b399e1a29ce379eb4d 100644 (file)
--- 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 e1de8571c4761c4eb83cfb04ec863a198857e9a9..8763216a34f951607c1c2c4e1bd4e89c73645518 100644 (file)
--- 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 10caf4c16bbb366b654340c35a3e009d75fad1a0..9b2597e171a6c9319aa9ebe1435e452adf0a2438 100644 (file)
--- 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:")