X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fppc%2Fdebug.lisp;h=3c5815cecee3094566e5f272b6fa9a2c8b9c8129;hb=0e3c4b4db102bd204a30402d7e5a0de44aea57ce;hp=874bb5efcc21f21a1fef15a103f2e246dabb55ee;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/ppc/debug.lisp b/src/compiler/ppc/debug.lisp
index 874bb5e..3c5815c 100644
--- a/src/compiler/ppc/debug.lisp
+++ b/src/compiler/ppc/debug.lisp
@@ -82,9 +82,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)))