From 825bbf4381c95fba0e6de0f662f5fe61f77160a1 Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Sun, 19 May 2013 23:27:26 -0400 Subject: [PATCH] Declare the argument type for float-radix Otherwise, inlined copies sometimes skip the type check. --- src/code/float.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/code/float.lisp b/src/code/float.lisp index 5c53e87..a3a0114 100644 --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -170,7 +170,7 @@ (defun float-radix (x) #!+sb-doc "Return (as an integer) the radix b of its floating-point argument." - (declare (ignore x)) + (declare (ignore x) (type float x)) 2) ;;;; INTEGER-DECODE-FLOAT and DECODE-FLOAT -- 1.7.10.4