r9252: Implement new SQL-QUERY-OBJECT class and change behavior of [select 'class]

[clsql.git] / sql / package.lisp

diff --git a/sql/package.lisp b/sql/package.lisp
index 5293df99f500c0c8ba11f0181082c0e3178f4e55..ba3f9726795eecf06498a78a5dcbcaf1f792da15 100644 (file)
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -29,7 +29,7 @@
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defpackage #:clsql-sys
+  (defpackage #:clsql
     (:use #:common-lisp #:clsql-base
          #+clsql-sbcl-mop #:sb-mop
          #+clsql-cmucl-mop #:mop
@@ -132,7 +132,8 @@
        #:clsql-closed-error-database
        #:clsql-type-error
        #:clsql-sql-syntax-error
-
+       #:*backend-warning-behavior*
+       
        ;; db-interface
        #:check-connection-spec
        #:database-initialize-database-type
@@ -200,9 +201,11 @@
        #:write-large-object
        #:read-large-object
        #:delete-large-object
-       #:do-query
-       #:map-query
        #:describe-table
+       #:create-large-object
+       #:write-large-object
+       #:read-large-object
+       #:delete-large-object
 
        
        ;; recording.lisp -- SQL I/O Recording 
@@ -284,7 +287,7 @@
     #:database-underlying-type
    
    .
-   ;; Shared exports for re-export by CLSQL. 
+   ;; Shared exports for re-export by CLSQL-USER. 
    ;; I = Implemented, D = Documented
    ;;  name                                 file       ID
    ;;====================================================
@@ -345,6 +348,8 @@
        #:locally-enable-sql-reader-syntax  ; syntax     xx
        #:restore-sql-reader-syntax-state   ; syntax     xx
 
+       #:*update-records-on-make-instance* 
+       
        ;;------------------------------------------------
        ;; Miscellaneous Extensions
        ;;------------------------------------------------
@@ -368,6 +373,8 @@
        #:set-sequence-position             ; table      xx
        ;;OODDL
        #:view-table                        ; metaclass  x
+       #:universal-time                   ; objects    xx 
+       #:bigint
        ;;OODML
        #:add-to-relation                   ; objects    x
        #:remove-from-relation              ; objects    x
@@ -382,6 +389,7 @@
        #:sql-and-qualifier
        #:sql-escape
        #:sql-query
+       #:sql-object-query
        #:sql-any
        #:sql-all
        #:sql-not
@@ -417,6 +425,9 @@
        #:sql-view-class
        #:sql_slot-value
 
+       #:do-query
+       #:map-query
+
        . 
        #1#
        ))
@@ -428,15 +439,9 @@
 (setf *packages-for-warn-on-redefinition* 
       (delete "SQL" *packages-for-warn-on-redefinition* :test 'string=))
 
-(defpackage #:clsql
-  (:use #:common-lisp)
-  (:import-from #:clsql-sys . #2#)
-  (:export . #2#)
-  (:documentation "This is the SQL-Interface package of CLSQL."))
-
 (defpackage #:clsql-user
   (:use #:common-lisp)
-  (:import-from #:clsql-sys . #2#)
+  (:import-from #:clsql . #2#)
   (:export . #2#)
   (:documentation "This is the user package with CLSQL symbols."))