Index: /trunk/ccl/compiler/PPC/ppc-asm.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc-asm.lisp	(revision 340)
+++ /trunk/ccl/compiler/PPC/ppc-asm.lisp	(revision 341)
@@ -1992,5 +1992,5 @@
             (incf (svref *ppc-opcode-counts* op))))))
   (when (fboundp 'ccl::fixup-vinsn-templates)   ; not defined yet at bootstrap time
-    (ccl::fixup-vinsn-templates ccl::*ppc-vinsn-templates* *ppc-opcode-numbers* ))
+    (ccl::fixup-vinsn-templates (ccl::backend-p2-vinsn-templates ccl::*target-backend*) *ppc-opcode-numbers* ))
   (when (fboundp 'ccl::fixup-ppc-backend)
     (ccl::fixup-ppc-backend)))
@@ -2428,4 +2428,8 @@
 
 
+
+
+(defun ccl::lookup-ppc-opcode (name)
+  (gethash (string name) ppc::*ppc-opcode-numbers*))
 
 #|