projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2023: *** empty log message ***
[clsql.git]
/
sql
/
package.cl
diff --git
a/sql/package.cl
b/sql/package.cl
index f816764927a10b701d60837d37863af53c4d8867..ec93e1e623a1c5ffdf7967005ffb50a74c76e48d 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.
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, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-23,7
+23,6
@@
;;;; This file makes the required package definitions for CLSQL's
;;;; core packages.
;;;; This file makes the required package definitions for CLSQL's
;;;; core packages.
-;;;;
(eval-when (:compile-toplevel :load-toplevel :execute)
(defpackage :clsql-sys
(eval-when (:compile-toplevel :load-toplevel :execute)
(defpackage :clsql-sys
@@
-49,9
+48,19
@@
#:database-create-sequence
#:database-drop-sequence
#:database-sequence-next
#:database-create-sequence
#:database-drop-sequence
#:database-sequence-next
-
#:sql-escape
#: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
;; Shared exports for re-export by CLSQL
+
.
#1=(#:clsql-condition
#:clsql-error
.
#1=(#:clsql-condition
#:clsql-error
@@
-103,7
+112,6
@@
#:do-query
;; functional.cl
#:do-query
;; functional.cl
-
#:insert-records
#:delete-records
#:update-records
#:insert-records
#:delete-records
#:update-records
@@
-113,7
+121,7
@@
#:number-to-sql-string
#:float-to-sql-string
#:sql-escape-quotes
#:number-to-sql-string
#:float-to-sql-string
#:sql-escape-quotes
-
+
;; For UncommonSQL support
#:sql-ident
#:list-tables
;; For UncommonSQL support
#:sql-ident
#:list-tables
@@
-122,7
+130,22
@@
#:create-sequence
#:drop-sequence
#:sequence-next
#: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."))
))
(:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))