;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: package.cl,v 1.10 2002/04/28 00:50:17 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-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
- #:transaction-start
- #:transaction-commit
- #:transaction-abort
-
+
;; 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