projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Change name of setter functions
[umlisp.git]
/
sql-classes.lisp
diff --git
a/sql-classes.lisp
b/sql-classes.lisp
index 2805b8017172b55291765589176f7d7627c9ec1b..cd676f1e5d53a4b595e89a0cecdcfb0b73b07356 100644
(file)
--- a/
sql-classes.lisp
+++ b/
sql-classes.lisp
@@
-20,7
+20,7
@@
(defvar *current-srl* nil)
(defun current-srl ()
*current-srl*)
-(defun
(setf current-srl)
(srl)
+(defun
set-current-srl
(srl)
(setq *current-srl* srl))
(defmacro query-string (table fields srl where-name where-value