Changeset 5499

Timestamp:

Nov 6, 2006, 9:01:08 PM (18 years ago)

Author:

Gary Byers

Message:

general-aset2, simple-typed-aset2.

File:

• trunk/ccl/compiler/nxenv.lisp (modified) (2 diffs)

trunk/ccl/compiler/nxenv.lisp

@@ -233 +233 @@
      (%immediate-inc-ptr . #.(logior operator-returns-address-mask operator-single-valued-mask))
      (2d-simple-aref . 0)
-     (2d-simple-aset . 0)
+     (general-aset2 . #.(logior operator-acode-subforms-mask operator-single-valued-mask))
      (%new-ptr . 0)
      (%schar . #.(logior operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask))
@@ -264 +264 @@
      (memq . #.(logior operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (assq . #.(logior operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
-     (aset2 . #.(logior operator-acode-subforms-mask operator-single-valued-mask))
+     (simple-typed-aset2 . #.(logior operator-acode-subforms-mask operator-single-valued-mask))
      (consp . #.(logior operator-cc-invertable-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask operator-boolean-mask))
      (aset1 . #.(logior operator-acode-subforms-mask))