- (let ((,query (umlisp-query ,table ,fields ,srl ,where-name ,where-value
- :lrlname ,lrlname :single ,single :distinct ,distinct
- :terminal ,terminal :like ,like)))
- (if ,single
- (let ((tuple (car ,query)))
- (when tuple
- ,@body))
- (loop
- for tuple in ,query
- collect
- ,@body))))))
-
+ (let ((,query (umlisp-query ,table ,fields ,srl ,where-name ,where-value
+ :lrlname ,lrlname :single ,single :distinct ,distinct
+ :terminal ,terminal :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)))))))
+