;;;; This file is part of CLSQL.
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; This file is part of CLSQL.
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
(if (find-package 'sb-mop)
(pushnew :clsql-sbcl-mop cl:*features*)
(pushnew :clsql-sbcl-pcl cl:*features*))
(if (find-package 'sb-mop)
(pushnew :clsql-sbcl-mop cl:*features*)
(pushnew :clsql-sbcl-pcl cl:*features*))
#:class-precedence-list #:slot-definition-type
#:class-direct-superclasses
#:compute-class-precedence-list)
#:class-precedence-list #:slot-definition-type
#:class-direct-superclasses
#:compute-class-precedence-list)
#:database-create-large-object
#:database-write-large-object
#:database-read-large-object
#:database-create-large-object
#:database-write-large-object
#:database-read-large-object
- #:sql-error-database
- #:sql-error-database-type
- #:sql-error-connection-spec
- #:sql-error-expression
- #:sql-warning-database
- #:sql-user-error-message
+ #:sql-error-database
+ #:sql-error-database-type
+ #:sql-error-connection-spec
+ #:sql-error-expression
+ #:sql-warning-database
+ #:sql-user-error-message
- #:update-slot-from-record
- #:update-instance-from-records
- #:update-records-from-instance
- #:update-record-from-slot
- #:update-record-from-slots
- #:delete-instance-records
- ;; CLSQL Extensions
- #:*db-auto-sync*
+ #:update-slot-from-record
+ #:update-instance-from-records
+ #:update-records-from-instance
+ #:update-record-from-slot
+ #:update-record-from-slots
+ #:delete-instance-records
+ ;; CLSQL Extensions
+ #:*db-auto-sync*
-
- ;; Symbolic SQL Syntax (syntax.lisp)
- #:sql
- #:sql-expression
- #:sql-operation
- #:sql-operator
- #:disable-sql-reader-syntax
- #:enable-sql-reader-syntax
+
+ ;; Symbolic SQL Syntax (syntax.lisp)
+ #:sql
+ #:sql-expression
+ #:sql-operation
+ #:sql-operator
+ #:disable-sql-reader-syntax
+ #:enable-sql-reader-syntax
- #:locally-enable-sql-reader-syntax
- #:restore-sql-reader-syntax-state
-
- ;; SQL operations (operations.lisp)
+ #:locally-enable-sql-reader-syntax
+ #:restore-sql-reader-syntax-state
+
+ ;; SQL operations (operations.lisp)
&body body)
`(pv-env (,pv ,calls ,pv-table-symbol ,pv-parameters)
(let (,@(mapcar #'(lambda (slot-var p) `(,slot-var (get-slots-or-nil ,p)))
&body body)
`(pv-env (,pv ,calls ,pv-table-symbol ,pv-parameters)
(let (,@(mapcar #'(lambda (slot-var p) `(,slot-var (get-slots-or-nil ,p)))
(delete "SQL" *packages-for-warn-on-redefinition* :test 'string=))
#+sbcl
(if (find-package 'sb-mop)
(setq cl:*features* (delete :clsql-sbcl-mop cl:*features*))
(setq cl:*features* (delete :clsql-sbcl-pcl cl:*features*)))
(delete "SQL" *packages-for-warn-on-redefinition* :test 'string=))
#+sbcl
(if (find-package 'sb-mop)
(setq cl:*features* (delete :clsql-sbcl-mop cl:*features*))
(setq cl:*features* (delete :clsql-sbcl-pcl cl:*features*)))
#+cmu
(if (find-package 'mop)
(setq cl:*features* (delete :clsql-cmucl-mop cl:*features*))
(setq cl:*features* (delete :clsql-cmucl-pcl cl:*features*)))
#+cmu
(if (find-package 'mop)
(setq cl:*features* (delete :clsql-cmucl-mop cl:*features*))
(setq cl:*features* (delete :clsql-cmucl-pcl cl:*features*)))