X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=2285b4f6e704e74d3d0152dd9b0fb98475f27cf1;hb=625c9493a8a7b5186144d21302437cf4f4f3571c;hp=385402e291138a6b0cb51ff1859e89e3e96dab91;hpb=a7a4ca961ef0f587a2549bd9433eef7ddb845ab7;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 385402e..2285b4f 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -152,7 +152,8 @@ evaluated as a PROGN."
 (defun inline-fun-name-p (name)
   (or
    ;; the normal reason for saving the inline expansion
-   (info :function :inlinep name)
+   (let ((inlinep (info :function :inlinep name)))
+     (member inlinep '(:inline :maybe-inline)))
    ;; another reason for saving the inline expansion: If the
    ;; ANSI-recommended idiom
    ;;   (DECLAIM (INLINE FOO))