;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.32 2003/05/03 20:08:21 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.33 2003/05/03 20:09:41 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
&body body)
(let ((query (gensym)))
`(unless (and ,where-name (not ,where-value))
- (let ((,query (umlisp-query ,table (quote ,fields) ,srl ,where-name ,where-value
+ (let ((,query (umlisp-query ,table ,fields ,srl ,where-name ,where-value
:lrlname ,lrlname :single ,single :distinct ,distinct
:order ,order :like ,like)))
(if ,single