replaces a cond with an if

AccelerationNet · Feb 1, 2012 · cd2a5d8 · cd2a5d8
1 parent fc9061d
commit cd2a5d8
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/collectors.lisp b/collectors.lisp
@@ -206,14 +206,11 @@ binds *print-pretty* to nil
                             "~{~?~}")))
     (with-collector (value)
       (lambda (&rest args)
-        (cond
-          ((null args)
-           (let ((*print-pretty* pretty))
-             (format stream format-string (value))))
-          (args
-           (destructuring-bind (format-string &rest args) args
-               (value format-string args))))
-        ))))
+        (if (null args)
+            (let ((*print-pretty* pretty))
+              (format stream format-string (value)))
+            (destructuring-bind (format-string &rest args) args
+              (value format-string args)))))))
 
 (defmacro with-formatter ((name &key delimiter stream pretty) &body body)
   "A macro makes a function with name for body that is a string formatter