(defmethod database-set-sequence-position (name position (database oracle-database))
(let* ((next (database-sequence-next name database))
(incr (- position next)))
(defmethod database-set-sequence-position (name position (database oracle-database))
(let* ((next (database-sequence-next name database))
(incr (- position next)))