From a5c63f26de9952e69b4f0b685df62bb5544674ed Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Thu, 11 Jul 2024 20:54:17 +0200 Subject: [PATCH] compare: cosmetic change --- code/compare/float-integer.lisp | 2 +- code/compare/integer-float.lisp | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/code/compare/float-integer.lisp b/code/compare/float-integer.lisp index 0007d88b..d32ee307 100644 --- 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 index e9a06f39..521e53ed 100644 --- 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)))