/[gcl]/gcl/ansi-tests/numbers-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/numbers-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by pfdietz, Sun Dec 5 13:55:14 2004 UTC revision 1.25 by pfdietz, Sun Dec 5 15:04:20 2004 UTC
# Line 49  Line 49 
49                   (setq lo mid)                   (setq lo mid)
50                 (if (= mid hi)                 (if (= mid hi)
51                     (return lo)                     (return lo)
52                   (setq hi mid))))))                   (setq hi mid))))
53            finally (return lo)))
54    
55  (defun find-largest-exactly-floatable-integer (upper-bound)  (defun find-largest-exactly-floatable-integer (upper-bound)
56    (integer-binary-search    (integer-binary-search

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26