0.pre7.136:

[sbcl.git] / src / compiler / float-tran.lisp

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp
index 2b2495d..d1d3005 100644 (file)
--- a/src/compiler/float-tran.lisp
+++ b/src/compiler/float-tran.lisp
@@ -1285,7 +1285,7 @@
                (defknown ,ufun (real) integer (movable foldable flushable))
                (deftransform ,fun ((x &optional by)
                                    (* &optional
-                                      (constant-argument (member 1))))
+                                      (constant-arg (member 1))))
                  '(let ((res (,ufun x)))
                     (values res (- x res)))))))
   (define-frobs truncate %unary-truncate)