0.pre7.61:

[sbcl.git] / src / code / eval.lisp

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 3e30128..c1ea72b 100644 (file)
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -177,7 +177,7 @@
                 ((stringp name)
                  (values nil t name))
                 (t
-                 (let ((exp (info :function :inline-expansion name)))
+                 (let ((exp (fun-name-inline-expansion name)))
                    (if exp
                        (values exp nil name)
                        (values nil t name))))))