Index: /trunk/ccl/level-0/PPC/ppc-array.lisp
===================================================================
--- /trunk/ccl/level-0/PPC/ppc-array.lisp	(revision 5480)
+++ /trunk/ccl/level-0/PPC/ppc-array.lisp	(revision 5481)
@@ -824,5 +824,13 @@
 
 
-
+(defppclapfunction %aref2 ((array arg_x) (i arg_y) (j arg_z))
+  (check-nargs 3)
+  (ba .SParef2))
+
+
+(defppclapfunction %aset2 ((array 0) (i arg_x) (j arg_y) (newval arg_z))
+  (check-nargs 4)
+  (vpop temp0)
+  (ba .SPaset2))