From a7b49bf74823fca80d29a78b77980f5c75cc68a5 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 5 Dec 2004 15:04:20 +0000
Subject: [PATCH] Fix bug in integer-binary-search

---
 ansi-tests/numbers-aux.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/numbers-aux.lsp b/ansi-tests/numbers-aux.lsp
index f42f7f93..a27d715a 100644
--- a/ansi-tests/numbers-aux.lsp
+++ b/ansi-tests/numbers-aux.lsp
@@ -49,7 +49,8 @@
 		 (setq lo mid)
 	       (if (= mid hi)
 		   (return lo)
-		 (setq hi mid))))))
+		 (setq hi mid))))
+	finally (return lo)))
 
 (defun find-largest-exactly-floatable-integer (upper-bound)
   (integer-binary-search
-- 
GitLab