From 55893dcd3118428f046d5f539d80e9aa5345b885 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 24 Mar 2008 11:47:01 +0000
Subject: Add support for SBCL and CLisp

---
 src/interp/i-output.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-output.boot')

diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index 2f45ce54..1ed56546 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -888,7 +888,7 @@ WIDTH u ==
       negative := 0
     -- Try and be fairly exact for smallish integers:
     u = 0 => 1
-    u < MOST_-POSITIVE_-LONG_-FLOAT => 1+negative+FLOOR ((LOG10 u) + 0.0000001)
+    u < MOST_-POSITIVE_-LONG_-FLOAT => 1+negative+FLOOR ((log10 u) + 0.0000001)
     -- Rough guess: integer-length returns log2 rounded up, so divide it by
     -- roughly log2(10). This should return an over-estimate, but for objects
     -- this big does it matter?
-- 
cgit v1.2.3