Got rid of a compiler warning.

src/commands1.el

@@ -1424,15 +1424,15 @@ Those that you are not a member in will be marked with an asterisk."
 (def-kom-command kom-list-created-conferences (arg)
   "List all conferences created by some person."
   (interactive "P")
-  (let* ((tmp (blocking-do 'get-uconf-stat lyskom-pers-no))
-         (pers-no (lyskom-read-conf-no 
-                   (if arg 'list-pers-confs-created-by 'list-confs-created-by)
-                   '(pers) 
-                   nil
-                   (if (cache-get-uconf-stat lyskom-pers-no)
-                       (cons (conf-stat->name (cache-get-conf-stat lyskom-pers-no)) 0)1
-                       nil)
-                   t)))
+  (blocking-do 'get-uconf-stat lyskom-pers-no)
+  (let ((pers-no (lyskom-read-conf-no 
+                  (if arg 'list-pers-confs-created-by 'list-confs-created-by)
+                  '(pers) 
+                  nil
+                  (if (cache-get-uconf-stat lyskom-pers-no)
+                      (cons (conf-stat->name (cache-get-conf-stat lyskom-pers-no)) 0)1
+                      nil)
+                  t)))
     (lyskom-message (lyskom-get-string (if arg 'getting-all-pers-confs 'getting-all-confs)))
     (let ((result (blocking-do 'lookup-z-name "" (if arg 1 0) 1)))
       (lyskom-message (lyskom-get-string (if arg 'getting-all-pers confs-done 'getting-all-confs-done)))