projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4759: Auto commit for Debian build
[umlisp.git]
/
sql-classes.lisp
diff --git
a/sql-classes.lisp
b/sql-classes.lisp
index 6d61d394c7d8a417ee8939fe3d2346d293b2b875..edbd72af2b19a19b8a014591f51cc1de2b54e0a9 100644
(file)
--- a/
sql-classes.lisp
+++ b/
sql-classes.lisp
@@
-7,7
+7,7
@@
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.3
1 2003/05/03 20:07:46
kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.3
3 2003/05/03 20:09:41
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@
-33,7
+33,7
@@
&body body)
(let ((query (gensym)))
`(unless (and ,where-name (not ,where-value))
&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
:lrlname ,lrlname :single ,single :distinct ,distinct
:order ,order :like ,like)))
(if ,single
@@
-50,10
+50,10
@@
&key (lrlname "KCUILRL") single distinct order like)
"Query the UMLisp database. Return a list of umlisp objects whose name
is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
&key (lrlname "KCUILRL") single distinct order like)
"Query the UMLisp database. Return a list of umlisp objects whose name
is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
- (when (or (not ,where-name) ,where-value)
+
`
(when (or (not ,where-name) ,where-value)
(mutex-sql-query
(query-string-macro ,table ,fields ,srl ,where-name ,where-value
(mutex-sql-query
(query-string-macro ,table ,fields ,srl ,where-name ,where-value
-
:lrlname ,lrlname :single ,single :distinct ,distinct :order ,order :like ,like))))
+ :lrlname ,lrlname :single ,single :distinct ,distinct :order ,order :like ,like))))
(defmacro query-string-macro (table fields &optional srl where-name where-value
(defmacro query-string-macro (table fields &optional srl where-name where-value