)
database :auto nil)))
+;; FIXME: use lock
(defmethod database-set-sequence-position (name position (database oracle-database))
(let* ((next (database-sequence-next name database))
(incr (- position next)))
list)))
(defmethod clsql-sys:database-start-transaction ((database oracle-database))
- (call-next-method))
+ (call-next-method)
+ )
;;(with-slots (svchp errhp) database
;; (osucc (oci-trans-start (uffi:deref-pointer svchp)