Index: /trunk/ccl/level-1/l1-utils.lisp
===================================================================
--- /trunk/ccl/level-1/l1-utils.lisp	(revision 398)
+++ /trunk/ccl/level-1/l1-utils.lisp	(revision 399)
@@ -1516,5 +1516,17 @@
 				  (arg2 (prog1 arg1 (setq arg1 0))))
   (%%set-unsigned-longlong ptr arg1 arg2))
-				  
+
+(defun %composite-pointer-ref (size pointer offset)
+  (declare (ignorable size))
+  (%inc-ptr pointer offset))
+
+(defun %set-composite-pointer-ref (size pointer offset new)
+  (#_bcopy new
+	   (%inc-ptr pointer offset)
+	   size))
+
+
+(defsetf %composite-pointer-ref %set-composite-pointer-ref)
+
 
 ;end of L1-utils.lisp