X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=sql-classes.lisp;h=cd676f1e5d53a4b595e89a0cecdcfb0b73b07356;hp=2805b8017172b55291765589176f7d7627c9ec1b;hb=cba592c185ee1b2e4eedc4aaa531495da79d897e;hpb=f2f3771917e7d8c2999615d3f30641c8ee251872

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2805b80..cd676f1 100644
--- 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