r10933: 08 May 2006 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git] / sql / package.lisp
index 5f8cc4e4b66e9139087fd37bb4ae5b34293621e0..4c82b0aae4dc683e64d3e8d0c6918a1664a63a50 100644 (file)
@@ -20,7 +20,7 @@
 ;;;; core packages.
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
 #+sbcl
+ #+sbcl
   (if (find-package 'sb-mop)
       (pushnew :clsql-sbcl-mop cl:*features*)
       (pushnew :clsql-sbcl-pcl cl:*features*))
@@ -38,6 +38,7 @@
          #+clsql-sbcl-mop #:sb-mop
          #+clsql-cmucl-mop #:mop
          #+allegro #:mop
+         #+clisp #:clos
          #+lispworks #:clos
          #+scl #:clos
          #+openmcl #:openmcl-mop)
@@ -45,6 +46,9 @@
     #+allegro
     (:shadowing-import-from 
      #:excl)
+    #+clisp
+    (:shadowing-import-from 
+     #:clos)
     #+lispworks
     (:shadowing-import-from 
      #:clos)
      #:check-connection-spec
      #:database-initialize-database-type
      #:database-type-load-foreign
-     #:database-name-from-spec
      #:database-connect
      #:database-disconnect
+     #:database-reconnect
      #:database-query
      #:database-execute-command
      #:database-create-sequence
      #:database-sequence-exists-p
      #:database-list-attributes
      #:database-attribute-type
-     #:database-describe-table
      #:database-type-library-loaded
      #:database-create
      #:database-destroy
      #:db-type-has-fancy-math?
      #:db-type-default-case
      #:db-type-use-column-on-drop-index? 
+     #:db-type-use-fully-qualified-column-on-drop-index?
+     #:db-type-has-intersect?
+     #:db-type-has-except?
      #:database-underlying-type
      #:database-get-type-specifier
      #:read-sql-value
      #:result-recording-stream
      #:record-caches
      #:view-classes
-     #:database-type
      #:database-state
      #:attribute-cache
      #:database-autocommit
      ;; Generic backends
      #:generic-postgresql-database
      #:generic-odbc-database
-     
+
+         ;; Subclasses of sql-expresssion (expressions.lisp) 
+         #:sql-function-exp
+         #:sql-value-exp 
+         #:sql-set-exp 
+         #:sql-query-modifier-exp 
+         #:sql-relational-exp 
+         #:sql-upcase-like 
+         #:sql-assignment-exp 
+         #:sql-typecast-exp 
+         #:sql-between-exp 
+         #:sql-ident 
+         #:sql-ident-attribute
+         #:sql-ident-table 
+
      .
 
      ;; Shared exports for re-export by CLSQL package. 
      #1=(
 
+         ;; foreign library loading
+         #:*foreign-library-search-paths*
+         #:push-library-path
+
         ;; Condition system (conditions.lisp) 
         #:sql-user-error
         #:sql-database-error
         #:sql-error
         #:sql-warning
         #:sql-database-warning
+         #:sql-error-database 
+         #:sql-error-database-type 
+         #:sql-error-connection-spec 
+         #:sql-error-expression 
+         #:sql-warning-database 
+         #:sql-user-error-message 
          #:*backend-warning-behavior*
 
          ;; Connection/initialisation (base-classes.lisp, database.lisp, 
          #:find-database               
          #:status                      
          ;; CLSQL Extensions 
+         #:database-name-from-spec
+         #:database-type 
          #:with-database
          #:with-default-database
          #:disconnect-pooled
          #:create-database
          #:destroy-database
          #:probe-database
-         #:truncate-database
 
          ;; I/O Recording (recording.lisp) 
          #:add-sql-stream             
          #:sql-stream                  
          #:start-sql-recording         
          #:stop-sql-recording          
-         ;; CLSQL Extensions 
-         #:record-sql-command
-         #:record-sql-result
 
         ;; FDDL (fddl.lisp) 
         #:create-table                   
         #:list-attributes                
         #:attribute-type                 
         #:list-attribute-types           
-        #:*cache-table-queries-default*  
         #:create-view                    
         #:drop-view                      
         #:create-index                   
         #:drop-index                     
          ;; CLSQL Extensions 
-         #:describe-table
+         #:truncate-database
         #:list-views                  
         #:view-exists-p               
         #:list-indexes                
-        #:list-table-indexes          
         #:index-exists-p              
         #:create-sequence             
         #:drop-sequence               
         #:map-query                    
         #:loop
          ;; CLSQL Extensions 
-         #:for-each-row
         #:prepare-sql
         #:bind-parameter
         #:run-prepared-sql
          #:commit                        
          #:rollback                     
          ;; CLSQL Extensions 
-         #:commit-transaction
-         #:rollback-transaction
          #:add-transaction-commit-hook
          #:add-transaction-rollback-hook
          #:start-transaction             
          #:in-transaction-p              
-         #:database-start-transaction
-         #:database-abort-transaction
-         #:database-commit-transaction
-         #:transaction-level
-         #:transaction
         #:set-autocommit
 
-        ;;  OODDL (ooddl.lisp) 
+        ;; OODDL (ooddl.lisp) 
         #:standard-db-object               
         #:def-view-class                   
         #:create-view-from-class           
         #:view-table        
         #:bigint
         #:varchar
-        #:*default-varchar-length*
+        #:generalized-boolean
+        #:mediumint
+        #:smallint
+        #:tinyint
+        #:*default-string-length*
 
         ;; OODML (oodml.lisp) 
         #:instance-refreshed               
         #:update-objects-joins             
         #:*default-update-objects-max-len* 
+        #:*default-caching*
         #:update-slot-from-record          
         #:update-instance-from-records     
         #:update-records-from-instance     
         #:delete-instance-records          
         ;; CLSQL Extensions 
         #:*db-auto-sync*    
-
+        #:write-instance-to-stream
+        #:read-instance-from-stream
+        
         ;; Symbolic SQL Syntax (syntax.lisp) 
         #:sql                              
         #:sql-expression                   
         #:sql-and
         #:sql-or
         #:sql-in
-        #:sql-concat
          #:sql-substr 
+         #:sql-concat-op 
         #:sql-=
         #:sql-<
          #:sql->
          #:sql-distinct 
          #:sql-nvl 
          #:sql-slot-value
+         #:sql-userenv 
          ;; CLSQL Extensions 
+        #:sql-concat
+         #:sql-substring 
          #:sql-limit 
         #:sql-group-by
         #:sql-having
          #:current-year
          #:day-duration
          #:db-timestring
+        #:db-datestring
          #:decode-duration
          #:decode-time
+        #:decode-date
          #:duration
          #:duration+
          #:duration<
          #:extract-roman 
          #:format-duration
          #:format-time
+        #:format-date
          #:get-time
+        #:get-date
          #:utime->time
          #:interval-clear
          #:interval-contained
          #:make-duration
          #:make-interval
          #:make-time
+        #:make-date
          #:merged-time
          #:midnight
          #:month-name
          #:parse-date-time
          #:parse-timestring
+        #:parse-datestring
          #:parse-yearstring
          #:print-date
          #:roll
          #:time=
          #:time>
          #:time>=
+        #:date
+        #:date+
+        #:date-
+        #:date-difference
+        #:date-compare
+        #:date-dow
+        #:date-element
+        #:date-max
+        #:date-min
+        #:date-mjd
+        #:date-p
+        #:date-ymd
+        #:date<
+        #:date<=
+        #:date=
+        #:date>
+        #:date>=
          #:timezone
          #:universal-time
          #:wall-time