- (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))))))
+ (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)))))