X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Firrat.lisp;h=771795a5ae6d2926e1f76796fa654d7c4c87f95c;hb=d5393dd736972a5c84cd97fec9892cd3da80b669;hp=68e5d9fbef81f4f8c1adfb89d1bb6f4aeff48a03;hpb=36af92a6a196f6f758005a3ef439e7ccd0e0f652;p=sbcl.git

diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp
index 68e5d9f..771795a 100644
--- a/src/code/irrat.lisp
+++ b/src/code/irrat.lisp
@@ -25,7 +25,7 @@
 (sb!xc:defmacro def-math-rtn (name num-args)
   (let ((function (symbolicate "%" (string-upcase name))))
     `(progn
-       (proclaim '(inline ,function))
+       (declaim (inline ,function))
        (sb!alien:define-alien-routine (,name ,function) double-float
          ,@(let ((results nil))
              (dotimes (i num-args (nreverse results))