Changeset 399

Timestamp:

Jan 25, 2004, 2:11:16 PM (21 years ago)

Author:

Gary Byers

Message:

%COMPOSITE-POINTER-REF, so embedded foreign structs can be SETF-able.

File:

• trunk/ccl/level-1/l1-utils.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-utils.lisp

@@ -1516 +1516 @@
                                   (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