1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
(defpackage :postmodern
(:use #-postmodern-use-mop :common-lisp
#+postmodern-use-mop :closer-common-lisp
:s-sql :cl-postgres)
(:nicknames :pomo)
#+postmodern-use-mop
(:export
#:dao-class #:dao-exists-p #:dao-keys #:query-dao #:select-dao #:get-dao #:do-query-dao #:do-select-dao
#:with-column-writers
#:insert-dao #:update-dao #:save-dao #:save-dao/transaction #:upsert-dao #:delete-dao #:make-dao
#:define-dao-finalization
#:dao-table-name #:dao-table-definition
#:\!dao-def #:*ignore-unknown-columns*)
(:export
#:connect #:disconnect #:reconnect
#:call-with-connection #:with-connection
#:*database* #:connected-p #:database-connection
#:connect-toplevel #:disconnect-toplevel
#:clear-connection-pool #:*max-pool-size* #:*default-use-ssl*
#:query #:execute #:doquery
#:prepare #:defprepared #:defprepared-with-names
#:sequence-next #:list-sequences #:sequence-exists-p
#:list-tables #:table-exists-p #:table-description
#:list-views #:view-exists-p
#:*current-logical-transaction* #:with-transaction #:commit-transaction #:abort-transaction
#:with-savepoint #:rollback-savepoint #:release-savepoint
#:with-logical-transaction #:ensure-transaction
#:abort-hooks #:commit-hooks
#:db-null #:coalesce
#:database-version #:num-records-in-database #:current-database
#:database-exists-p #:database-size #:list-databases
#:list-schemas #:list-tablespaces #:list-available-types
#:list-table-sizes #:table-size #:more-table-info
#:list-columns #:list-columns-with-types #:column-exists-p
#:describe-views #:list-database-functions #:list-indices
#:list-table-indices #:list-indexed-column-and-attributes
#:list-index-definitions #:list-foreign-keys #:list-unique-or-primary-constraints
#:list-all-constraints #:describe-constraint #:describe-foreign-key-constraints
#:list-triggers #:list-detailed-triggers #:list-database-users
#:change-toplevel-database
#:deftable #:*table-name* #:*table-symbol*
#:create-table #:create-all-tables #:create-package-tables
#:\!index #:\!unique-index #:\!foreign #:\!unique
#:create-schema #:drop-schema #:list-schemata
#:with-schema #:schema-exist-p #:set-search-path #:get-search-path
;; Reduced S-SQL interface
#:sql #:sql-compile
#:smallint #:bigint #:numeric #:real #:double-precision
#:bytea #:text #:varchar
#:*escape-sql-names-p* #:sql-escape-string #:sql-escape #:register-sql-operators
#:sql-error
;; Condition type from cl-postgres
#:database-error #:database-error-message #:database-error-code
#:database-error-detail #:database-error-query #:database-error-cause
#:database-connection-error #:database-error-constraint-name))
(in-package :postmodern)
|
