compare: cosmetic change

s-expressionists · Jul 11, 2024 · a5c63f2 · a5c63f2
1 parent 6f1bc69
commit a5c63f2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/code/compare/float-integer.lisp b/code/compare/float-integer.lisp
@@ -55,7 +55,7 @@
                   (list* (float-hex-digits (float-type (iterator-interval iterator)))
                          result)))
         (not result))
-    (error (condition)
+    (error ()
       (format stream "~:@<#x~x :error~:@>~%"
               (iterator-bits iterator))
       nil)))

diff --git a/code/compare/integer-float.lisp b/code/compare/integer-float.lisp
@@ -38,8 +38,7 @@
                   (list* (float-hex-digits (float-type (iterator-interval iterator)))
                          result)))
         (not result))
-    (error (condition)
-      (declare (ignore condition))
+    (error ()
       (format stream "~:@<#x~x :error~:@>~%" (iterator-bits iterator))
       nil)))