TESTS/TIME: fix SBCL style warning

jonatack · Sep 30, 2019 · 9743d1b · 9743d1b
1 parent e180b52
commit 9743d1b
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/tests/time.lisp b/tests/time.lisp
@@ -24,7 +24,6 @@
   (testing "is 16 characters in length"
     (ok (= 16 (length (cl-kraken/src/time:generate-kraken-nonce)))))
   (testing "is continually increasing"
-    (let ((old-nonce (parse-integer (cl-kraken/src/time:generate-kraken-nonce)))
-          (_ (sleep 0.001))
-          (new-nonce (parse-integer (cl-kraken/src/time:generate-kraken-nonce))))
-      (ok (> new-nonce old-nonce)))))
+    (let ((old-nonce (parse-integer (cl-kraken/src/time:generate-kraken-nonce))))
+      (sleep 0.001)
+      (ok (> (parse-integer (cl-kraken/src/time:generate-kraken-nonce)) old-nonce)))))