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

diff --git a/sql-classes.lisp b/sql-classes.lisp
index ae14b38..2805b80 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -7,10 +7,8 @@
 ;;;; Author:   Kevin M. Rosenberg
 ;;;; Created:  Apr 2000
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -22,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