From af3ebc0d983434f91686d8e2ba7bcb21d5083a30 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 18 Apr 2009 17:57:00 +0000
Subject: 	* algebra/mkfunc.spad.pamphlet (InputForm): Remove assignment
 to Rep. 	(convert): Use per and rep operators. 	* algebra/stap:
 Updated cached Lisp translation.

---
 src/algebra/strap/STAGG-.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/STAGG-.lsp')

diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp
index 0048a3c3..cb3671d0 100644
--- a/src/algebra/strap/STAGG-.lsp
+++ b/src/algebra/strap/STAGG-.lsp
@@ -104,7 +104,7 @@
                  |STAGG-;elt;AUsA;6|)
            (EXIT (COND
                    ((< |l| 0) (|error| "index out of range"))
-                   ((NULL (SPADCALL |i| (|getShellEntry| $ 31)))
+                   ((NOT (SPADCALL |i| (|getShellEntry| $ 31)))
                     (SPADCALL
                         (SPADCALL |x|
                             (PROG1 |l|
-- 
cgit v1.2.3