X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=050e07fd380d3e9263c8f47f0795bac233ba720d;hb=1011d4f44384e10f45ea0268e5c7fc759f417d3e;hp=47f07095caff03613d475a5a9cf7ba6021925ec7;hpb=550692f8d4ee3f416aa82a47712f257c535ad00e;p=clsql.git

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index 47f0709..050e07f 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -1,5 +1,4 @@
 ;;; -*- Mode: Lisp -*-
-;;; $Id$
 ;;;
 ;;; Copyright (c) 2000, 2001 onShore Development, Inc.
 ;;;
@@ -9,7 +8,7 @@
 #.(clsql-sys:locally-enable-sql-reader-syntax)
 
 (def-view-class datetest ()
-e  ((testtimetz :column "testtimetz"
+  ((testtimetz :column "testtimetz"
                 :type clsql-sys:wall-time
                 :db-kind :base
                 :db-constraints nil
@@ -306,7 +305,7 @@ e  ((testtimetz :column "testtimetz"
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -320,7 +319,7 @@ e  ((testtimetz :column "testtimetz"
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -336,7 +335,7 @@ e  ((testtimetz :column "testtimetz"
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -350,7 +349,7 @@ e  ((testtimetz :column "testtimetz"
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -365,7 +364,7 @@ e  ((testtimetz :column "testtimetz"
 	(let ((testtime
 	       (first (clsql:select [testtime]
 				    :from [datetest]
-				    :limit 1 :flatp T
+				    :limit 1 :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -396,7 +395,7 @@ e  ((testtimetz :column "testtimetz"
       (destructuring-bind (testtimetz testtime)
 	  (first (clsql:select [testtimetz] [testtime]
 			       :from [datetest]
-			       :limit 1 :flatp T
+			       :limit 1 :flatp t
 			       :where [= [testtime] time] ))
 	(values (iso-timestring (parse-timestring testtime))
 		(iso-timestring (parse-timestring testtimetz))))))
@@ -410,7 +409,7 @@ e  ((testtimetz :column "testtimetz"
        (make-instance 'datetest :testtimetz time :testtime time))
       (let ((o (first (clsql:select
 			  'datetest
-			:limit 1 :flatp T
+			:limit 1 :flatp t
 			:where [= [testtime] time] ))))
 	(assert o (o) "o shouldnt be null here (we should have just inserted)")
 	(update-records-from-instance o)
@@ -427,7 +426,7 @@ e  ((testtimetz :column "testtimetz"
 	 (make-instance 'datetest :testtimetz time :testtime time))
 	(let ((o (first (clsql:select
 			 'datetest
-			 :limit 1 :flatp T
+			 :limit 1 :flatp t
 			 :where [= [testtime] time] ))))
 	  (assert o (o) "o shouldnt be null here (we should have just inserted)")
 	  (update-records-from-instance o)