cl-postgres/package.lisp

   1 (defpackage :cl-postgres
   2   (:use :common-lisp)
   3   (:export #:database-error
   4            #:database-connection-lost
   5            #:database-error-message
   6            #:database-error-code
   7            #:database-error-detail
   8            #:database-error-query
   9            #:database-error-cause
  10            #:database-error-constraint-name
  11            #:database-connection
  12            #:database-connection-error
  13            #:database-socket-error
  14            #:connection-meta
  15            #:connection-parameters
  16            #:open-database
  17            #:reopen-database
  18            #:database-open-p
  19            #:close-database
  20            #:wait-for-notification
  21            #:exec-query
  22            #:prepare-query
  23            #:unprepare-query
  24            #:exec-prepared
  25            #:field-name
  26            #:field-type
  27            #:row-reader
  28            #:def-row-reader
  29            #:next-row
  30            #:next-field
  31            #:list-row-reader
  32            #:log-query
  33            #:vector-row-reader
  34            #:alist-row-reader
  35            #:postgresql-notification
  36            #:postgresql-notification-channel
  37            #:postgresql-notification-payload
  38            #:postgresql-notification-pid
  39            #:postgresql-warning
  40            #:ignore-row-reader
  41            #:*sql-readtable*
  42            #:copy-sql-readtable
  43            #:default-sql-readtable
  44            #:set-sql-reader
  45            #:set-sql-datetime-readers
  46            #:serialize-for-postgres
  47            #:to-sql-string
  48            #:*read-row-values-as-binary*
  49            #:with-binary-row-values
  50            #:with-text-row-values
  51            #:*silently-truncate-rationals*
  52            #:*query-callback*
  53            #:*query-log*
  54            #:open-db-writer
  55            #:db-write-row
  56            #:close-db-writer
  57            #:*ssl-certificate-file*
  58            #:*ssl-key-file*
  59            #+(and sbcl unix) #:*unix-socket-dir*))
  60
  61 (defpackage :cl-postgres-error
  62   (:use :common-lisp :cl-postgres)
  63   (:export #:admin-shutdown
  64            #:cannot-connect-now
  65            #:check-violation
  66            #:crash-shutdown
  67            #:data-exception
  68            #:db-division-by-zero
  69            #:feature-not-supported
  70            #:floating-point-exception
  71            #:foreign-key-violation
  72            #:insufficient-resources
  73            #:insufficient-privilege
  74            #:transaction-rollback
  75            #:serialization-failure
  76            #:transaction-integrity-constraint-violation
  77            #:statement-completion-unknown
  78            #:deadlock-detected
  79            #:integrity-violation
  80            #:internal-error
  81            #:invalid-datetime-format
  82            #:lock-not-available
  83            #:not-null-violation
  84            #:numeric-value-out-of-range
  85            #:object-in-use
  86            #:object-state-error
  87            #:operator-intervention
  88            #:program-limit-exceeded
  89            #:query-canceled
  90            #:restrict-violation
  91            #:server-shutdown
  92            #:syntax-error-or-access-violation
  93            #:system-error
  94            #:unique-violation))
  95
  96 (defpackage :cl-postgres-oid
  97   (:use :common-lisp)
  98   (:nicknames :oid)
  99   (:export #:+bool+
 100            #:+bytea+
 101            #:+char+
 102            #:+name+
 103            #:+int8+
 104            #:+int2+
 105            #:+int2vector+
 106            #:+int4+
 107            #:+regproc+
 108            #:+text+
 109            #:+oid+
 110            #:+tid+
 111            #:+xid+
 112            #:+cid+
 113            #:+oid-vector+
 114            #:+json+
 115            #:+xml+
 116            #:+pgnodetree+
 117            #:+pgddlcommand+
 118            #:+point+
 119            #:+lseg+
 120            #:+path+
 121            #:+box+
 122            #:+polygon+
 123            #:+line+
 124            #:+float4+
 125            #:+float8+
 126            #:+abstime+
 127            #:+reltime+
 128            #:+tinterval+
 129            #:+unknown+
 130            #:+circle+
 131            #:+cash+
 132            #:+macaddr+
 133            #:+inet+
 134            #:+cidr+
 135            #:+bool-array+
 136            #:+bytea-array+
 137            #:+char-array+
 138            #:+name-array+
 139            #:+int2-array+
 140            #:+int4-array+
 141            #:+text-array+
 142            #:+bpchar-array+
 143            #:+varchar-array+
 144            #:+int8-array+
 145            #:+point-array+
 146            #:+lseg-array+
 147            #:+box-array+
 148            #:+float4-array+
 149            #:+float8-array+
 150            #:+oid-array+
 151            #:+aclitem+
 152            #:+cstring-array+
 153            #:+bpchar+
 154            #:+varchar+
 155            #:+date+
 156            #:+time+
 157            #:+timestamp+
 158            #:+timestamp-array+
 159            #:+date-array+
 160            #:+time-array+
 161            #:+timestamptz+
 162            #:+timestamptz-array+
 163            #:+interval+
 164            #:+interval-array+
 165            #:+timetz+
 166            #:+bit+
 167            #:+bit-array+
 168            #:+varbit+
 169            #:+varbit-array+
 170            #:+numeric+
 171            #:+numeric-array+
 172            #:+refcursor+
 173            #:+regprocedure+
 174            #:+regoper+
 175            #:+regoperator+
 176            #:+regclass+
 177            #:+regtype+
 178            #:+regrole+
 179            #:+regnamespace+
 180            #:+regtype-array+
 181            #:+uuid+
 182            #:+lsn+
 183            #:+tsvector+
 184            #:+gtsvector+
 185            #:+tsquery+
 186            #:+regconfig+
 187            #:+regdictionary+
 188            #:+jsonb+
 189            #:+int4range+
 190            #:+record+
 191            #:+record-array+
 192            #:+cstring+
 193            #:+any+
 194            #:+any-array+
 195            #:+v-oid+
 196            #:+trigger+
 197            #:+evttrigger+
 198            #:+language-handler+
 199            #:+internal+
 200            #:+opaque+
 201            #:+anyelement+
 202            #:+anynon-array+
 203            #:+anyenum+
 204            #:+fdw-handler+
 205            #:+index-am-handler+
 206            #:+tsm-handler+
 207            #:+anyrange+
 208            ))
 209
 210 (in-package :cl-postgres)
 211
 212 (eval-when (:compile-toplevel :load-toplevel :execute)
 213   ;; Optimization settings (only used by functions that need it).
 214   (defparameter *optimize*
 215     '(optimize
 216       (speed 3)
 217       #-ecl(safety 0) #+ecl(safety 1)
 218       (space 1)
 219       (debug 1)
 220       (compilation-speed 0))))