diff options
author | dos-reis <gdr@axiomatics.org> | 2010-10-27 08:36:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-10-27 08:36:45 +0000 |
commit | 88431a10d86db0b69fb67339dcacf088d005482b (patch) | |
tree | 4c513999f071ffe782b50f061b21320936147a88 /src/algebra/strap/ILIST.lsp | |
parent | 388a4332860c39a19fedbe2bdc4dbc8b411115e6 (diff) | |
download | open-axiom-88431a10d86db0b69fb67339dcacf088d005482b.tar.gz |
* algebra/boolean.spad.pamphlet (Logic): Now extend Type.
Diffstat (limited to 'src/algebra/strap/ILIST.lsp')
-rw-r--r-- | src/algebra/strap/ILIST.lsp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp index bcc6d8bd..70b228e2 100644 --- a/src/algebra/strap/ILIST.lsp +++ b/src/algebra/strap/ILIST.lsp @@ -382,7 +382,7 @@ ((< |n| 1) (|error| "index out of range")) (T (SEQ (SETQ |p| (|ILIST;rest;$Nni$;19| |p| - (LET ((#0=#:G1506 (- |n| 1))) + (LET ((#0=#:G1481 (- |n| 1))) (|check-subtype| (NOT (MINUSP #0#)) '(|NonNegativeInteger|) #0#)) $)) @@ -401,7 +401,7 @@ (EXIT (COND ((< |n| 3) |p|) (T (SEQ (LETT |l| - (LET ((#0=#:G1511 (TRUNCATE |n| 2))) + (LET ((#0=#:G1486 (TRUNCATE |n| 2))) (|check-subtype| (NOT (MINUSP #0#)) '(|NonNegativeInteger|) #0#)) |ILIST;mergeSort|) @@ -413,10 +413,10 @@ $)) (EXIT (|ILIST;merge!;M3$;28| |f| |p| |q| $)))))))))) -(DEFUN |IndexedList| (&REST #0=#:G1520 &AUX #1=#:G1518) +(DEFUN |IndexedList| (&REST #0=#:G1495 &AUX #1=#:G1493) (DECLARE (SPECIAL |$ConstructorCache|)) (DSETQ #1# #0#) - (PROG (#2=#:G1519) + (PROG (#2=#:G1494) (RETURN (COND ((SETQ #2# |