;;;; 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*))
#: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.
#:find-database
#:status
;; CLSQL Extensions
+ #:database-type
#:with-database
#:with-default-database
#:disconnect-pooled
#:view-table
#:bigint
#:varchar
+ #:generalized-boolean
#:*default-varchar-length*
;; OODML (oodml.lisp)