X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=6b606dbfd058d8f1fb35e9804551e70fe8dd7fa0;hb=cebf651f3b7cfaea45efcaa9a754643d96f33392;hp=2171632836fd8048ea05f4ab8550072b59cf24a7;hpb=bad862c649f7a41db3addeffefd2a2a61b8055ee;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2171632..6b606db 100644
--- 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))))