r9074: handle find-ustats-all when srl is nil

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2171632836fd8048ea05f4ab8550072b59cf24a7..6b606dbfd058d8f1fb35e9804551e70fe8dd7fa0 100644 (file)
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -844,11 +844,18 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
               conn))
 
 (defun find-ustats-all (&key (srl *current-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))))
-
+  (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)))))
+  
 (defun find-ustats-srl (srl)
   (collect-umlisp-query (ustats (name count) nil srl srl :order (name asc))
                           (make-instance 'ustats :name name :hits (ensure-integer count))))