projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1801: Added transaction code
[clsql.git]
/
sql
/
package.cl
diff --git
a/sql/package.cl
b/sql/package.cl
index 989b27731c044ef41c56f47c8ee740ce8cb0caff..e5097aec19a71e0b209adb104858bd2ba2e30ffe 100644
(file)
--- a/
sql/package.cl
+++ b/
sql/package.cl
@@
-8,7
+8,7
@@
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: package.cl,v 1.
5 2002/04/01 05:27:55
kevin Exp $
+;;;; $Id: package.cl,v 1.
9 2002/04/27 21:48:08
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, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-51,6
+51,13
@@
#:database-sequence-next
#:sql-escape
#:database-sequence-next
#:sql-escape
+
+ ;; 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
;; Shared exports for re-export by CLSQL
.
#1=(#:clsql-condition
@@
-101,10
+108,12
@@
#:execute-command
#:map-query
#:do-query
#:execute-command
#:map-query
#:do-query
+
+ ;; functional.cl
+
#:insert-records
#:delete-records
#:update-records
#:insert-records
#:delete-records
#:update-records
- #:select
#:with-database
;; utils.cl
#:with-database
;; utils.cl
@@
-120,7
+129,21
@@
#:create-sequence
#:drop-sequence
#:sequence-next
#:create-sequence
#:drop-sequence
#:sequence-next
+ #:transaction-start
+ #:transaction-commit
+ #:transaction-abort
+ ;; Pooled connections
+ #:disconnect-pooled
+
+ ;; Transactions
+ #:with-transaction
+
+ ;; 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."))
))
(:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))