X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fdebug.lisp;h=b04bb1bcbe6b72e93da8281f6dd0cd89d36a7a5b;hb=74cf7a4d01664fbf72a662ba093ad67ca243b524;hp=e2cbf7bc7c21730e27450e1e47c49ae5b6419eac;hpb=aa8c8cd473f1d487fa2c1a7490c78a59b9955bbe;p=sbcl.git

diff --git a/src/compiler/mips/debug.lisp b/src/compiler/mips/debug.lisp
index e2cbf7b..b04bb1b 100644
--- a/src/compiler/mips/debug.lisp
+++ b/src/compiler/mips/debug.lisp
@@ -113,9 +113,9 @@
   (:translate sb!di::fun-code-header)
   (:variant fun-pointer-lowtag))
 
-(define-vop (make-lisp-obj)
+(define-vop (%make-lisp-obj)
   (:policy :fast-safe)
-  (:translate sb!di::make-lisp-obj)
+  (:translate %make-lisp-obj)
   (:args (value :scs (unsigned-reg) :target result))
   (:arg-types unsigned-num)
   (:results (result :scs (descriptor-reg)))