From: Marcus Pearce Date: Tue, 4 May 2004 11:50:03 +0000 (+0000) Subject: r9220: Added type specifier for universal-time. X-Git-Tag: v3.8.6~537 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=9698f9b6d0f6439b7547d198bb9db95f61b20c5d r9220: Added type specifier for universal-time. --- diff --git a/ChangeLog b/ChangeLog index 9146445..0f99960 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +4 May 2004 Marcus Pearce (m.t.pearce@city.ac.uk) + * sql/objects.lisp: added derived type specifier for universal time. + * sql/package.lisp: added #:universal-time to clsql-sys exports. + 3 May 2004 Kevin Rosenberg (kevin@rosenberg.net) * db-odbc/odbc-api.lisp: Fix changing nil to "NIL" for odbc/postgresql backend. diff --git a/sql/objects.lisp b/sql/objects.lisp index 2d569c7..8e56989 100644 --- a/sql/objects.lisp +++ b/sql/objects.lisp @@ -498,6 +498,10 @@ superclass of the newly-defined View Class." "VARCHAR" "VARCHAR(255)"))) +(deftype universal-time () + "A positive integer as returned by GET-UNIVERSAL-TIME." + '(integer 1 *)) + (defmethod database-get-type-specifier ((type (eql 'universal-time)) args database) (declare (ignore args database)) "BIGINT") diff --git a/sql/package.lisp b/sql/package.lisp index 4db6fe7..45b6303 100644 --- a/sql/package.lisp +++ b/sql/package.lisp @@ -373,6 +373,7 @@ #:set-sequence-position ; table xx ;;OODDL #:view-table ; metaclass x + #:universal-time ; objects xx ;;OODML #:add-to-relation ; objects x #:remove-from-relation ; objects x