X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=test-clsql.cl;fp=test-clsql.cl;h=0507e140ec472007e204a1c0b53fbc7b00b649d1;hb=21a11d58a1d421db0c53a063178dd2bc02663a15;hp=78f83dec239c802cce1349da682f79fa5c7c198d;hpb=9d53eaaae02609b0d7076be0853ff0f0ab06b644;p=clsql.git diff --git a/test-clsql.cl b/test-clsql.cl index 78f83de..0507e14 100644 --- a/test-clsql.cl +++ b/test-clsql.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: test-clsql.cl,v 1.7 2002/03/25 23:22:07 kevin Exp $ +;;;; $Id: test-clsql.cl,v 1.8 2002/03/25 23:48:46 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -78,10 +78,10 @@ (create-test-table db) (pprint (clsql:query "select * from test_clsql" :database db - :field-types :auto)) + :types :auto)) (pprint (clsql:map-query 'vector #'list "select * from test_clsql" :database db - :field-types :auto)) ;;'(:int :double t))) + :types :auto)) ;;'(:int :double t))) (drop-test-table db)) (clsql:disconnect :database db))) ) @@ -96,7 +96,7 @@ (format nil "INSERT INTO test_clsql VALUES (~d,~d,'~a')" i (sqrt i) (format nil "~d" (sqrt i))) db)) - (let ((res (clsql-mysql::database-query-result-set "select * from test_clsql" db :full-set t :field-types nil))) + (let ((res (clsql-mysql::database-query-result-set "select * from test_clsql" db :full-set t :types nil))) (format t "~&Number rows: ~D~%" (mysql:mysql-num-rows (clsql-mysql::mysql-result-set-res-ptr res))) (clsql-mysql::database-dump-result-set res db)) (clsql-mysql::database-execute-command "DROP TABLE test_clsql" db)