Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5099)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5100)
@@ -3407,5 +3407,5 @@
                                              ((code :u8const)))
   (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #x255 code) ppc32::charcode-shift) ppc32::subtag-character))
-  ((:pred (:not = 0 (:apply ldb (byte 16 8) code)))
+  ((:not (:pred = 0 (:apply ldb (byte 16 8) code)))
    (oris dest dest (:apply ldb (byte 16 8) code))))
 
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5099)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5100)
@@ -3434,5 +3434,5 @@
                                              ())
   (ori dest ppc::rzero (:apply logior (:apply ash code 8) ppc64::subtag-character))
-  ((:pred (:not = 0 (:apply ldb (byte 16 8) code)))
+  ((:not (:pred = 0 (:apply ldb (byte 16 8) code)))
    (oris dest dest (:apply ldb (byte 16 8) code))))