X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=4d277e358d14ba2c722940c36e02df888371048d;hb=0a2015b9f0376a84d913969700bd283520a9a92d;hp=4ccc02d97b11acfc4223412c1ffc1d59d43b5433;hpb=8997e2789a6677f5d5c78e0b630090824be30307;p=clsql.git

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 4ccc02d..4d277e3 100644
--- 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"))))