X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-random.lisp;h=e7a65a7a5657be69209c02f5f26e438868cb74d5;hb=62c09fabe8aa8f1bd75bf4db4c20e195a1b6bc1d;hp=28c4db4371ccc792b05ecbe7f3144232be5c982f;hpb=22b819c0cd0ca0ea5be52ba280b9e9e0b8e86210;p=sbcl.git

diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp
index 28c4db4..e7a65a7 100644
--- a/src/code/target-random.lisp
+++ b/src/code/target-random.lisp
@@ -259,7 +259,7 @@
 
 (defun random (arg &optional (state *random-state*))
   (declare (inline %random-single-float %random-double-float
-		   #!+long-float %long-float))
+		   #!+long-float %random-long-float))
   (cond
     ((and (fixnump arg) (<= arg random-fixnum-max) (> arg 0))
      (rem (random-chunk state) arg))