diff options
Diffstat (limited to 'src/algebra/strap/STAGG-.lsp')
-rw-r--r-- | src/algebra/strap/STAGG-.lsp | 186 |
1 files changed, 93 insertions, 93 deletions
diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp index cb3671d0..53a1ca39 100644 --- a/src/algebra/strap/STAGG-.lsp +++ b/src/algebra/strap/STAGG-.lsp @@ -62,23 +62,23 @@ (|STAGG-;c2| |x| (LETT |x| (SPADCALL |x| - (|getShellEntry| $ 16)) + (|getShellEntry| $ 17)) |STAGG-;first;ANniA;3|) $) #0#) |STAGG-;first;ANniA;3|))) (LETT |i| (QSADD1 |i|) |STAGG-;first;ANniA;3|) (GO G190) G191 (EXIT (NREVERSE0 #0#)))) - (|getShellEntry| $ 18)))))) + (|getShellEntry| $ 19)))))) (DEFUN |STAGG-;c2| (|x| |r| $) (COND - ((SPADCALL |x| (|getShellEntry| $ 20)) + ((SPADCALL |x| (|getShellEntry| $ 21)) (|error| "Index out of range")) - ('T (SPADCALL |x| (|getShellEntry| $ 21))))) + ('T (SPADCALL |x| (|getShellEntry| $ 22))))) (DEFUN |STAGG-;elt;AIS;5| (|x| |i| $) - (SEQ (LETT |i| (- |i| (SPADCALL |x| (|getShellEntry| $ 23))) + (SEQ (LETT |i| (- |i| (SPADCALL |x| (|getShellEntry| $ 24))) |STAGG-;elt;AIS;5|) (COND ((OR (< |i| 0) @@ -89,38 +89,38 @@ (|check-subtype| (COND ((< |i| 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) |i|)) - (|getShellEntry| $ 27)) + (|getShellEntry| $ 28)) |STAGG-;elt;AIS;5|) - (|getShellEntry| $ 20))) + (|getShellEntry| $ 21))) (EXIT (|error| "index out of range")))) - (EXIT (SPADCALL |x| (|getShellEntry| $ 21))))) + (EXIT (SPADCALL |x| (|getShellEntry| $ 22))))) (DEFUN |STAGG-;elt;AUsA;6| (|x| |i| $) (PROG (|l| |h| #0=#:G1418) (RETURN (SEQ (LETT |l| - (- (SPADCALL |i| (|getShellEntry| $ 30)) - (SPADCALL |x| (|getShellEntry| $ 23))) + (- (SPADCALL |i| (|getShellEntry| $ 31)) + (SPADCALL |x| (|getShellEntry| $ 24))) |STAGG-;elt;AUsA;6|) (EXIT (COND ((< |l| 0) (|error| "index out of range")) - ((NOT (SPADCALL |i| (|getShellEntry| $ 31))) + ((NOT (SPADCALL |i| (|getShellEntry| $ 32))) (SPADCALL (SPADCALL |x| (PROG1 |l| (|check-subtype| (COND ((< |l| 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) |l|)) - (|getShellEntry| $ 27)) - (|getShellEntry| $ 32))) + (|getShellEntry| $ 28)) + (|getShellEntry| $ 33))) ('T (SEQ (LETT |h| - (- (SPADCALL |i| (|getShellEntry| $ 33)) - (SPADCALL |x| (|getShellEntry| $ 23))) + (- (SPADCALL |i| (|getShellEntry| $ 34)) + (SPADCALL |x| (|getShellEntry| $ 24))) |STAGG-;elt;AUsA;6|) (EXIT (COND ((< |h| |l|) - (SPADCALL (|getShellEntry| $ 34))) + (SPADCALL (|getShellEntry| $ 35))) ('T (SPADCALL (SPADCALL |x| @@ -130,7 +130,7 @@ ((< |l| 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) |l|)) - (|getShellEntry| $ 27)) + (|getShellEntry| $ 28)) (PROG1 (LETT #0# (+ (- |h| |l|) 1) |STAGG-;elt;AUsA;6|) @@ -139,19 +139,19 @@ ((< #0# 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) #0#)) - (|getShellEntry| $ 36))))))))))))) + (|getShellEntry| $ 37))))))))))))) (DEFUN |STAGG-;concat;3A;7| (|x| |y| $) - (SPADCALL (SPADCALL |x| (|getShellEntry| $ 32)) |y| - (|getShellEntry| $ 38))) + (SPADCALL (SPADCALL |x| (|getShellEntry| $ 33)) |y| + (|getShellEntry| $ 39))) (DEFUN |STAGG-;concat;LA;8| (|l| $) (COND - ((NULL |l|) (SPADCALL (|getShellEntry| $ 34))) + ((NULL |l|) (SPADCALL (|getShellEntry| $ 35))) ('T - (SPADCALL (SPADCALL (|SPADfirst| |l|) (|getShellEntry| $ 32)) - (SPADCALL (CDR |l|) (|getShellEntry| $ 45)) - (|getShellEntry| $ 38))))) + (SPADCALL (SPADCALL (|SPADfirst| |l|) (|getShellEntry| $ 33)) + (SPADCALL (CDR |l|) (|getShellEntry| $ 46)) + (|getShellEntry| $ 39))))) (DEFUN |STAGG-;map!;M2A;9| (|f| |l| $) (PROG (|y|) @@ -159,14 +159,14 @@ (SEQ (LETT |y| |l| |STAGG-;map!;M2A;9|) (SEQ G190 (COND - ((NULL (NOT (SPADCALL |l| (|getShellEntry| $ 20)))) + ((NULL (NOT (SPADCALL |l| (|getShellEntry| $ 21)))) (GO G191))) (SEQ (SPADCALL |l| (SPADCALL - (SPADCALL |l| (|getShellEntry| $ 21)) |f|) - (|getShellEntry| $ 47)) + (SPADCALL |l| (|getShellEntry| $ 22)) |f|) + (|getShellEntry| $ 48)) (EXIT (LETT |l| - (SPADCALL |l| (|getShellEntry| $ 16)) + (SPADCALL |l| (|getShellEntry| $ 17)) |STAGG-;map!;M2A;9|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |y|))))) @@ -177,17 +177,17 @@ (SEQ (LETT |y| |x| |STAGG-;fill!;ASA;10|) (SEQ G190 (COND - ((NULL (NOT (SPADCALL |y| (|getShellEntry| $ 20)))) + ((NULL (NOT (SPADCALL |y| (|getShellEntry| $ 21)))) (GO G191))) - (SEQ (SPADCALL |y| |s| (|getShellEntry| $ 47)) + (SEQ (SPADCALL |y| |s| (|getShellEntry| $ 48)) (EXIT (LETT |y| - (SPADCALL |y| (|getShellEntry| $ 16)) + (SPADCALL |y| (|getShellEntry| $ 17)) |STAGG-;fill!;ASA;10|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |x|))))) (DEFUN |STAGG-;setelt;AI2S;11| (|x| |i| |s| $) - (SEQ (LETT |i| (- |i| (SPADCALL |x| (|getShellEntry| $ 23))) + (SEQ (LETT |i| (- |i| (SPADCALL |x| (|getShellEntry| $ 24))) |STAGG-;setelt;AI2S;11|) (COND ((OR (< |i| 0) @@ -198,31 +198,31 @@ (|check-subtype| (COND ((< |i| 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) |i|)) - (|getShellEntry| $ 27)) + (|getShellEntry| $ 28)) |STAGG-;setelt;AI2S;11|) - (|getShellEntry| $ 20))) + (|getShellEntry| $ 21))) (EXIT (|error| "index out of range")))) - (EXIT (SPADCALL |x| |s| (|getShellEntry| $ 47))))) + (EXIT (SPADCALL |x| |s| (|getShellEntry| $ 48))))) (DEFUN |STAGG-;setelt;AUs2S;12| (|x| |i| |s| $) (PROG (|l| |h| #0=#:G1438 |z| |y|) (RETURN (SEQ (LETT |l| - (- (SPADCALL |i| (|getShellEntry| $ 30)) - (SPADCALL |x| (|getShellEntry| $ 23))) + (- (SPADCALL |i| (|getShellEntry| $ 31)) + (SPADCALL |x| (|getShellEntry| $ 24))) |STAGG-;setelt;AUs2S;12|) (EXIT (COND ((< |l| 0) (|error| "index out of range")) ('T (SEQ (LETT |h| (COND - ((SPADCALL |i| (|getShellEntry| $ 31)) + ((SPADCALL |i| (|getShellEntry| $ 32)) (- (SPADCALL |i| - (|getShellEntry| $ 33)) + (|getShellEntry| $ 34)) (SPADCALL |x| - (|getShellEntry| $ 23)))) + (|getShellEntry| $ 24)))) ('T - (SPADCALL |x| (|getShellEntry| $ 52)))) + (SPADCALL |x| (|getShellEntry| $ 53)))) |STAGG-;setelt;AUs2S;12|) (EXIT (COND ((< |h| |l|) |s|) @@ -236,7 +236,7 @@ ('T 'T)) '(|NonNegativeInteger|) |l|)) - (|getShellEntry| $ 27)) + (|getShellEntry| $ 28)) |STAGG-;setelt;AUs2S;12|) (LETT |z| (SPADCALL |y| @@ -249,32 +249,32 @@ ('T 'T)) '(|NonNegativeInteger|) #0#)) - (|getShellEntry| $ 27)) + (|getShellEntry| $ 28)) |STAGG-;setelt;AUs2S;12|) (SEQ G190 (COND ((NULL (NOT (SPADCALL |y| |z| - (|getShellEntry| $ 53)))) + (|getShellEntry| $ 54)))) (GO G191))) (SEQ (SPADCALL |y| |s| - (|getShellEntry| $ 47)) + (|getShellEntry| $ 48)) (EXIT (LETT |y| (SPADCALL |y| - (|getShellEntry| $ 16)) + (|getShellEntry| $ 17)) |STAGG-;setelt;AUs2S;12|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |s|))))))))))))) (DEFUN |STAGG-;concat!;3A;13| (|x| |y| $) (SEQ (COND - ((SPADCALL |x| (|getShellEntry| $ 20)) |y|) + ((SPADCALL |x| (|getShellEntry| $ 21)) |y|) ('T - (SEQ (SPADCALL (SPADCALL |x| (|getShellEntry| $ 55)) |y| - (|getShellEntry| $ 56)) + (SEQ (SPADCALL (SPADCALL |x| (|getShellEntry| $ 56)) |y| + (|getShellEntry| $ 57)) (EXIT |x|)))))) (DEFUN |StreamAggregate&| (|#1| |#2|) @@ -284,7 +284,7 @@ (LETT |dv$1| (|devaluate| |#1|) . #0=(|StreamAggregate&|)) (LETT |dv$2| (|devaluate| |#2|) . #0#) (LETT |dv$| (LIST '|StreamAggregate&| |dv$1| |dv$2|) . #0#) - (LETT $ (|newShell| 62) . #0#) + (LETT $ (|newShell| 63) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#)) @@ -294,65 +294,65 @@ (COND ((|HasAttribute| |#1| '|shallowlyMutable|) (PROGN - (|setShellEntry| $ 39 + (|setShellEntry| $ 40 (CONS (|dispatchFunction| |STAGG-;concat;3A;7|) $)) - (|setShellEntry| $ 46 + (|setShellEntry| $ 47 (CONS (|dispatchFunction| |STAGG-;concat;LA;8|) $)) - (|setShellEntry| $ 49 - (CONS (|dispatchFunction| |STAGG-;map!;M2A;9|) $)) (|setShellEntry| $ 50 - (CONS (|dispatchFunction| |STAGG-;fill!;ASA;10|) $)) + (CONS (|dispatchFunction| |STAGG-;map!;M2A;9|) $)) (|setShellEntry| $ 51 + (CONS (|dispatchFunction| |STAGG-;fill!;ASA;10|) $)) + (|setShellEntry| $ 52 (CONS (|dispatchFunction| |STAGG-;setelt;AI2S;11|) $)) - (|setShellEntry| $ 54 + (|setShellEntry| $ 55 (CONS (|dispatchFunction| |STAGG-;setelt;AUs2S;12|) $)) - (|setShellEntry| $ 57 + (|setShellEntry| $ 58 (CONS (|dispatchFunction| |STAGG-;concat!;3A;13|) $))))) $)))) (MAKEPROP '|StreamAggregate&| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) - (|Boolean|) (0 . |cyclic?|) + (|Boolean|) (0 . |cyclic?|) (5 . |not|) |STAGG-;explicitlyFinite?;AB;1| |STAGG-;possiblyInfinite?;AB;2| (|SingleInteger|) - (5 . |One|) (|NonNegativeInteger|) (9 . |One|) - (13 . |rest|) (|List| 7) (18 . |construct|) - |STAGG-;first;ANniA;3| (23 . |empty?|) (28 . |first|) - (|Integer|) (33 . |minIndex|) (38 . -) (44 . |Zero|) - (48 . <) (54 . |rest|) |STAGG-;elt;AIS;5| - (|UniversalSegment| 22) (60 . |lo|) (65 . |hasHi|) - (70 . |copy|) (75 . |hi|) (80 . |empty|) (84 . +) - (90 . |first|) |STAGG-;elt;AUsA;6| (96 . |concat!|) - (102 . |concat|) (|List| 6) (108 . |empty?|) - (113 . |first|) (118 . |rest|) (|List| $) (123 . |concat|) - (128 . |concat|) (133 . |setfirst!|) (|Mapping| 7 7) - (139 . |map!|) (145 . |fill!|) (151 . |setelt|) - (158 . |maxIndex|) (163 . |eq?|) (169 . |setelt|) - (176 . |tail|) (181 . |setrest!|) (187 . |concat!|) + (10 . |One|) (|NonNegativeInteger|) (14 . |One|) + (18 . |rest|) (|List| 7) (23 . |construct|) + |STAGG-;first;ANniA;3| (28 . |empty?|) (33 . |first|) + (|Integer|) (38 . |minIndex|) (43 . -) (49 . |Zero|) + (53 . <) (59 . |rest|) |STAGG-;elt;AIS;5| + (|UniversalSegment| 23) (65 . |lo|) (70 . |hasHi|) + (75 . |copy|) (80 . |hi|) (85 . |empty|) (89 . +) + (95 . |first|) |STAGG-;elt;AUsA;6| (101 . |concat!|) + (107 . |concat|) (|List| 6) (113 . |empty?|) + (118 . |first|) (123 . |rest|) (|List| $) (128 . |concat|) + (133 . |concat|) (138 . |setfirst!|) (|Mapping| 7 7) + (144 . |map!|) (150 . |fill!|) (156 . |setelt|) + (163 . |maxIndex|) (168 . |eq?|) (174 . |setelt|) + (181 . |tail|) (186 . |setrest!|) (192 . |concat!|) '"rest" '"last" '"first" '"value") - '#(|setelt| 193 |possiblyInfinite?| 207 |map!| 212 |first| - 218 |fill!| 224 |explicitlyFinite?| 230 |elt| 235 - |concat!| 247 |concat| 253) + '#(|setelt| 198 |possiblyInfinite?| 212 |map!| 217 |first| + 223 |fill!| 229 |explicitlyFinite?| 235 |elt| 240 + |concat!| 252 |concat| 258) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() - (|makeByteWordVec2| 57 - '(1 6 8 0 9 0 12 0 13 0 14 0 15 1 6 0 0 - 16 1 6 0 17 18 1 6 8 0 20 1 6 7 0 21 - 1 6 22 0 23 2 22 0 0 0 24 0 22 0 25 2 - 22 8 0 0 26 2 6 0 0 14 27 1 29 22 0 - 30 1 29 8 0 31 1 6 0 0 32 1 29 22 0 - 33 0 6 0 34 2 22 0 0 0 35 2 6 0 0 14 - 36 2 6 0 0 0 38 2 0 0 0 0 39 1 40 8 0 - 41 1 40 6 0 42 1 40 0 0 43 1 6 0 44 - 45 1 0 0 44 46 2 6 7 0 7 47 2 0 0 48 - 0 49 2 0 0 0 7 50 3 0 7 0 22 7 51 1 6 - 22 0 52 2 6 8 0 0 53 3 0 7 0 29 7 54 - 1 6 0 0 55 2 6 0 0 0 56 2 0 0 0 0 57 - 3 0 7 0 22 7 51 3 0 7 0 29 7 54 1 0 8 - 0 11 2 0 0 48 0 49 2 0 0 0 14 19 2 0 - 0 0 7 50 1 0 8 0 10 2 0 7 0 22 28 2 0 - 0 0 29 37 2 0 0 0 0 57 1 0 0 44 46 2 - 0 0 0 0 39))))) + (|makeByteWordVec2| 58 + '(1 6 8 0 9 1 8 0 0 10 0 13 0 14 0 15 0 + 16 1 6 0 0 17 1 6 0 18 19 1 6 8 0 21 + 1 6 7 0 22 1 6 23 0 24 2 23 0 0 0 25 + 0 23 0 26 2 23 8 0 0 27 2 6 0 0 15 28 + 1 30 23 0 31 1 30 8 0 32 1 6 0 0 33 1 + 30 23 0 34 0 6 0 35 2 23 0 0 0 36 2 6 + 0 0 15 37 2 6 0 0 0 39 2 0 0 0 0 40 1 + 41 8 0 42 1 41 6 0 43 1 41 0 0 44 1 6 + 0 45 46 1 0 0 45 47 2 6 7 0 7 48 2 0 + 0 49 0 50 2 0 0 0 7 51 3 0 7 0 23 7 + 52 1 6 23 0 53 2 6 8 0 0 54 3 0 7 0 + 30 7 55 1 6 0 0 56 2 6 0 0 0 57 2 0 0 + 0 0 58 3 0 7 0 23 7 52 3 0 7 0 30 7 + 55 1 0 8 0 12 2 0 0 49 0 50 2 0 0 0 + 15 20 2 0 0 0 7 51 1 0 8 0 11 2 0 7 0 + 23 29 2 0 0 0 30 38 2 0 0 0 0 58 1 0 + 0 45 47 2 0 0 0 0 40))))) '|lookupComplete|)) |