X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fpackage.lisp;h=ff6ec173a1a40f5b3a5358dda5ae4e10ec2df541;hb=f246c3c7b48792a869cb1bae0637a2f00a0920bd;hp=c9cce9ba8a53d83306bce108485ec13aad1bf5cf;hpb=9898f50385419417475b1c07874a16902695cb8b;p=clsql.git

diff --git a/sql/package.lisp b/sql/package.lisp
index c9cce9b..ff6ec17 100644
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -29,8 +29,8 @@
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defpackage #:clsql-sys
-    (:use #:common-lisp #:clsql-base-sys
+  (defpackage #:clsql
+    (:use #:common-lisp #:clsql-base
 	  #+clsql-sbcl-mop #:sb-mop
 	  #+clsql-cmucl-mop #:mop
 	  #+allegro #:mop
@@ -96,7 +96,7 @@
     )
    
    (:import-from 
-    #:clsql-base-sys
+    #:clsql-base
     .
     #1=(
        ;; conditions 
@@ -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
@@ -159,7 +160,6 @@
        ;; initialize
        #:*loaded-database-types*
        #:reload-database-types
-       #:*default-database-type*
        #:*initialized-database-types*
        #:initialize-database-type
        ;; classes
@@ -170,6 +170,7 @@
        #:database-view-classes
        #:conn-pool
        #:print-object 
+
        ;; utils
        #:sql-escape
 
@@ -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 
@@ -243,6 +246,86 @@
        #:db-type-default-case
        #:convert-to-db-default-case
        #:database-underlying-type
+
+       ;; time.lisp 
+       #:bad-component
+       #:current-day
+       #:current-month
+       #:current-year
+       #:day-duration
+       #:db-timestring
+       #:decode-duration
+       #:decode-time
+       #:duration
+       #:duration+
+       #:duration<
+       #:duration<=
+       #:duration=
+       #:duration>
+       #:duration>=
+       #:duration-day
+       #:duration-hour
+       #:duration-minute
+       #:duration-month
+       #:duration-second
+       #:duration-year
+       #:duration-reduce 
+       #:duration-timestring
+       #:extract-roman 
+       #:format-duration
+       #:format-time
+       #:get-time
+       #:utime->time
+       #:interval-clear
+       #:interval-contained
+       #:interval-data
+       #:interval-edit
+       #:interval-end
+       #:interval-match
+       #:interval-push
+       #:interval-relation
+       #:interval-start
+       #:interval-type
+       #:make-duration
+       #:make-interval
+       #:make-time
+       #:merged-time
+       #:midnight
+       #:month-name
+       #:parse-date-time
+       #:parse-timestring
+       #:parse-yearstring
+       #:print-date
+       #:roll
+       #:roll-to
+       #:time
+       #:time+
+       #:time-
+       #:time-by-adding-duration
+       #:time-compare
+       #:time-difference
+       #:time-dow
+       #:time-element
+       #:time-max
+       #:time-min
+       #:time-mjd
+       #:time-msec
+       #:time-p
+       #:time-sec
+       #:time-well-formed
+       #:time-ymd
+       #:time<
+       #:time<=
+       #:time=
+       #:time>
+       #:time>=
+       #:timezone
+       #:universal-time
+       #:wall-time
+       #:wall-timestring
+       #:week-containing
+       #:gregorian-to-mjd
+       #:mjd-to-gregorian
        ))
    (:export
     ;; "Private" exports for use by interface packages
@@ -284,7 +367,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
    ;;====================================================
@@ -311,7 +394,8 @@
        #:table-exists-p                    ; table      xx 
        #:list-attributes                   ; table      xx
        #:attribute-type                    ; table      xx
-       #:list-attribute-types              ; table      xx
+       #:list-attribute-types		   ; table      xx
+       #:*cache-table-queries-default*
        #:create-view                       ; table      xx
        #:drop-view                         ; table      xx
        #:create-index                      ; table      xx		
@@ -326,7 +410,7 @@
        #:instance-refreshed                ; objects    xx 
        #:update-object-joins               ;
        #:*default-update-objects-max-len*  ; 
-       #:update-slot-from-record           ; objects    xx
+       #:update-slot-from-record   	   ; objects    xx
        #:update-instance-from-records      ; objects    xx
        #:update-records-from-instance      ; objects    xx
        #:update-record-from-slot           ; objects    xx
@@ -367,7 +451,10 @@
        #:set-sequence-position             ; table      xx
        ;;OODDL
        #:view-table                        ; metaclass  x
+       #:universal-time    		   ; objects    xx 
+       #:bigint
        ;;OODML
+       #:*db-auto-sync*                    ; objects    xx              
        #:add-to-relation                   ; objects    x
        #:remove-from-relation              ; objects    x
        #:read-sql-value                    ; objects    x
@@ -381,6 +468,7 @@
        #:sql-and-qualifier
        #:sql-escape
        #:sql-query
+       #:sql-object-query
        #:sql-any
        #:sql-all
        #:sql-not
@@ -416,6 +504,9 @@
        #:sql-view-class
        #:sql_slot-value
 
+       #:do-query
+       #:map-query
+
        . 
        #1#
        ))
@@ -427,15 +518,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."))