;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and by onShore Development Inc.
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and by onShore Development Inc.
(concatenate 'string "UPDATE " (%sequence-name-to-table sequence-name)
" SET id=LAST_INSERT_ID(id+1)")
database)
(concatenate 'string "UPDATE " (%sequence-name-to-table sequence-name)
" SET id=LAST_INSERT_ID(id+1)")
database)