X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsequences.lisp;h=b82b9b8e5a13178592bf663efe00ddecd7714e30;hp=54da54e47594869d82953a92cdfcc1ca1e8fb77a;hb=3cf717eee40ce39ae7969fe046a53becadb117d7;hpb=4d46d4d631cad1c4fe3accbe99f4182d975fd678

diff --git a/sql/sequences.lisp b/sql/sequences.lisp
index 54da54e..b82b9b8 100644
--- 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)