;;;; 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*))
#+clsql-sbcl-mop #:sb-mop
#+clsql-cmucl-mop #:mop
#+allegro #:mop
+ #+clisp #:clos
#+lispworks #:clos
#+scl #:clos
#+openmcl #:openmcl-mop)
#+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-query
#:database-sequence-exists-p
#:database-list-attributes
#:database-attribute-type
- #:database-describe-table
#:database-type-library-loaded
#:database-create
#:database-destroy
#: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.
#: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
#: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
#: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