diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-17 08:59:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-17 08:59:26 +0000 |
commit | 5e504b6abaef6cf7e7c58c17e26bec33856b60c0 (patch) | |
tree | fc93b37d696d3c1ca38437a5ad9a815a85fe46b7 /src/algebra/strap/LSAGG-.lsp | |
parent | ffb91646c6f11e84fa886aa5abc2de61ba291cc1 (diff) | |
download | open-axiom-5e504b6abaef6cf7e7c58c17e26bec33856b60c0.tar.gz |
* algebra/Makefile.pamphlet (all-algstrap): New.
* algebra/strap: Update cached Lisp translation.
Diffstat (limited to 'src/algebra/strap/LSAGG-.lsp')
-rw-r--r-- | src/algebra/strap/LSAGG-.lsp | 742 |
1 files changed, 507 insertions, 235 deletions
diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index 5a27a55c..98528759 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -2,22 +2,23 @@ (/VERSIONCHECK 2) (DEFUN |LSAGG-;sort!;M2A;1| (|f| |l| $) - (|LSAGG-;mergeSort| |f| |l| (SPADCALL |l| (QREFELT $ 9)) $)) + (|LSAGG-;mergeSort| |f| |l| (SPADCALL |l| (|getShellEntry| $ 9)) $)) (DEFUN |LSAGG-;list;SA;2| (|x| $) - (SPADCALL |x| (SPADCALL (QREFELT $ 12)) (QREFELT $ 13))) + (SPADCALL |x| (SPADCALL (|getShellEntry| $ 13)) + (|getShellEntry| $ 14))) (DEFUN |LSAGG-;reduce;MAS;3| (|f| |x| $) (COND - ((SPADCALL |x| (QREFELT $ 16)) + ((SPADCALL |x| (|getShellEntry| $ 16)) (|error| "reducing over an empty list needs the 3 argument form")) ('T - (SPADCALL |f| (SPADCALL |x| (QREFELT $ 17)) - (SPADCALL |x| (QREFELT $ 18)) (QREFELT $ 20))))) + (SPADCALL |f| (SPADCALL |x| (|getShellEntry| $ 17)) + (SPADCALL |x| (|getShellEntry| $ 18)) (|getShellEntry| $ 20))))) (DEFUN |LSAGG-;merge;M3A;4| (|f| |p| |q| $) - (SPADCALL |f| (SPADCALL |p| (QREFELT $ 22)) - (SPADCALL |q| (QREFELT $ 22)) (QREFELT $ 23))) + (SPADCALL |f| (SPADCALL |p| (|getShellEntry| $ 22)) + (SPADCALL |q| (|getShellEntry| $ 22)) (|getShellEntry| $ 23))) (DEFUN |LSAGG-;select!;M2A;5| (|f| |x| $) (PROG (|y| |z|) @@ -25,48 +26,56 @@ (SEQ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) ('T (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 18)) + (SPADCALL + (SPADCALL |x| + (|getShellEntry| $ 18)) |f|) - (QREFELT $ 25))))) + (|getShellEntry| $ 25))))) (GO G191))) - (SEQ (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (SEQ (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;select!;M2A;5|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (COND - ((SPADCALL |x| (QREFELT $ 16)) |x|) + ((SPADCALL |x| (|getShellEntry| $ 16)) |x|) ('T (SEQ (LETT |y| |x| |LSAGG-;select!;M2A;5|) - (LETT |z| (SPADCALL |y| (QREFELT $ 17)) + (LETT |z| + (SPADCALL |y| (|getShellEntry| $ 17)) |LSAGG-;select!;M2A;5|) (SEQ G190 (COND ((NULL (SPADCALL - (SPADCALL |z| (QREFELT $ 16)) - (QREFELT $ 25))) + (SPADCALL |z| + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) (GO G191))) (SEQ (EXIT (COND ((SPADCALL - (SPADCALL |z| (QREFELT $ 18)) + (SPADCALL |z| + (|getShellEntry| $ 18)) |f|) (SEQ (LETT |y| |z| |LSAGG-;select!;M2A;5|) (EXIT (LETT |z| - (SPADCALL |z| (QREFELT $ 17)) + (SPADCALL |z| + (|getShellEntry| $ 17)) |LSAGG-;select!;M2A;5|)))) ('T (SEQ (LETT |z| - (SPADCALL |z| (QREFELT $ 17)) + (SPADCALL |z| + (|getShellEntry| $ 17)) |LSAGG-;select!;M2A;5|) (EXIT (SPADCALL |y| |z| - (QREFELT $ 26)))))))) + (|getShellEntry| $ 26)))))))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |x|))))))))) @@ -74,76 +83,86 @@ (PROG (|r| |t|) (RETURN (SEQ (COND - ((SPADCALL |p| (QREFELT $ 16)) |q|) - ((SPADCALL |q| (QREFELT $ 16)) |p|) - ((SPADCALL |p| |q| (QREFELT $ 29)) + ((SPADCALL |p| (|getShellEntry| $ 16)) |q|) + ((SPADCALL |q| (|getShellEntry| $ 16)) |p|) + ((SPADCALL |p| |q| (|getShellEntry| $ 29)) (|error| "cannot merge a list into itself")) ('T (SEQ (COND - ((SPADCALL (SPADCALL |p| (QREFELT $ 18)) - (SPADCALL |q| (QREFELT $ 18)) |f|) + ((SPADCALL (SPADCALL |p| (|getShellEntry| $ 18)) + (SPADCALL |q| (|getShellEntry| $ 18)) |f|) (SEQ (LETT |r| (LETT |t| |p| |LSAGG-;merge!;M3A;6|) |LSAGG-;merge!;M3A;6|) (EXIT (LETT |p| - (SPADCALL |p| (QREFELT $ 17)) + (SPADCALL |p| + (|getShellEntry| $ 17)) |LSAGG-;merge!;M3A;6|)))) ('T (SEQ (LETT |r| (LETT |t| |q| |LSAGG-;merge!;M3A;6|) |LSAGG-;merge!;M3A;6|) (EXIT (LETT |q| - (SPADCALL |q| (QREFELT $ 17)) + (SPADCALL |q| + (|getShellEntry| $ 17)) |LSAGG-;merge!;M3A;6|))))) (SEQ G190 (COND ((NULL (COND - ((SPADCALL |p| (QREFELT $ 16)) 'NIL) + ((SPADCALL |p| + (|getShellEntry| $ 16)) + 'NIL) ('T (SPADCALL - (SPADCALL |q| (QREFELT $ 16)) - (QREFELT $ 25))))) + (SPADCALL |q| + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))))) (GO G191))) (SEQ (EXIT (COND ((SPADCALL - (SPADCALL |p| (QREFELT $ 18)) - (SPADCALL |q| (QREFELT $ 18)) + (SPADCALL |p| + (|getShellEntry| $ 18)) + (SPADCALL |q| + (|getShellEntry| $ 18)) |f|) (SEQ (SPADCALL |t| |p| - (QREFELT $ 26)) + (|getShellEntry| $ 26)) (LETT |t| |p| |LSAGG-;merge!;M3A;6|) (EXIT (LETT |p| - (SPADCALL |p| (QREFELT $ 17)) + (SPADCALL |p| + (|getShellEntry| $ 17)) |LSAGG-;merge!;M3A;6|)))) ('T (SEQ (SPADCALL |t| |q| - (QREFELT $ 26)) + (|getShellEntry| $ 26)) (LETT |t| |q| |LSAGG-;merge!;M3A;6|) (EXIT (LETT |q| - (SPADCALL |q| (QREFELT $ 17)) + (SPADCALL |q| + (|getShellEntry| $ 17)) |LSAGG-;merge!;M3A;6|))))))) NIL (GO G190) G191 (EXIT NIL)) (SPADCALL |t| (COND - ((SPADCALL |p| (QREFELT $ 16)) |q|) + ((SPADCALL |p| (|getShellEntry| $ 16)) |q|) ('T |p|)) - (QREFELT $ 26)) + (|getShellEntry| $ 26)) (EXIT |r|)))))))) (DEFUN |LSAGG-;insert!;SAIA;7| (|s| |x| |i| $) - (PROG (|m| #0=#:G1464 |y| |z|) + (PROG (|m| #0=#:G1461 |y| |z|) (RETURN - (SEQ (LETT |m| (SPADCALL |x| (QREFELT $ 32)) + (SEQ (LETT |m| (SPADCALL |x| (|getShellEntry| $ 32)) |LSAGG-;insert!;SAIA;7|) (EXIT (COND ((< |i| |m|) (|error| "index out of range")) - ((EQL |i| |m|) (SPADCALL |s| |x| (QREFELT $ 13))) + ((EQL |i| |m|) + (SPADCALL |s| |x| (|getShellEntry| $ 14))) ('T (SEQ (LETT |y| (SPADCALL |x| @@ -152,23 +171,25 @@ |LSAGG-;insert!;SAIA;7|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 33)) + (|getShellEntry| $ 33)) |LSAGG-;insert!;SAIA;7|) - (LETT |z| (SPADCALL |y| (QREFELT $ 17)) + (LETT |z| + (SPADCALL |y| (|getShellEntry| $ 17)) |LSAGG-;insert!;SAIA;7|) (SPADCALL |y| - (SPADCALL |s| |z| (QREFELT $ 13)) - (QREFELT $ 26)) + (SPADCALL |s| |z| (|getShellEntry| $ 14)) + (|getShellEntry| $ 26)) (EXIT |x|))))))))) (DEFUN |LSAGG-;insert!;2AIA;8| (|w| |x| |i| $) - (PROG (|m| #0=#:G1468 |y| |z|) + (PROG (|m| #0=#:G1465 |y| |z|) (RETURN - (SEQ (LETT |m| (SPADCALL |x| (QREFELT $ 32)) + (SEQ (LETT |m| (SPADCALL |x| (|getShellEntry| $ 32)) |LSAGG-;insert!;2AIA;8|) (EXIT (COND ((< |i| |m|) (|error| "index out of range")) - ((EQL |i| |m|) (SPADCALL |w| |x| (QREFELT $ 35))) + ((EQL |i| |m|) + (SPADCALL |w| |x| (|getShellEntry| $ 35))) ('T (SEQ (LETT |y| (SPADCALL |x| @@ -177,12 +198,14 @@ |LSAGG-;insert!;2AIA;8|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 33)) + (|getShellEntry| $ 33)) |LSAGG-;insert!;2AIA;8|) - (LETT |z| (SPADCALL |y| (QREFELT $ 17)) + (LETT |z| + (SPADCALL |y| (|getShellEntry| $ 17)) |LSAGG-;insert!;2AIA;8|) - (SPADCALL |y| |w| (QREFELT $ 26)) - (SPADCALL |y| |z| (QREFELT $ 35)) (EXIT |x|))))))))) + (SPADCALL |y| |w| (|getShellEntry| $ 26)) + (SPADCALL |y| |z| (|getShellEntry| $ 35)) + (EXIT |x|))))))))) (DEFUN |LSAGG-;remove!;M2A;9| (|f| |x| $) (PROG (|p| |q|) @@ -190,35 +213,41 @@ (SEQ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) ('T - (SPADCALL (SPADCALL |x| (QREFELT $ 18)) + (SPADCALL + (SPADCALL |x| (|getShellEntry| $ 18)) |f|)))) (GO G191))) - (SEQ (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (SEQ (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;remove!;M2A;9|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (COND - ((SPADCALL |x| (QREFELT $ 16)) |x|) + ((SPADCALL |x| (|getShellEntry| $ 16)) |x|) ('T (SEQ (LETT |p| |x| |LSAGG-;remove!;M2A;9|) - (LETT |q| (SPADCALL |x| (QREFELT $ 17)) + (LETT |q| + (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;remove!;M2A;9|) (SEQ G190 (COND ((NULL (SPADCALL - (SPADCALL |q| (QREFELT $ 16)) - (QREFELT $ 25))) + (SPADCALL |q| + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) (GO G191))) (SEQ (EXIT (COND ((SPADCALL - (SPADCALL |q| (QREFELT $ 18)) + (SPADCALL |q| + (|getShellEntry| $ 18)) |f|) (LETT |q| (SPADCALL |p| - (SPADCALL |q| (QREFELT $ 17)) - (QREFELT $ 26)) + (SPADCALL |q| + (|getShellEntry| $ 17)) + (|getShellEntry| $ 26)) |LSAGG-;remove!;M2A;9|)) ('T (SEQ @@ -226,19 +255,21 @@ |LSAGG-;remove!;M2A;9|) (EXIT (LETT |q| - (SPADCALL |q| (QREFELT $ 17)) + (SPADCALL |q| + (|getShellEntry| $ 17)) |LSAGG-;remove!;M2A;9|))))))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |x|))))))))) (DEFUN |LSAGG-;delete!;AIA;10| (|x| |i| $) - (PROG (|m| #0=#:G1480 |y|) + (PROG (|m| #0=#:G1477 |y|) (RETURN - (SEQ (LETT |m| (SPADCALL |x| (QREFELT $ 32)) + (SEQ (LETT |m| (SPADCALL |x| (|getShellEntry| $ 32)) |LSAGG-;delete!;AIA;10|) (EXIT (COND ((< |i| |m|) (|error| "index out of range")) - ((EQL |i| |m|) (SPADCALL |x| (QREFELT $ 17))) + ((EQL |i| |m|) + (SPADCALL |x| (|getShellEntry| $ 17))) ('T (SEQ (LETT |y| (SPADCALL |x| @@ -247,27 +278,29 @@ |LSAGG-;delete!;AIA;10|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 33)) + (|getShellEntry| $ 33)) |LSAGG-;delete!;AIA;10|) - (SPADCALL |y| (SPADCALL |y| 2 (QREFELT $ 33)) - (QREFELT $ 26)) + (SPADCALL |y| + (SPADCALL |y| 2 (|getShellEntry| $ 33)) + (|getShellEntry| $ 26)) (EXIT |x|))))))))) (DEFUN |LSAGG-;delete!;AUsA;11| (|x| |i| $) - (PROG (|l| |m| |h| #0=#:G1485 #1=#:G1486 |t| #2=#:G1487) + (PROG (|l| |m| |h| #0=#:G1482 #1=#:G1483 |t| #2=#:G1484) (RETURN - (SEQ (LETT |l| (SPADCALL |i| (QREFELT $ 40)) + (SEQ (LETT |l| (SPADCALL |i| (|getShellEntry| $ 40)) |LSAGG-;delete!;AUsA;11|) - (LETT |m| (SPADCALL |x| (QREFELT $ 32)) + (LETT |m| (SPADCALL |x| (|getShellEntry| $ 32)) |LSAGG-;delete!;AUsA;11|) (EXIT (COND ((< |l| |m|) (|error| "index out of range")) ('T (SEQ (LETT |h| (COND - ((SPADCALL |i| (QREFELT $ 41)) - (SPADCALL |i| (QREFELT $ 42))) - ('T (SPADCALL |x| (QREFELT $ 43)))) + ((SPADCALL |i| (|getShellEntry| $ 41)) + (SPADCALL |i| (|getShellEntry| $ 42))) + ('T + (SPADCALL |x| (|getShellEntry| $ 43)))) |LSAGG-;delete!;AUsA;11|) (EXIT (COND ((< |h| |l|) |x|) @@ -278,7 +311,7 @@ |LSAGG-;delete!;AUsA;11|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 33))) + (|getShellEntry| $ 33))) ('T (SEQ (LETT |t| (SPADCALL |x| @@ -288,7 +321,7 @@ (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#)) - (QREFELT $ 33)) + (|getShellEntry| $ 33)) |LSAGG-;delete!;AUsA;11|) (SPADCALL |t| (SPADCALL |t| @@ -298,63 +331,68 @@ (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#)) - (QREFELT $ 33)) - (QREFELT $ 26)) + (|getShellEntry| $ 33)) + (|getShellEntry| $ 26)) (EXIT |x|))))))))))))) (DEFUN |LSAGG-;find;MAU;12| (|f| |x| $) (SEQ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) ('T (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 18)) + (SPADCALL + (SPADCALL |x| (|getShellEntry| $ 18)) |f|) - (QREFELT $ 25))))) + (|getShellEntry| $ 25))))) (GO G191))) - (SEQ (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (SEQ (EXIT (LETT |x| (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;find;MAU;12|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (COND - ((SPADCALL |x| (QREFELT $ 16)) (CONS 1 "failed")) - ('T (CONS 0 (SPADCALL |x| (QREFELT $ 18)))))))) + ((SPADCALL |x| (|getShellEntry| $ 16)) + (CONS 1 "failed")) + ('T (CONS 0 (SPADCALL |x| (|getShellEntry| $ 18)))))))) (DEFUN |LSAGG-;position;MAI;13| (|f| |x| $) (PROG (|k|) (RETURN - (SEQ (SEQ (LETT |k| (SPADCALL |x| (QREFELT $ 32)) + (SEQ (SEQ (LETT |k| (SPADCALL |x| (|getShellEntry| $ 32)) |LSAGG-;position;MAI;13|) G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) ('T (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 18)) + (SPADCALL + (SPADCALL |x| + (|getShellEntry| $ 18)) |f|) - (QREFELT $ 25))))) + (|getShellEntry| $ 25))))) (GO G191))) - (SEQ (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (SEQ (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;position;MAI;13|))) (LETT |k| (+ |k| 1) |LSAGG-;position;MAI;13|) (GO G190) G191 (EXIT NIL)) (EXIT (COND - ((SPADCALL |x| (QREFELT $ 16)) - (- (SPADCALL |x| (QREFELT $ 32)) 1)) + ((SPADCALL |x| (|getShellEntry| $ 16)) + (- (SPADCALL |x| (|getShellEntry| $ 32)) 1)) ('T |k|))))))) (DEFUN |LSAGG-;mergeSort| (|f| |p| |n| $) - (PROG (#0=#:G1507 |l| |q|) + (PROG (#0=#:G1504 |l| |q|) (RETURN (SEQ (COND ((EQL |n| 2) (COND ((SPADCALL - (SPADCALL (SPADCALL |p| (QREFELT $ 17)) - (QREFELT $ 18)) - (SPADCALL |p| (QREFELT $ 18)) |f|) - (LETT |p| (SPADCALL |p| (QREFELT $ 48)) + (SPADCALL (SPADCALL |p| (|getShellEntry| $ 17)) + (|getShellEntry| $ 18)) + (SPADCALL |p| (|getShellEntry| $ 18)) |f|) + (LETT |p| (SPADCALL |p| (|getShellEntry| $ 48)) |LSAGG-;mergeSort|))))) (EXIT (COND ((< |n| 3) |p|) @@ -365,7 +403,9 @@ (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) |LSAGG-;mergeSort|) - (LETT |q| (SPADCALL |p| |l| (QREFELT $ 49)) + (LETT |q| + (SPADCALL |p| |l| + (|getShellEntry| $ 49)) |LSAGG-;mergeSort|) (LETT |p| (|LSAGG-;mergeSort| |f| |p| |l| $) |LSAGG-;mergeSort|) @@ -373,28 +413,33 @@ (|LSAGG-;mergeSort| |f| |q| (- |n| |l|) $) |LSAGG-;mergeSort|) - (EXIT (SPADCALL |f| |p| |q| (QREFELT $ 23))))))))))) + (EXIT (SPADCALL |f| |p| |q| + (|getShellEntry| $ 23))))))))))) (DEFUN |LSAGG-;sorted?;MAB;15| (|f| |l| $) - (PROG (#0=#:G1516 |p|) + (PROG (#0=#:G1513 |p|) (RETURN (SEQ (EXIT (COND - ((SPADCALL |l| (QREFELT $ 16)) 'T) + ((SPADCALL |l| (|getShellEntry| $ 16)) 'T) ('T - (SEQ (LETT |p| (SPADCALL |l| (QREFELT $ 17)) + (SEQ (LETT |p| + (SPADCALL |l| (|getShellEntry| $ 17)) |LSAGG-;sorted?;MAB;15|) (SEQ G190 (COND ((NULL (SPADCALL - (SPADCALL |p| (QREFELT $ 16)) - (QREFELT $ 25))) + (SPADCALL |p| + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) (GO G191))) (SEQ (EXIT (COND ((NULL (SPADCALL - (SPADCALL |l| (QREFELT $ 18)) - (SPADCALL |p| (QREFELT $ 18)) + (SPADCALL |l| + (|getShellEntry| $ 18)) + (SPADCALL |p| + (|getShellEntry| $ 18)) |f|)) (PROGN (LETT #0# 'NIL @@ -405,7 +450,7 @@ (SPADCALL (LETT |l| |p| |LSAGG-;sorted?;MAB;15|) - (QREFELT $ 17)) + (|getShellEntry| $ 17)) |LSAGG-;sorted?;MAB;15|))))) NIL (GO G190) G191 (EXIT NIL)) (EXIT 'T))))) @@ -417,14 +462,17 @@ (SEQ (LETT |r| |i| |LSAGG-;reduce;MA2S;16|) (SEQ G190 (COND - ((NULL (SPADCALL (SPADCALL |x| (QREFELT $ 16)) - (QREFELT $ 25))) + ((NULL (SPADCALL + (SPADCALL |x| (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) (GO G191))) (SEQ (LETT |r| - (SPADCALL |r| (SPADCALL |x| (QREFELT $ 18)) + (SPADCALL |r| + (SPADCALL |x| (|getShellEntry| $ 18)) |f|) |LSAGG-;reduce;MA2S;16|) - (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;reduce;MA2S;16|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |r|))))) @@ -436,16 +484,17 @@ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) ('T - (SPADCALL (SPADCALL |r| |a| (QREFELT $ 52)) - (QREFELT $ 25))))) + (SPADCALL |r| |a| (|getShellEntry| $ 52))))) (GO G191))) (SEQ (LETT |r| - (SPADCALL |r| (SPADCALL |x| (QREFELT $ 18)) + (SPADCALL |r| + (SPADCALL |x| (|getShellEntry| $ 18)) |f|) |LSAGG-;reduce;MA3S;17|) - (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;reduce;MA3S;17|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |r|))))) @@ -453,10 +502,13 @@ (DEFUN |LSAGG-;new;NniSA;18| (|n| |s| $) (PROG (|k| |l|) (RETURN - (SEQ (LETT |l| (SPADCALL (QREFELT $ 12)) |LSAGG-;new;NniSA;18|) + (SEQ (LETT |l| (SPADCALL (|getShellEntry| $ 13)) + |LSAGG-;new;NniSA;18|) (SEQ (LETT |k| 1 |LSAGG-;new;NniSA;18|) G190 (COND ((QSGREATERP |k| |n|) (GO G191))) - (SEQ (EXIT (LETT |l| (SPADCALL |s| |l| (QREFELT $ 13)) + (SEQ (EXIT (LETT |l| + (SPADCALL |s| |l| + (|getShellEntry| $ 14)) |LSAGG-;new;NniSA;18|))) (LETT |k| (QSADD1 |k|) |LSAGG-;new;NniSA;18|) (GO G190) G191 (EXIT NIL)) @@ -465,50 +517,60 @@ (DEFUN |LSAGG-;map;M3A;19| (|f| |x| |y| $) (PROG (|z|) (RETURN - (SEQ (LETT |z| (SPADCALL (QREFELT $ 12)) |LSAGG-;map;M3A;19|) + (SEQ (LETT |z| (SPADCALL (|getShellEntry| $ 13)) + |LSAGG-;map;M3A;19|) (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) 'NIL) + ((SPADCALL |x| (|getShellEntry| $ 16)) 'NIL) ('T - (SPADCALL (SPADCALL |y| (QREFELT $ 16)) - (QREFELT $ 25))))) + (SPADCALL + (SPADCALL |y| (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))))) (GO G191))) (SEQ (LETT |z| (SPADCALL - (SPADCALL (SPADCALL |x| (QREFELT $ 18)) - (SPADCALL |y| (QREFELT $ 18)) |f|) - |z| (QREFELT $ 13)) + (SPADCALL + (SPADCALL |x| + (|getShellEntry| $ 18)) + (SPADCALL |y| + (|getShellEntry| $ 18)) + |f|) + |z| (|getShellEntry| $ 14)) |LSAGG-;map;M3A;19|) - (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (LETT |x| (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;map;M3A;19|) - (EXIT (LETT |y| (SPADCALL |y| (QREFELT $ 17)) + (EXIT (LETT |y| + (SPADCALL |y| (|getShellEntry| $ 17)) |LSAGG-;map;M3A;19|))) NIL (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |z| (QREFELT $ 48))))))) + (EXIT (SPADCALL |z| (|getShellEntry| $ 48))))))) (DEFUN |LSAGG-;reverse!;2A;20| (|x| $) (PROG (|z| |y|) (RETURN (SEQ (COND - ((OR (SPADCALL |x| (QREFELT $ 16)) + ((OR (SPADCALL |x| (|getShellEntry| $ 16)) (SPADCALL - (LETT |y| (SPADCALL |x| (QREFELT $ 17)) + (LETT |y| (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;reverse!;2A;20|) - (QREFELT $ 16))) + (|getShellEntry| $ 16))) |x|) ('T - (SEQ (SPADCALL |x| (SPADCALL (QREFELT $ 12)) - (QREFELT $ 26)) + (SEQ (SPADCALL |x| (SPADCALL (|getShellEntry| $ 13)) + (|getShellEntry| $ 26)) (SEQ G190 (COND ((NULL (SPADCALL - (SPADCALL |y| (QREFELT $ 16)) - (QREFELT $ 25))) + (SPADCALL |y| + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) (GO G191))) - (SEQ (LETT |z| (SPADCALL |y| (QREFELT $ 17)) + (SEQ (LETT |z| + (SPADCALL |y| + (|getShellEntry| $ 17)) |LSAGG-;reverse!;2A;20|) - (SPADCALL |y| |x| (QREFELT $ 26)) + (SPADCALL |y| |x| (|getShellEntry| $ 26)) (LETT |x| |y| |LSAGG-;reverse!;2A;20|) (EXIT (LETT |y| |z| |LSAGG-;reverse!;2A;20|))) @@ -518,31 +580,35 @@ (DEFUN |LSAGG-;copy;2A;21| (|x| $) (PROG (|k| |y|) (RETURN - (SEQ (LETT |y| (SPADCALL (QREFELT $ 12)) |LSAGG-;copy;2A;21|) + (SEQ (LETT |y| (SPADCALL (|getShellEntry| $ 13)) + |LSAGG-;copy;2A;21|) (SEQ (LETT |k| 0 |LSAGG-;copy;2A;21|) G190 (COND - ((NULL (SPADCALL (SPADCALL |x| (QREFELT $ 16)) - (QREFELT $ 25))) + ((NULL (SPADCALL + (SPADCALL |x| (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) (GO G191))) (SEQ (COND ((EQL |k| 1000) (COND - ((SPADCALL |x| (QREFELT $ 57)) + ((SPADCALL |x| (|getShellEntry| $ 57)) (EXIT (|error| "cyclic list")))))) (LETT |y| - (SPADCALL (SPADCALL |x| (QREFELT $ 18)) |y| - (QREFELT $ 13)) + (SPADCALL + (SPADCALL |x| (|getShellEntry| $ 18)) + |y| (|getShellEntry| $ 14)) |LSAGG-;copy;2A;21|) - (EXIT (LETT |x| (SPADCALL |x| (QREFELT $ 17)) + (EXIT (LETT |x| + (SPADCALL |x| (|getShellEntry| $ 17)) |LSAGG-;copy;2A;21|))) (LETT |k| (QSADD1 |k|) |LSAGG-;copy;2A;21|) (GO G190) G191 (EXIT NIL)) - (EXIT (SPADCALL |y| (QREFELT $ 48))))))) + (EXIT (SPADCALL |y| (|getShellEntry| $ 48))))))) (DEFUN |LSAGG-;copyInto!;2AIA;22| (|y| |x| |s| $) - (PROG (|m| #0=#:G1545 |z|) + (PROG (|m| #0=#:G1542 |z|) (RETURN - (SEQ (LETT |m| (SPADCALL |y| (QREFELT $ 32)) + (SEQ (LETT |m| (SPADCALL |y| (|getShellEntry| $ 32)) |LSAGG-;copyInto!;2AIA;22|) (EXIT (COND ((< |s| |m|) (|error| "index out of range")) @@ -554,36 +620,40 @@ |LSAGG-;copyInto!;2AIA;22|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 33)) + (|getShellEntry| $ 33)) |LSAGG-;copyInto!;2AIA;22|) (SEQ G190 (COND ((NULL (COND - ((SPADCALL |z| (QREFELT $ 16)) + ((SPADCALL |z| + (|getShellEntry| $ 16)) 'NIL) ('T (SPADCALL (SPADCALL |x| - (QREFELT $ 16)) - (QREFELT $ 25))))) + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))))) (GO G191))) (SEQ (SPADCALL |z| - (SPADCALL |x| (QREFELT $ 18)) - (QREFELT $ 59)) + (SPADCALL |x| + (|getShellEntry| $ 18)) + (|getShellEntry| $ 59)) (LETT |x| - (SPADCALL |x| (QREFELT $ 17)) + (SPADCALL |x| + (|getShellEntry| $ 17)) |LSAGG-;copyInto!;2AIA;22|) (EXIT (LETT |z| - (SPADCALL |z| (QREFELT $ 17)) + (SPADCALL |z| + (|getShellEntry| $ 17)) |LSAGG-;copyInto!;2AIA;22|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |y|))))))))) (DEFUN |LSAGG-;position;SA2I;23| (|w| |x| |s| $) - (PROG (|m| #0=#:G1552 |k|) + (PROG (|m| #0=#:G1549 |k|) (RETURN - (SEQ (LETT |m| (SPADCALL |x| (QREFELT $ 32)) + (SEQ (LETT |m| (SPADCALL |x| (|getShellEntry| $ 32)) |LSAGG-;position;SA2I;23|) (EXIT (COND ((< |s| |m|) (|error| "index out of range")) @@ -595,32 +665,34 @@ |LSAGG-;position;SA2I;23|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) - (QREFELT $ 33)) + (|getShellEntry| $ 33)) |LSAGG-;position;SA2I;23|) (SEQ (LETT |k| |s| |LSAGG-;position;SA2I;23|) G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) + ((SPADCALL |x| + (|getShellEntry| $ 16)) 'NIL) ('T - (SPADCALL - (SPADCALL |w| - (SPADCALL |x| - (QREFELT $ 18)) - (QREFELT $ 52)) - (QREFELT $ 25))))) + (SPADCALL |w| + (SPADCALL |x| + (|getShellEntry| $ 18)) + (|getShellEntry| $ 52))))) (GO G191))) (SEQ (EXIT (LETT |x| - (SPADCALL |x| (QREFELT $ 17)) + (SPADCALL |x| + (|getShellEntry| $ 17)) |LSAGG-;position;SA2I;23|))) (LETT |k| (+ |k| 1) |LSAGG-;position;SA2I;23|) (GO G190) G191 (EXIT NIL)) (EXIT (COND - ((SPADCALL |x| (QREFELT $ 16)) - (- (SPADCALL |x| (QREFELT $ 32)) 1)) + ((SPADCALL |x| (|getShellEntry| $ 16)) + (- (SPADCALL |x| + (|getShellEntry| $ 32)) + 1)) ('T |k|))))))))))) (DEFUN |LSAGG-;removeDuplicates!;2A;24| (|l| $) @@ -629,8 +701,9 @@ (SEQ (LETT |p| |l| |LSAGG-;removeDuplicates!;2A;24|) (SEQ G190 (COND - ((NULL (SPADCALL (SPADCALL |p| (QREFELT $ 16)) - (QREFELT $ 25))) + ((NULL (SPADCALL + (SPADCALL |p| (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) (GO G191))) (SEQ (EXIT (LETT |p| (SPADCALL |p| @@ -638,68 +711,73 @@ (CONS #'|LSAGG-;removeDuplicates!;2A;24!0| (VECTOR $ |p|)) - (SPADCALL |p| (QREFELT $ 17)) - (QREFELT $ 62)) - (QREFELT $ 26)) + (SPADCALL |p| + (|getShellEntry| $ 17)) + (|getShellEntry| $ 63)) + (|getShellEntry| $ 26)) |LSAGG-;removeDuplicates!;2A;24|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |l|))))) (DEFUN |LSAGG-;removeDuplicates!;2A;24!0| (|#1| $$) (PROG ($) - (LETT $ (QREFELT $$ 0) |LSAGG-;removeDuplicates!;2A;24|) + (LETT $ (|getShellEntry| $$ 0) |LSAGG-;removeDuplicates!;2A;24|) (RETURN (PROGN - (SPADCALL |#1| (SPADCALL (QREFELT $$ 1) (QREFELT $ 18)) - (QREFELT $ 52)))))) + (SPADCALL |#1| + (SPADCALL (|getShellEntry| $$ 1) (|getShellEntry| $ 18)) + (|getShellEntry| $ 62)))))) (DEFUN |LSAGG-;<;2AB;25| (|x| |y| $) - (PROG (#0=#:G1566) + (PROG (#0=#:G1563) (RETURN (SEQ (EXIT (SEQ (SEQ G190 (COND ((NULL (COND - ((SPADCALL |x| (QREFELT $ 16)) + ((SPADCALL |x| + (|getShellEntry| $ 16)) 'NIL) ('T (SPADCALL - (SPADCALL |y| (QREFELT $ 16)) - (QREFELT $ 25))))) + (SPADCALL |y| + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))))) (GO G191))) (SEQ (EXIT (COND - ((NULL - (SPADCALL - (SPADCALL |x| - (QREFELT $ 18)) - (SPADCALL |y| - (QREFELT $ 18)) - (QREFELT $ 52))) + ((SPADCALL + (SPADCALL |x| + (|getShellEntry| $ 18)) + (SPADCALL |y| + (|getShellEntry| $ 18)) + (|getShellEntry| $ 52)) (PROGN (LETT #0# (SPADCALL (SPADCALL |x| - (QREFELT $ 18)) + (|getShellEntry| $ 18)) (SPADCALL |y| - (QREFELT $ 18)) - (QREFELT $ 64)) + (|getShellEntry| $ 18)) + (|getShellEntry| $ 65)) |LSAGG-;<;2AB;25|) (GO #0#))) ('T (SEQ (LETT |x| (SPADCALL |x| - (QREFELT $ 17)) + (|getShellEntry| $ 17)) |LSAGG-;<;2AB;25|) (EXIT (LETT |y| (SPADCALL |y| - (QREFELT $ 17)) + (|getShellEntry| $ 17)) |LSAGG-;<;2AB;25|))))))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (COND - ((SPADCALL |x| (QREFELT $ 16)) - (SPADCALL (SPADCALL |y| (QREFELT $ 16)) - (QREFELT $ 25))) + ((SPADCALL |x| (|getShellEntry| $ 16)) + (SPADCALL + (SPADCALL |y| + (|getShellEntry| $ 16)) + (|getShellEntry| $ 25))) ('T 'NIL))))) #0# (EXIT #0#))))) @@ -710,41 +788,42 @@ (LETT |dv$1| (|devaluate| |#1|) . #0=(|ListAggregate&|)) (LETT |dv$2| (|devaluate| |#2|) . #0#) (LETT |dv$| (LIST '|ListAggregate&| |dv$1| |dv$2|) . #0#) - (LETT $ (GETREFV 67) . #0#) - (QSETREFV $ 0 |dv$|) - (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) + (LETT $ (|newShell| 68) . #0#) + (|setShellEntry| $ 0 |dv$|) + (|setShellEntry| $ 3 + (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) (|stuffDomainSlots| $) - (QSETREFV $ 6 |#1|) - (QSETREFV $ 7 |#2|) + (|setShellEntry| $ 6 |#1|) + (|setShellEntry| $ 7 |#2|) (COND ((|HasCategory| |#2| '(|SetCategory|)) - (QSETREFV $ 53 + (|setShellEntry| $ 53 (CONS (|dispatchFunction| |LSAGG-;reduce;MA3S;17|) $)))) (COND ((|HasCategory| |#2| '(|SetCategory|)) (PROGN - (QSETREFV $ 61 + (|setShellEntry| $ 61 (CONS (|dispatchFunction| |LSAGG-;position;SA2I;23|) $)) - (QSETREFV $ 63 + (|setShellEntry| $ 64 (CONS (|dispatchFunction| |LSAGG-;removeDuplicates!;2A;24|) $))))) (COND ((|HasCategory| |#2| '(|OrderedSet|)) - (QSETREFV $ 65 + (|setShellEntry| $ 66 (CONS (|dispatchFunction| |LSAGG-;<;2AB;25|) $)))) $)))) (MAKEPROP '|ListAggregate&| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) - (|NonNegativeInteger|) (0 . |#|) (|Mapping| 15 7 7) - |LSAGG-;sort!;M2A;1| (5 . |empty|) (9 . |concat|) - |LSAGG-;list;SA;2| (|Boolean|) (15 . |empty?|) + (|NonNegativeInteger|) (0 . |#|) (|Boolean|) + (|Mapping| 10 7 7) |LSAGG-;sort!;M2A;1| (5 . |empty|) + (9 . |concat|) |LSAGG-;list;SA;2| (15 . |empty?|) (20 . |rest|) (25 . |first|) (|Mapping| 7 7 7) (30 . |reduce|) |LSAGG-;reduce;MAS;3| (37 . |copy|) (42 . |merge!|) |LSAGG-;merge;M3A;4| (49 . |not|) - (54 . |setrest!|) (|Mapping| 15 7) |LSAGG-;select!;M2A;5| + (54 . |setrest!|) (|Mapping| 10 7) |LSAGG-;select!;M2A;5| (60 . |eq?|) |LSAGG-;merge!;M3A;6| (|Integer|) (66 . |minIndex|) (71 . |rest|) |LSAGG-;insert!;SAIA;7| (77 . |concat!|) |LSAGG-;insert!;2AIA;8| @@ -754,41 +833,234 @@ (|Union| 7 '"failed") |LSAGG-;find;MAU;12| |LSAGG-;position;MAI;13| (103 . |reverse!|) (108 . |split!|) |LSAGG-;sorted?;MAB;15| - |LSAGG-;reduce;MA2S;16| (114 . =) (120 . |reduce|) + |LSAGG-;reduce;MA2S;16| (114 . ~=) (120 . |reduce|) |LSAGG-;new;NniSA;18| |LSAGG-;map;M3A;19| |LSAGG-;reverse!;2A;20| (128 . |cyclic?|) |LSAGG-;copy;2A;21| (133 . |setfirst!|) - |LSAGG-;copyInto!;2AIA;22| (139 . |position|) - (146 . |remove!|) (152 . |removeDuplicates!|) (157 . <) - (163 . <) (|Mapping| 7 7)) - '#(|sorted?| 169 |sort!| 175 |select!| 181 |reverse!| 187 - |removeDuplicates!| 192 |remove!| 197 |reduce| 203 - |position| 224 |new| 237 |merge!| 243 |merge| 250 |map| - 257 |list| 264 |insert!| 269 |find| 283 |delete!| 289 - |copyInto!| 301 |copy| 308 < 313) + |LSAGG-;copyInto!;2AIA;22| (139 . |position|) (146 . =) + (152 . |remove!|) (158 . |removeDuplicates!|) (163 . <) + (169 . <) (|Mapping| 7 7)) + '#(|sorted?| 175 |sort!| 181 |select!| 187 |reverse!| 193 + |removeDuplicates!| 198 |remove!| 203 |reduce| 209 + |position| 230 |new| 243 |merge!| 249 |merge| 256 |map| + 263 |list| 270 |insert!| 275 |find| 289 |delete!| 295 + |copyInto!| 307 |copy| 314 < 319) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 65 - '(1 6 8 0 9 0 6 0 12 2 6 0 7 0 13 1 6 - 15 0 16 1 6 0 0 17 1 6 7 0 18 3 6 7 - 19 0 7 20 1 6 0 0 22 3 6 0 10 0 0 23 - 1 15 0 0 25 2 6 0 0 0 26 2 6 15 0 0 + (|makeByteWordVec2| 66 + '(1 6 8 0 9 0 6 0 13 2 6 0 7 0 14 1 6 + 10 0 16 1 6 0 0 17 1 6 7 0 18 3 6 7 + 19 0 7 20 1 6 0 0 22 3 6 0 11 0 0 23 + 1 10 0 0 25 2 6 0 0 0 26 2 6 10 0 0 29 1 6 31 0 32 2 6 0 0 8 33 2 6 0 0 0 - 35 1 39 31 0 40 1 39 15 0 41 1 39 31 + 35 1 39 31 0 40 1 39 10 0 41 1 39 31 0 42 1 6 31 0 43 1 6 0 0 48 2 6 0 0 - 31 49 2 7 15 0 0 52 4 0 7 19 0 7 7 53 - 1 6 15 0 57 2 6 7 0 7 59 3 0 31 7 0 - 31 61 2 6 0 27 0 62 1 0 0 0 63 2 7 15 - 0 0 64 2 0 15 0 0 65 2 0 15 10 0 50 2 - 0 0 10 0 11 2 0 0 27 0 28 1 0 0 0 56 - 1 0 0 0 63 2 0 0 27 0 37 3 0 7 19 0 7 - 51 4 0 7 19 0 7 7 53 2 0 7 19 0 21 2 - 0 31 27 0 47 3 0 31 7 0 31 61 2 0 0 8 - 7 54 3 0 0 10 0 0 30 3 0 0 10 0 0 24 - 3 0 0 19 0 0 55 1 0 0 7 14 3 0 0 7 0 - 31 34 3 0 0 0 0 31 36 2 0 45 27 0 46 - 2 0 0 0 39 44 2 0 0 0 31 38 3 0 0 0 0 - 31 60 1 0 0 0 58 2 0 15 0 0 65))))) + 31 49 2 7 10 0 0 52 4 0 7 19 0 7 7 53 + 1 6 10 0 57 2 6 7 0 7 59 3 0 31 7 0 + 31 61 2 7 10 0 0 62 2 6 0 27 0 63 1 0 + 0 0 64 2 7 10 0 0 65 2 0 10 0 0 66 2 + 0 10 11 0 50 2 0 0 11 0 12 2 0 0 27 0 + 28 1 0 0 0 56 1 0 0 0 64 2 0 0 27 0 + 37 3 0 7 19 0 7 51 4 0 7 19 0 7 7 53 + 2 0 7 19 0 21 2 0 31 27 0 47 3 0 31 7 + 0 31 61 2 0 0 8 7 54 3 0 0 11 0 0 30 + 3 0 0 11 0 0 24 3 0 0 19 0 0 55 1 0 0 + 7 15 3 0 0 7 0 31 34 3 0 0 0 0 31 36 + 2 0 45 27 0 46 2 0 0 0 39 44 2 0 0 0 + 31 38 3 0 0 0 0 31 60 1 0 0 0 58 2 0 + 10 0 0 66))))) '|lookupComplete|)) + +(SETQ |$CategoryFrame| + (|put| '|ListAggregate&| '|isFunctor| + '(((|list| ($ |#2|)) T (ELT $ 15)) + ((|delete!| ($ $ (|Integer|))) T (ELT $ 38)) + ((|delete!| ($ $ (|UniversalSegment| (|Integer|)))) T + (ELT $ 44)) + ((|remove!| ($ (|Mapping| (|Boolean|) |#2|) $)) T + (ELT $ 37)) + ((|insert!| ($ |#2| $ (|Integer|))) T (ELT $ 34)) + ((|insert!| ($ $ $ (|Integer|))) T (ELT $ 36)) + ((|merge!| ($ (|Mapping| (|Boolean|) |#2| |#2|) $ $)) T + (ELT $ 30)) + ((|select!| ($ (|Mapping| (|Boolean|) |#2|) $)) T + (ELT $ 28)) + ((|remove!| ($ |#2| $)) T (ELT $ NIL)) + ((|removeDuplicates!| ($ $)) T (ELT $ 64)) + ((|merge!| ($ $ $)) T (ELT $ NIL)) + ((|merge| ($ (|Mapping| (|Boolean|) |#2| |#2|) $ $)) T + (ELT $ 24)) + ((|sorted?| + ((|Boolean|) (|Mapping| (|Boolean|) |#2| |#2|) $)) + T (ELT $ 50)) + ((|position| + ((|Integer|) (|Mapping| (|Boolean|) |#2|) $)) + T (ELT $ 47)) + ((|position| ((|Integer|) |#2| $)) T (ELT $ NIL)) + ((|position| ((|Integer|) |#2| $ (|Integer|))) T + (ELT $ 61)) + ((|merge| ($ $ $)) T (ELT $ NIL)) + ((|sorted?| ((|Boolean|) $)) T (ELT $ NIL)) + ((|copyInto!| ($ $ $ (|Integer|))) T (ELT $ 60)) + ((|reverse!| ($ $)) T (ELT $ 56)) + ((|sort!| ($ (|Mapping| (|Boolean|) |#2| |#2|) $)) T + (ELT $ 12)) + ((|sort!| ($ $)) T (ELT $ NIL)) + ((< ((|Boolean|) $ $)) T (ELT $ 66)) + ((|reduce| + (|#2| (|Mapping| |#2| |#2| |#2|) $ |#2| |#2|)) + T (ELT $ 53)) + ((|reduce| (|#2| (|Mapping| |#2| |#2| |#2|) $ |#2|)) T + (ELT $ 51)) + ((|reduce| (|#2| (|Mapping| |#2| |#2| |#2|) $)) T + (ELT $ 21)) + ((|find| ((|Union| |#2| "failed") + (|Mapping| (|Boolean|) |#2|) $)) + T (ELT $ 46)) + ((|new| ($ (|NonNegativeInteger|) |#2|)) T (ELT $ 54)) + ((|map| ($ (|Mapping| |#2| |#2| |#2|) $ $)) T + (ELT $ 55)) + ((|map| ($ (|Mapping| |#2| |#2|) $)) T (ELT $ NIL)) + ((|copy| ($ $)) T (ELT $ 58))) + (|addModemap| '|ListAggregate&| + '(|ListAggregate&| |#1| |#2|) + '((CATEGORY |domain| (SIGNATURE |list| (|#1| |#2|)) + (SIGNATURE |delete!| (|#1| |#1| (|Integer|))) + (SIGNATURE |delete!| + (|#1| |#1| (|UniversalSegment| (|Integer|)))) + (SIGNATURE |remove!| + (|#1| (|Mapping| (|Boolean|) |#2|) |#1|)) + (SIGNATURE |insert!| + (|#1| |#2| |#1| (|Integer|))) + (SIGNATURE |insert!| + (|#1| |#1| |#1| (|Integer|))) + (SIGNATURE |merge!| + (|#1| (|Mapping| (|Boolean|) |#2| |#2|) |#1| + |#1|)) + (SIGNATURE |select!| + (|#1| (|Mapping| (|Boolean|) |#2|) |#1|)) + (SIGNATURE |remove!| (|#1| |#2| |#1|)) + (SIGNATURE |removeDuplicates!| (|#1| |#1|)) + (SIGNATURE |merge!| (|#1| |#1| |#1|)) + (SIGNATURE |merge| + (|#1| (|Mapping| (|Boolean|) |#2| |#2|) |#1| + |#1|)) + (SIGNATURE |sorted?| + ((|Boolean|) + (|Mapping| (|Boolean|) |#2| |#2|) |#1|)) + (SIGNATURE |position| + ((|Integer|) (|Mapping| (|Boolean|) |#2|) + |#1|)) + (SIGNATURE |position| ((|Integer|) |#2| |#1|)) + (SIGNATURE |position| + ((|Integer|) |#2| |#1| (|Integer|))) + (SIGNATURE |merge| (|#1| |#1| |#1|)) + (SIGNATURE |sorted?| ((|Boolean|) |#1|)) + (SIGNATURE |copyInto!| + (|#1| |#1| |#1| (|Integer|))) + (SIGNATURE |reverse!| (|#1| |#1|)) + (SIGNATURE |sort!| + (|#1| (|Mapping| (|Boolean|) |#2| |#2|) + |#1|)) + (SIGNATURE |sort!| (|#1| |#1|)) + (SIGNATURE < ((|Boolean|) |#1| |#1|)) + (SIGNATURE |reduce| + (|#2| (|Mapping| |#2| |#2| |#2|) |#1| |#2| + |#2|)) + (SIGNATURE |reduce| + (|#2| (|Mapping| |#2| |#2| |#2|) |#1| |#2|)) + (SIGNATURE |reduce| + (|#2| (|Mapping| |#2| |#2| |#2|) |#1|)) + (SIGNATURE |find| + ((|Union| |#2| "failed") + (|Mapping| (|Boolean|) |#2|) |#1|)) + (SIGNATURE |new| + (|#1| (|NonNegativeInteger|) |#2|)) + (SIGNATURE |map| + (|#1| (|Mapping| |#2| |#2| |#2|) |#1| |#1|)) + (SIGNATURE |map| + (|#1| (|Mapping| |#2| |#2|) |#1|)) + (SIGNATURE |copy| (|#1| |#1|))) + (|ListAggregate| |#2|) (|Type|)) + T '|ListAggregate&| + (|put| '|ListAggregate&| '|mode| + '(|Mapping| + (CATEGORY |domain| + (SIGNATURE |list| (|#1| |#2|)) + (SIGNATURE |delete!| + (|#1| |#1| (|Integer|))) + (SIGNATURE |delete!| + (|#1| |#1| + (|UniversalSegment| (|Integer|)))) + (SIGNATURE |remove!| + (|#1| (|Mapping| (|Boolean|) |#2|) + |#1|)) + (SIGNATURE |insert!| + (|#1| |#2| |#1| (|Integer|))) + (SIGNATURE |insert!| + (|#1| |#1| |#1| (|Integer|))) + (SIGNATURE |merge!| + (|#1| + (|Mapping| (|Boolean|) |#2| |#2|) + |#1| |#1|)) + (SIGNATURE |select!| + (|#1| (|Mapping| (|Boolean|) |#2|) + |#1|)) + (SIGNATURE |remove!| (|#1| |#2| |#1|)) + (SIGNATURE |removeDuplicates!| + (|#1| |#1|)) + (SIGNATURE |merge!| (|#1| |#1| |#1|)) + (SIGNATURE |merge| + (|#1| + (|Mapping| (|Boolean|) |#2| |#2|) + |#1| |#1|)) + (SIGNATURE |sorted?| + ((|Boolean|) + (|Mapping| (|Boolean|) |#2| |#2|) + |#1|)) + (SIGNATURE |position| + ((|Integer|) + (|Mapping| (|Boolean|) |#2|) + |#1|)) + (SIGNATURE |position| + ((|Integer|) |#2| |#1|)) + (SIGNATURE |position| + ((|Integer|) |#2| |#1| + (|Integer|))) + (SIGNATURE |merge| (|#1| |#1| |#1|)) + (SIGNATURE |sorted?| + ((|Boolean|) |#1|)) + (SIGNATURE |copyInto!| + (|#1| |#1| |#1| (|Integer|))) + (SIGNATURE |reverse!| (|#1| |#1|)) + (SIGNATURE |sort!| + (|#1| + (|Mapping| (|Boolean|) |#2| |#2|) + |#1|)) + (SIGNATURE |sort!| (|#1| |#1|)) + (SIGNATURE < ((|Boolean|) |#1| |#1|)) + (SIGNATURE |reduce| + (|#2| (|Mapping| |#2| |#2| |#2|) + |#1| |#2| |#2|)) + (SIGNATURE |reduce| + (|#2| (|Mapping| |#2| |#2| |#2|) + |#1| |#2|)) + (SIGNATURE |reduce| + (|#2| (|Mapping| |#2| |#2| |#2|) + |#1|)) + (SIGNATURE |find| + ((|Union| |#2| "failed") + (|Mapping| (|Boolean|) |#2|) + |#1|)) + (SIGNATURE |new| + (|#1| (|NonNegativeInteger|) |#2|)) + (SIGNATURE |map| + (|#1| (|Mapping| |#2| |#2| |#2|) + |#1| |#1|)) + (SIGNATURE |map| + (|#1| (|Mapping| |#2| |#2|) |#1|)) + (SIGNATURE |copy| (|#1| |#1|))) + (|ListAggregate| |#2|) (|Type|)) + |$CategoryFrame|)))) |