r9457: Reworked CLSQL file structure.
[clsql.git] / sql / sequences.lisp
index 1e3ef9e..b82b9b8 100644 (file)
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id:$
+;;;; $Id$
 ;;;;
 ;;;; Generic sequence implementation. Backends should use native sequences if
 ;;;; are available.
@@ -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)