- (collect-umlisp-query (ustats (name count srl) nil srl srl
- :order (name asc))
- (make-instance 'ustats :name name :hits (ensure-integer count)
- :srl (ensure-integer srl))))
-
+ (if srl
+ (collect-umlisp-query (ustats (name count srl) nil srl srl
+ :order (name asc))
+ (make-instance 'ustats :name name
+ :hits (ensure-integer count)
+ :srl (ensure-integer srl)))
+ (collect-umlisp-query (ustats (name count srl) nil nil nil
+ :order (name asc))
+ (make-instance 'ustats :name name
+ :hits (ensure-integer count)
+ :srl (ensure-integer srl)))))
+