cleaning up patches, and fixing missing pkey bugs in sqlite3

[clsql.git] / tests / test-basic.lisp

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 4ccc02d97b11acfc4223412c1ffc1d59d43b5433..4d277e358d14ba2c722940c36e02df888371048d 100644 (file)
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -229,14 +229,14 @@
 
     (deftest :basic/reallybigintegers/1
         (with-dataset *ds-reallybigintegers*
-          (let ((a (1- (expt 2 64)))
-                (b (- (expt 2 64) 2))
-                (c (expt 2 63))
-                (d (expt 2 62)))
-            (query
-             (format nil "INSERT INTO testreallybigintegers
+          (let* ((a (1- (expt 2 64)))
+                 (b (- (expt 2 64) 2))
+                 (c (expt 2 63))
+                 (d (expt 2 62))
+                 (sql (format nil "INSERT INTO testreallybigintegers
                               VALUES (~A, ~A, ~A, ~A)"
-                     a b c d))
+                              a b c d)))
+            (query sql)
             (let ((results
                     (query
                      (format nil "SELECT * FROM testreallybigintegers"))))