"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)
(mutex-sql-query
(query-string-macro ,table ,fields ,srl ,where-name ,where-value
"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)
(mutex-sql-query
(query-string-macro ,table ,fields ,srl ,where-name ,where-value