Optimize index creation when multiple indices on same table

[umlisp.git] / sql-classes.lisp

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 8fe7d95621a91c0ee0535b8ed093c2101878cc0c..2805b8017172b55291765589176f7d7627c9ec1b 100644 (file)
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -20,7 +20,7 @@
 (defvar *current-srl* nil)
 (defun current-srl ()
   *current-srl*)
-(defun current-srl! (srl)
+(defun (setf current-srl) (srl)
   (setq *current-srl* srl))
 
 (defmacro query-string (table fields srl where-name where-value