From f28f87186f166f68374a132ef89065adb6752bc8 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 2 Jul 2009 15:31:18 +0000
Subject: 	* interp/sys-macros.lisp (COLLECTV): Use setSimpleArrayEntry,
 not 	SETELT.

---
 src/algebra/strap/POLYCAT-.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/algebra')

diff --git a/src/algebra/strap/POLYCAT-.lsp b/src/algebra/strap/POLYCAT-.lsp
index 5901853e..3b73ad54 100644
--- a/src/algebra/strap/POLYCAT-.lsp
+++ b/src/algebra/strap/POLYCAT-.lsp
@@ -1184,7 +1184,8 @@
                                              (GO G191)))
                                           (SEQ
                                            (EXIT
-                                            (SETELT #15# #16#
+                                            (|setSimpleArrayEntry| #15#
+                                             #16#
                                              (PROGN
                                                (LETT #21# NIL
                                                 |POLYCAT-;conditionP;MU;27|)
-- 
cgit v1.2.3