r9453: * db-oracle/oracle-sql.lisp: Add missing database qualifier. Return...

[clsql.git] / sql / sequences.lisp

diff --git a/sql/sequences.lisp b/sql/sequences.lisp
index 54da54e47594869d82953a92cdfcc1ca1e8fb77a..b82b9b8e5a13178592bf663efe00ddecd7714e30 100644 (file)
--- a/sql/sequences.lisp
+++ b/sql/sequences.lisp
@@ -56,7 +56,7 @@
                (and sn (list sn))))
          (database-list-tables-and-sequences database)))
 
-(defmethod database-set-sequence-position (sequence-name (position integer) database)
+(defmethod database-set-sequence-position (sequence-name position database)
   (database-execute-command
    (format nil "UPDATE ~A SET last_value=~A,is_called='t'" 
           (%sequence-name-to-table sequence-name database)