projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b35bd5b
)
r4758: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 3 May 2003 20:08:21 +0000
(20:08 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 3 May 2003 20:08:21 +0000
(20:08 +0000)
sql-classes.lisp
patch
|
blob
|
history
diff --git
a/sql-classes.lisp
b/sql-classes.lisp
index 6d61d394c7d8a417ee8939fe3d2346d293b2b875..bdb79bd767e77863baa23a2f0209f8b64d9b2462 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
2 2003/05/03 20:08:21
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.
@@
-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