;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: package.cl,v 1.6 2002/04/07 15:23:10 kevin Exp $
+;;;; $Id: package.cl,v 1.14 2002/05/11 22:37:46 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;; This file makes the required package definitions for CLSQL's
;;;; core packages.
-;;;;
(eval-when (:compile-toplevel :load-toplevel :execute)
(defpackage :clsql-sys
#:database-create-sequence
#:database-drop-sequence
#:database-sequence-next
-
#:sql-escape
+
+ ;; Support for pooled connections
+ #:database-type
+
+ ;; Large objects (Marc B)
+ #:database-create-large-object
+ #:database-write-large-object
+ #:database-read-large-object
+ #:database-delete-large-object
+
;; Shared exports for re-export by CLSQL
+
.
#1=(#:clsql-condition
#:clsql-error
#:do-query
;; functional.cl
-
#:insert-records
#:delete-records
#:update-records
#:number-to-sql-string
#:float-to-sql-string
#:sql-escape-quotes
-
+
;; For UncommonSQL support
#:sql-ident
#:list-tables
#:create-sequence
#:drop-sequence
#:sequence-next
-
+
+ ;; Pooled connections
+ #:disconnect-pooled
+
+ ;; Transactions
+ #:with-transaction
+ #:commit-transaction
+ #:rollback-transaction
+ #:add-transaction-commit-hook
+ #:add-transaction-rollback-hook
+
+ ;; Large objects (Marc B)
+ #:create-large-object
+ #:write-large-object
+ #:read-large-object
+ #:delete-large-object
))
(:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))