X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbyte-interp.lisp;h=cb73c3c24f1513d03b33844907291bb7d5ac7397;hb=aa2dc9529460ea0d9c99998dc87283fc1a43e808;hp=a890b0ada0126d8f522cce1347f8b94209312d9c;hpb=fdf07da187cb31fd5bdd872c73245fd72877b1a1;p=sbcl.git

diff --git a/src/code/byte-interp.lisp b/src/code/byte-interp.lisp
index a890b0a..cb73c3c 100644
--- 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))