0.6.12.22:

[sbcl.git] / src / code / byte-interp.lisp

diff --git a/src/code/byte-interp.lisp b/src/code/byte-interp.lisp
index a890b0a..cb73c3c 100644 (file)
--- a/src/code/byte-interp.lisp
+++ b/src/code/byte-interp.lisp
@@ -232,7 +232,7 @@
            (value (cdr x)))
        (setf (svref res value)
              (if (and (consp key) (eq (car key) '%fdefinition-marker%))
-                 (sb!impl::fdefinition-object (cdr key) t)
+                 (fdefinition-object (cdr key) t)
                  key))))
     res))
 \f