From 550692f8d4ee3f416aa82a47712f257c535ad00e Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Wed, 3 Feb 2010 19:07:43 -0700 Subject: [PATCH] Use lower case symbols for compatibility with "modern"-mode AllegroCL --- tests/test-time.lisp | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/tests/test-time.lisp b/tests/test-time.lisp index 39cc930..47f0709 100644 --- a/tests/test-time.lisp +++ b/tests/test-time.lisp @@ -9,18 +9,20 @@ #.(clsql-sys:locally-enable-sql-reader-syntax) (def-view-class datetest () - ((testtimetz :COLUMN "testtimetz" :TYPE - clsql-sys:wall-time :DB-KIND :BASE - :DB-CONSTRAINTS COMMON-LISP:NIL - :ACCESSOR testtimetz :INITARG - :testtimetz :INITFORM COMMON-LISP:NIL - :DB-TYPE "timestamp with time zone") - (testtime :COLUMN "testtime" :TYPE - clsql-sys:wall-time :DB-KIND :BASE - :DB-CONSTRAINTS COMMON-LISP:NIL - :ACCESSOR testtime :INITARG - :testtime :INITFORM COMMON-LISP:NIL - :DB-TYPE "timestamp without time zone"))) +e ((testtimetz :column "testtimetz" + :type clsql-sys:wall-time + :db-kind :base + :db-constraints nil + :accessor testtimetz :initarg :testtimetz + :initform nil + :db-type "timestamp with time zone") + (testtime :column "testtime" + :type clsql-sys:wall-time + :db-kind :base + :db-constraints nil + :accessor testtime :initarg :testtime + :initform nil + :db-type "timestamp without time zone"))) (def-dataset *ds-datetest* (:setup (lambda () (clsql-sys:create-view-from-class 'datetest))) -- 2.34.1