Changeset 495

Timestamp:

Feb 7, 2004, 2:19:10 PM (21 years ago)

Author:

Gary Byers

Message:

Add STORE-GVECTOR-CONDITIONAL, to hide some represenatation details.

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-misc.lisp

@@ -444 +444 @@
           (return cell))))))
 
+(defun store-gvector-conditional (index gvector old new)
+  (%store-node-conditional (+ target::misc-data-offset
+                              (ash index target::word-shift))
+                           gvector
+                           old
+                           new))
+
 (defun %atomic-incf-car (cell &optional (by 1))
   (%atomic-incf-node (require-type by 'fixnum)