X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=68e5d9fbef81f4f8c1adfb89d1bb6f4aeff48a03;hb=2d4a0df3457bcd50916b33d374da592d8776db0a;hp=fe1362035d61e32344b06b5a8bbc572f9ed2b23b;hpb=22b819c0cd0ca0ea5be52ba280b9e9e0b8e86210;p=sbcl.git

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index fe13620..68e5d9f 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -296,7 +296,7 @@
   "Return the logarithm of NUMBER in the base BASE, which defaults to e."
   (if base-p
       (cond
-	((zerop base) base) ; ANSI spec
+	((zerop base) 0f0) ; FIXME: type
 	((and (typep number '(integer (0) *))
 	      (typep base '(integer (0) *)))
 	 (coerce (/ (log2 number) (log2 base)) 'single-float))