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