Changeset 5516

Timestamp:

Nov 7, 2006, 8:10:25 PM (18 years ago)

Author:

Gary Byers

Message:

Transform three-argument AREF->%AREF3, ASET->%ASET3.

File:

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

trunk/ccl/compiler/optimizers.lisp

@@ -1569 +1569 @@
                    type)))  
     (if (= 2 (length subscripts))
-      (setq call `(%aref2 ,a ,(car subscripts) ,(cadr subscripts))))
+      (setq call `(%aref2 ,a ,@subscripts))
+      (if (= 3 (length subscripts))
+        (setq call `(%aref3 ,a ,@subscripts))))
     (if useful
       `(the ,useful ,call)
@@ -1577 +1579 @@
 (define-compiler-macro aset (&whole call a &rest subs&val)
   (if (= 3 (length subs&val))
-    `(%aset2 ,a ,(car subs&val) ,(cadr subs&val) ,(caddr subs&val))
-    call))
+    `(%aset2 ,a ,@subs&val)
+    (if (= 4 (length subs&val))
+      `(%aset3 ,a ,@subs&val)
+      call)))