(eval-when (:compile-toplevel :load-toplevel :execute)
(defpackage #:clsql-sys
- (:use #:common-lisp #:clsql-base-sys
+ (:use #:common-lisp #:clsql-base
#+clsql-sbcl-mop #:sb-mop
#+clsql-cmucl-mop #:mop
#+allegro #:mop
)
(:import-from
- #:clsql-base-sys
+ #:clsql-base
.
#1=(
;; conditions
#:clsql-closed-error-database
#:clsql-type-error
#:clsql-sql-syntax-error
-
+ #:*backend-warning-behavior*
+
;; db-interface
#:check-connection-spec
#:database-initialize-database-type
#:do-query
#:map-query
#:describe-table
+ #:create-large-object
+ #:write-large-object
+ #:read-large-object
+ #:delete-large-object
;; recording.lisp -- SQL I/O Recording
#:set-sequence-position ; table xx
;;OODDL
#:view-table ; metaclass x
+ #:universal-time ; objects xx
;;OODML
#:add-to-relation ; objects x
#:remove-from-relation ; objects x