X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fpackage.lisp;h=ac6fe05fb515e8ceef920d793fedbb7226f65e21;hp=c180f46a5a8b479a4ed950bf48cd338210752928;hb=bb71f27c241187a32c7839aea501114d65e29f85;hpb=333e8280f2f3438ffd379349bc9746c34cccc159

diff --git a/sql/package.lisp b/sql/package.lisp
index c180f46..ac6fe05 100644
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -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*))
@@ -104,7 +104,6 @@
      #:check-connection-spec
      #:database-initialize-database-type
      #:database-type-load-foreign
-     #:database-name-from-spec
      #:database-connect
      #:database-disconnect
      #:database-query
@@ -129,7 +128,6 @@
      #:database-sequence-exists-p
      #:database-list-attributes
      #:database-attribute-type
-     #:database-describe-table
      #:database-type-library-loaded
      #:database-create
      #:database-destroy
@@ -140,6 +138,7 @@
      #:db-type-has-views?
      #:db-type-has-bigint?
      #:db-type-has-union?
+     #:db-type-has-prepared-stmt?
      #:db-type-has-subqueries?
      #:db-type-has-boolean-where?
      #:db-type-transaction-capable?
@@ -164,6 +163,12 @@
      #:read-large-object
      #:delete-large-object
 
+     ;; Prepared statments
+     #:database-prepare
+     #:database-run-prepared
+     #:database-bind-parameter
+     #:database-free-prepared
+
      ;; accessors for database class
      #:name
      #:connection-spec
@@ -174,7 +179,6 @@
      #:result-recording-stream
      #:record-caches
      #:view-classes
-     #:database-type
      #:database-state
      #:attribute-cache
      #:database-autocommit
@@ -197,7 +201,21 @@
      ;; 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. 
@@ -237,6 +255,8 @@
          #:find-database               
          #:status                      
          ;; CLSQL Extensions 
+         #:database-name-from-spec
+         #:database-type 
          #:with-database
          #:with-default-database
          #:disconnect-pooled
@@ -244,7 +264,6 @@
          #:create-database
          #:destroy-database
          #:probe-database
-         #:truncate-database
 
          ;; I/O Recording (recording.lisp) 
          #:add-sql-stream             
@@ -254,9 +273,6 @@
          #:sql-stream			
          #:start-sql-recording		
          #:stop-sql-recording		
-         ;; CLSQL Extensions 
-         #:record-sql-command
-         #:record-sql-result
 
 	 ;; FDDL (fddl.lisp) 
 	 #:create-table                   
@@ -266,17 +282,15 @@
 	 #: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               
@@ -301,26 +315,23 @@
 	 #:loop
          ;; CLSQL Extensions 
          #:for-each-row
+	 #:prepare-sql
+	 #:bind-parameter
+	 #:run-prepared-sql
+	 #:free-prepared-sql
 
          ;; Transaction handling (transaction.lisp) 
          #:with-transaction
          #: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
-	 #:autocommit
+	 #:set-autocommit
 
-	 ;;  OODDL (ooddl.lisp) 
+	 ;; OODDL (ooddl.lisp) 
 	 #:standard-db-object               
 	 #:def-view-class                   
 	 #:create-view-from-class           
@@ -330,6 +341,9 @@
          ;; CLSQL Extensions 
 	 #:view-table        
 	 #:bigint
+	 #:varchar
+	 #:generalized-boolean
+	 #:*default-string-length*
 
 	 ;; OODML (oodml.lisp) 
 	 #:instance-refreshed               
@@ -343,7 +357,9 @@
 	 #:delete-instance-records          
 	 ;; CLSQL Extensions 
 	 #:*db-auto-sync*    
-
+	 #:write-instance-to-stream
+	 #:read-instance-from-stream
+	 
 	 ;; Symbolic SQL Syntax (syntax.lisp) 
 	 #:sql                              
 	 #:sql-expression                   
@@ -376,8 +392,8 @@
 	 #:sql-and
 	 #:sql-or
 	 #:sql-in
-	 #:sql-concat
          #:sql-substr 
+         #:sql-concat-op 
 	 #:sql-=
 	 #:sql-<
          #:sql->
@@ -394,7 +410,10 @@
          #:sql-distinct 
          #:sql-nvl 
          #:sql-slot-value
+         #:sql-userenv 
          ;; CLSQL Extensions 
+	 #:sql-concat
+         #:sql-substring 
          #:sql-limit 
 	 #:sql-group-by
 	 #:sql-having