r9220: Added type specifier for universal-time.

diff --git a/ChangeLog b/ChangeLog
index 9146445449ba08d571677d9c361d3d1fc77b9d94..0f99960751920ec87a196c2ff68d1b620fe6d0c7 100644 (file)
--- 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 2d569c754a0ea6deff68d83edeba3a92b029a403..8e56989d01eaa6751ea673c1e8d3c9963502a109 100644 (file)
--- 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 4db6fe7d1edebcf4c10eb19fce46441a0043b04c..45b63033f2757b2f2ec739e78823f85ac1c22d8d 100644 (file)
--- 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