Index: /trunk/ccl/compiler/PPC/ppc2.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 347)
+++ /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 348)
@@ -47,8 +47,8 @@
          (label-var (gensym)))
     `(macrolet ((! (,template-name-var &rest ,args-var)
-                  (let* ((,template-temp (get-vinsn-template-cell ,template-name-var *ppc-vinsn-templates*)))
+                  (let* ((,template-temp (get-vinsn-template-cell ,template-name-var (backend-p2-vinsn-templates *target-backend*))))
                     (unless ,template-temp
                       (warn "VINSN \"~A\" not defined" ,template-name-var))
-                    `(%emit-vinsn ,',segvar (load-time-value (get-vinsn-template-cell ',,template-name-var *ppc-vinsn-templates*)) *ppc-vinsn-templates* ,@,args-var))))
+                    `(%emit-vinsn ,',segvar (load-time-value (get-vinsn-template-cell ',,template-name-var (backend-p2-vinsn-templates *target-backend*))) (backend-p2-vinsn-templates *target-backend*) ,@,args-var))))
        (macrolet ((<- (,retvreg-var)
                     `(ppc2-copy-register ,',segvar ,',vreg-var ,,retvreg-var))
@@ -374,5 +374,5 @@
            (*ppc2-bottom-vstack-lcell* (ppc2-new-vstack-lcell :bottom 0 0 nil))
            (*ppc2-var-cells* nil)
-           (*backend-vinsns* *ppc-vinsn-templates*)
+           (*backend-vinsns* (backend-p2-vinsn-templates *target-backend*))
            (*backend-node-regs* ppc-node-regs)
            (*backend-node-temps* ppc-temp-node-regs)