;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
-;;;; $Id:$
+;;;; $Id$
;;;;
;;;; Generic sequence implementation. Backends should use native sequences if
;;;; are available.
(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)