postmodern/package.lisp

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