Commits

Stephen Compall  committed e453eb9

Use fluid-database to CLSQL connect instead of clsql:connect (thread safety)

  • Participants
  • Parent commits c2f5ed9

Comments (0)

Files changed (2)

File src/store/clsql/clsql.lisp

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defmethod open-store ((store-type (eql :clsql)) &rest args)
   (setf *default-caching* nil)
-  (setf *default-store* (apply #'connect args)))
+  (setf *default-store* (apply #'make-instance 'fluid-database
+			       :connection-spec args)))
 
 (defmethod close-store ((store database))
   (when (eq *default-store* store)

File src/store/clsql/weblocks-clsql.asd

   :author "Slava Akhmechet"
   :licence "LLGPL"
   :description "A weblocks backend for clsql."
-  :depends-on (:closer-mop :metatilities :clsql :weblocks)
+  :depends-on (:closer-mop :metatilities :clsql :clsql-fluid :weblocks)
   :components ((:file "clsql")))