Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5499)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5500)
@@ -118,4 +118,10 @@
   (stwx val v scaled-idx))
 
+(define-ppc32-vinsn misc-set-s32 (()
+                                  ((val :s32)
+                                   (v :lisp)
+                                   (scaled-idx :u32)))
+  (stwx val v scaled-idx))
+
                               
 (define-ppc32-vinsn misc-ref-single-float  (((dest :single-float))
@@ -202,4 +208,16 @@
   (lha dest (:apply + ppc32::misc-data-offset (:apply ash idx 1)) v))
 
+
+(define-ppc32-vinsn misc-set-c-s16  (((val :s16))
+                                     ((v :lisp)
+                                      (idx :u32const))
+                                     ())
+  (sth val (:apply + ppc32::misc-data-offset (:apply ash idx 1)) v))
+
+(define-ppc32-vinsn misc-set-s16 (((val :s16))
+                                  ((v :lisp)
+                                   (scaled-idx :s32)))
+  (sthx val v scaled-idx))
+
 (define-ppc32-vinsn misc-ref-u8  (((dest :u8))
                                   ((v :lisp)
@@ -240,4 +258,15 @@
   (extsb dest dest))
 
+(define-ppc32-vinsn misc-set-c-s8  (((val :s8))
+                                    ((v :lisp)
+                                     (idx :u32const))
+                                    ())
+  (stb val (:apply + ppc32::misc-data-offset idx) v))
+
+(define-ppc32-vinsn misc-set-s8  (((val :s8))
+                                  ((v :lisp)
+                                   (scaled-idx :u32))
+                                  ())
+  (stbx val v scaled-idx))
 
 (define-ppc32-vinsn misc-ref-c-bit (((dest :u8))
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5499)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5500)
@@ -165,4 +165,15 @@
   (stwx val v scaled-idx))
 
+(define-ppc64-vinsn misc-set-c-s32 (()
+				    ((val :s32)
+				     (v :lisp)
+				     (idx :u32const)))
+  (stw val (:apply + ppc64::misc-data-offset (:apply ash idx 2)) v))
+
+(define-ppc64-vinsn misc-set-s32 (()
+				  ((val :s32)
+				   (v :lisp)
+				   (scaled-idx :u64)))
+  (stwx val v scaled-idx))
                               
 (define-ppc64-vinsn misc-ref-single-float  (((dest :single-float))
@@ -249,4 +260,15 @@
   (lha dest (:apply + ppc64::misc-data-offset (:apply ash idx 1)) v))
 
+(define-ppc64-vinsn misc-set-c-s16  (((val :s16))
+				     ((v :lisp)
+				      (idx :u32const))
+				     ())
+  (sth val (:apply + ppc64::misc-data-offset (:apply ash idx 1)) v))
+
+(define-ppc64-vinsn misc-set-s16 (((val :s16))
+				  ((v :lisp)
+				   (scaled-idx :s64)))
+  (sthx val v scaled-idx))
+
 (define-ppc64-vinsn misc-ref-u8  (((dest :u8))
 				  ((v :lisp)
@@ -287,4 +309,15 @@
   (extsb dest dest))
 
+(define-ppc64-vinsn misc-set-c-s8  (((val :s8))
+				    ((v :lisp)
+				     (idx :u32const))
+				    ())
+  (stb val (:apply + ppc64::misc-data-offset idx) v))
+
+(define-ppc64-vinsn misc-set-s8  (((val :s8))
+				  ((v :lisp)
+				   (scaled-idx :u64))
+				  ())
+  (stbx val v scaled-idx))
 
 (define-ppc64-vinsn misc-ref-c-bit (((dest :u8))