- (let ((,query (umlisp-query ,table ,fields ,srl ,where-name ,where-value
- :lrlname ,lrlname :single ,single :distinct ,distinct
- :order ,order :like ,like)))
- (if ,single
- (let ((tuple (car ,query)))
- (when tuple
- (destructuring-bind ,fields tuple
- ,@body)))
- (loop
- for tuple in ,query collect
- (destructuring-bind ,fields tuple
- ,@body)))))))
+ (let ((tuple (car (umlisp-query ,table ,fields ,srl ,where-name ,where-value
+ :lrlname ,lrlname :single ,single
+ :distinct ,distinct :order ,order :like ,like))))
+ (when tuple
+ (destructuring-bind ,fields tuple
+ ,@body))))
+ `(unless (and ,where-name (not ,where-value))
+ (let ((tuple (car )))
+ (loop for tuple in
+ (umlisp-query ,table ,fields ,srl ,where-name ,where-value
+ :lrlname ,lrlname :single ,single
+ :distinct ,distinct :order ,order :like ,like)
+ collect
+ (destructuring-bind ,fields tuple
+ ,@body))))))