aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/STAGG-.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/strap/STAGG-.lsp')
-rw-r--r--src/algebra/strap/STAGG-.lsp186
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|))
generated by cgit v1.2.3 (git 2.39.1) at 2024-07-05 10:13:23 +0000