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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
(defpackage :cl-postgres
(:use :common-lisp)
(:export #:database-error
#:database-connection-lost
#:database-error-message
#:database-error-code
#:database-error-detail
#:database-error-query
#:database-error-cause
#:database-error-constraint-name
#:database-connection
#:database-connection-error
#:database-socket-error
#:connection-meta
#:connection-parameters
#:open-database
#:reopen-database
#:database-open-p
#:close-database
#:wait-for-notification
#:exec-query
#:prepare-query
#:unprepare-query
#:exec-prepared
#:field-name
#:field-type
#:row-reader
#:def-row-reader
#:next-row
#:next-field
#:list-row-reader
#:log-query
#:vector-row-reader
#:alist-row-reader
#:postgresql-notification
#:postgresql-notification-channel
#:postgresql-notification-payload
#:postgresql-notification-pid
#:postgresql-warning
#:ignore-row-reader
#:*sql-readtable*
#:copy-sql-readtable
#:default-sql-readtable
#:set-sql-reader
#:set-sql-datetime-readers
#:serialize-for-postgres
#:to-sql-string
#:*read-row-values-as-binary*
#:with-binary-row-values
#:with-text-row-values
#:*silently-truncate-rationals*
#:*query-callback*
#:*query-log*
#:open-db-writer
#:db-write-row
#:close-db-writer
#:*ssl-certificate-file*
#:*ssl-key-file*
#+(and sbcl unix) #:*unix-socket-dir*))
(defpackage :cl-postgres-error
(:use :common-lisp :cl-postgres)
(:export #:admin-shutdown
#:cannot-connect-now
#:check-violation
#:crash-shutdown
#:data-exception
#:db-division-by-zero
#:feature-not-supported
#:floating-point-exception
#:foreign-key-violation
#:insufficient-resources
#:insufficient-privilege
#:transaction-rollback
#:serialization-failure
#:transaction-integrity-constraint-violation
#:statement-completion-unknown
#:deadlock-detected
#:integrity-violation
#:internal-error
#:invalid-datetime-format
#:lock-not-available
#:not-null-violation
#:numeric-value-out-of-range
#:object-in-use
#:object-state-error
#:operator-intervention
#:program-limit-exceeded
#:query-canceled
#:restrict-violation
#:server-shutdown
#:syntax-error-or-access-violation
#:system-error
#:unique-violation))
(in-package :cl-postgres)
(eval-when (:compile-toplevel :load-toplevel :execute)
;; Optimization settings (only used by functions that need it).
(defparameter *optimize*
'(optimize
(speed 3)
#-ecl(safety 0) #+ecl(safety 1)
(space 1)
(debug 1)
(compilation-speed 0))))
|
