projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
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