X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fpackage.lisp;h=242a0446d1022e2a6f4176ccd54789f05493c9cd;hp=0d6d375e1eaf28c2560bf6bb7f15029207b28360;hb=18e34efea688a6758b6e997401fbc3f241da98f3;hpb=a050eddab954ab3045d8427cf0c5563142266833

diff --git a/sql/package.lisp b/sql/package.lisp
index 0d6d375..242a044 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*))
@@ -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)
@@ -104,9 +108,9 @@
      #: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
@@ -129,7 +133,6 @@
      #:database-sequence-exists-p
      #:database-list-attributes
      #:database-attribute-type
-     #:database-describe-table
      #:database-type-library-loaded
      #:database-create
      #:database-destroy
@@ -181,7 +184,6 @@
      #:result-recording-stream
      #:record-caches
      #:view-classes
-     #:database-type
      #:database-state
      #:attribute-cache
      #:database-autocommit
@@ -204,12 +206,30 @@
      ;; 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
@@ -226,6 +246,12 @@
 	 #: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, 
@@ -244,6 +270,8 @@
          #:find-database               
          #:status                      
          ;; CLSQL Extensions 
+         #:database-name-from-spec
+         #:database-type 
          #:with-database
          #:with-default-database
          #:disconnect-pooled
@@ -251,7 +279,6 @@
          #:create-database
          #:destroy-database
          #:probe-database
-         #:truncate-database
 
          ;; I/O Recording (recording.lisp) 
          #:add-sql-stream             
@@ -275,11 +302,10 @@
 	 #: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               
@@ -303,7 +329,6 @@
 	 #:map-query                    
 	 #:loop
          ;; CLSQL Extensions 
-         #:for-each-row
 	 #:prepare-sql
 	 #:bind-parameter
 	 #:run-prepared-sql
@@ -332,12 +357,16 @@
 	 #:bigint
 	 #:varchar
 	 #:generalized-boolean
-	 #:*default-varchar-length*
+	 #: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     
@@ -346,7 +375,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