From c42526006076b88ff2755f33eb1defd2e455e67e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 1 Mar 2009 05:22:19 +0000 Subject: Optimization should not change slot numbers. --- src/algebra/strap/ISTRING.lsp | 324 ++++++++++++++++++++++-------------------- 1 file changed, 169 insertions(+), 155 deletions(-) (limited to 'src/algebra/strap/ISTRING.lsp') diff --git a/src/algebra/strap/ISTRING.lsp b/src/algebra/strap/ISTRING.lsp index a7ba5fa0..33d4cd6d 100644 --- a/src/algebra/strap/ISTRING.lsp +++ b/src/algebra/strap/ISTRING.lsp @@ -160,22 +160,22 @@ (DEFUN |ISTRING;insert;2$I$;9| (|s| |t| |i| $) (STRCONC (STRCONC (|ISTRING;elt;$Us$;31| |s| (SPADCALL (|getShellEntry| $ 6) (- |i| 1) - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $) |t|) (|ISTRING;elt;$Us$;31| |s| - (SPADCALL |i| (|getShellEntry| $ 22)) $))) + (SPADCALL |i| (|getShellEntry| $ 26)) $))) (DEFUN |ISTRING;coerce;$Of;10| (|s| $) - (SPADCALL |s| (|getShellEntry| $ 26))) + (SPADCALL |s| (|getShellEntry| $ 30))) (DEFUN |ISTRING;minIndex;$I;11| (|s| $) (|getShellEntry| $ 6)) (DEFUN |ISTRING;upperCase!;2$;12| (|s| $) - (SPADCALL (ELT $ 31) |s| (|getShellEntry| $ 33))) + (SPADCALL (ELT $ 35) |s| (|getShellEntry| $ 37))) (DEFUN |ISTRING;lowerCase!;2$;13| (|s| $) - (SPADCALL (ELT $ 36) |s| (|getShellEntry| $ 33))) + (SPADCALL (ELT $ 40) |s| (|getShellEntry| $ 37))) (DEFUN |ISTRING;latex;$S;14| (|s| $) (STRCONC "\\mbox{``" (STRCONC |s| "''}"))) @@ -185,18 +185,18 @@ #3=#:G1539 |k|) (RETURN (SEQ (LETT |l| - (- (SPADCALL |sg| (|getShellEntry| $ 39)) + (- (SPADCALL |sg| (|getShellEntry| $ 44)) (|getShellEntry| $ 6)) |ISTRING;replace;$Us2$;15|) (LETT |m| (QCSIZE |s|) |ISTRING;replace;$Us2$;15|) (LETT |n| (QCSIZE |t|) |ISTRING;replace;$Us2$;15|) (LETT |h| (COND - ((SPADCALL |sg| (|getShellEntry| $ 40)) - (- (SPADCALL |sg| (|getShellEntry| $ 41)) + ((SPADCALL |sg| (|getShellEntry| $ 45)) + (- (SPADCALL |sg| (|getShellEntry| $ 46)) (|getShellEntry| $ 6))) ('T - (- (SPADCALL |s| (|getShellEntry| $ 42)) + (- (SPADCALL |s| (|getShellEntry| $ 47)) (|getShellEntry| $ 6)))) |ISTRING;replace;$Us2$;15|) (COND @@ -208,7 +208,7 @@ |ISTRING;replace;$Us2$;15|) (|check-subtype| (COND ((< #0# 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) #0#)) - (SPADCALL (|getShellEntry| $ 43))) + (SPADCALL (|getShellEntry| $ 52))) |ISTRING;replace;$Us2$;15|) (SEQ (LETT |i| 0 |ISTRING;replace;$Us2$;15|) (LETT #1# (- |l| 1) |ISTRING;replace;$Us2$;15|) @@ -247,7 +247,7 @@ (DEFUN |ISTRING;setelt;$I2C;16| (|s| |i| |c| $) (SEQ (COND ((OR (< |i| (|getShellEntry| $ 6)) - (< (SPADCALL |s| (|getShellEntry| $ 42)) |i|)) + (< (SPADCALL |s| (|getShellEntry| $ 47)) |i|)) (|error| "index out of range")) ('T (SEQ (QESET |s| (- |i| (|getShellEntry| $ 6)) |c|) @@ -382,7 +382,7 @@ (EXIT (COND ((SPADCALL (CHAR |t| |r|) |cc| - (|getShellEntry| $ 49)) + (|getShellEntry| $ 64)) (PROGN (LETT #1# (+ |r| @@ -398,9 +398,9 @@ (DEFUN |ISTRING;suffix?;2$B;21| (|s| |t| $) (PROG (|n| |m|) (RETURN - (SEQ (LETT |n| (SPADCALL |t| (|getShellEntry| $ 42)) + (SEQ (LETT |n| (SPADCALL |t| (|getShellEntry| $ 47)) |ISTRING;suffix?;2$B;21|) - (LETT |m| (SPADCALL |s| (|getShellEntry| $ 42)) + (LETT |m| (SPADCALL |s| (|getShellEntry| $ 47)) |ISTRING;suffix?;2$B;21|) (EXIT (COND ((< |n| |m|) 'NIL) @@ -411,19 +411,19 @@ (DEFUN |ISTRING;split;$CL;22| (|s| |c| $) (PROG (|n| |j| |i| |l|) (RETURN - (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) + (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 47)) |ISTRING;split;$CL;22|) (SEQ (LETT |i| (|getShellEntry| $ 6) |ISTRING;split;$CL;22|) G190 (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) - |c| (|getShellEntry| $ 53)))) + |c| (|getShellEntry| $ 68)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CL;22|) (GO G190) G191 (EXIT NIL)) - (LETT |l| (SPADCALL (|getShellEntry| $ 55)) + (LETT |l| (SPADCALL (|getShellEntry| $ 70)) |ISTRING;split;$CL;22|) (SEQ G190 (COND @@ -440,9 +440,9 @@ (SPADCALL (|ISTRING;elt;$Us$;31| |s| (SPADCALL |i| (- |j| 1) - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $) - |l| (|getShellEntry| $ 56)) + |l| (|getShellEntry| $ 71)) |ISTRING;split;$CL;22|) (EXIT (SEQ (LETT |i| |j| |ISTRING;split;$CL;22|) G190 @@ -451,7 +451,7 @@ (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) - |c| (|getShellEntry| $ 53)))) + |c| (|getShellEntry| $ 68)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) @@ -463,16 +463,16 @@ (LETT |l| (SPADCALL (|ISTRING;elt;$Us$;31| |s| - (SPADCALL |i| |n| (|getShellEntry| $ 20)) + (SPADCALL |i| |n| (|getShellEntry| $ 24)) $) - |l| (|getShellEntry| $ 56)) + |l| (|getShellEntry| $ 71)) |ISTRING;split;$CL;22|))) - (EXIT (SPADCALL |l| (|getShellEntry| $ 57))))))) + (EXIT (SPADCALL |l| (|getShellEntry| $ 72))))))) (DEFUN |ISTRING;split;$CcL;23| (|s| |cc| $) (PROG (|n| |j| |i| |l|) (RETURN - (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) + (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 47)) |ISTRING;split;$CcL;23|) (SEQ (LETT |i| (|getShellEntry| $ 6) |ISTRING;split;$CcL;23|) @@ -480,12 +480,12 @@ (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) - |cc| (|getShellEntry| $ 49)))) + |cc| (|getShellEntry| $ 64)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CcL;23|) (GO G190) G191 (EXIT NIL)) - (LETT |l| (SPADCALL (|getShellEntry| $ 55)) + (LETT |l| (SPADCALL (|getShellEntry| $ 70)) |ISTRING;split;$CcL;23|) (SEQ G190 (COND @@ -502,9 +502,9 @@ (SPADCALL (|ISTRING;elt;$Us$;31| |s| (SPADCALL |i| (- |j| 1) - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $) - |l| (|getShellEntry| $ 56)) + |l| (|getShellEntry| $ 71)) |ISTRING;split;$CcL;23|) (EXIT (SEQ (LETT |i| |j| |ISTRING;split;$CcL;23|) G190 @@ -513,7 +513,7 @@ (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) - |cc| (|getShellEntry| $ 49)))) + |cc| (|getShellEntry| $ 64)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) @@ -525,16 +525,16 @@ (LETT |l| (SPADCALL (|ISTRING;elt;$Us$;31| |s| - (SPADCALL |i| |n| (|getShellEntry| $ 20)) + (SPADCALL |i| |n| (|getShellEntry| $ 24)) $) - |l| (|getShellEntry| $ 56)) + |l| (|getShellEntry| $ 71)) |ISTRING;split;$CcL;23|))) - (EXIT (SPADCALL |l| (|getShellEntry| $ 57))))))) + (EXIT (SPADCALL |l| (|getShellEntry| $ 72))))))) (DEFUN |ISTRING;leftTrim;$C$;24| (|s| |c| $) (PROG (|n| |i|) (RETURN - (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) + (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 47)) |ISTRING;leftTrim;$C$;24|) (SEQ (LETT |i| (|getShellEntry| $ 6) |ISTRING;leftTrim;$C$;24|) @@ -542,18 +542,18 @@ (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) - |c| (|getShellEntry| $ 53)))) + |c| (|getShellEntry| $ 68)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;leftTrim;$C$;24|) (GO G190) G191 (EXIT NIL)) (EXIT (|ISTRING;elt;$Us$;31| |s| - (SPADCALL |i| |n| (|getShellEntry| $ 20)) $)))))) + (SPADCALL |i| |n| (|getShellEntry| $ 24)) $)))))) (DEFUN |ISTRING;leftTrim;$Cc$;25| (|s| |cc| $) (PROG (|n| |i|) (RETURN - (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) + (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 47)) |ISTRING;leftTrim;$Cc$;25|) (SEQ (LETT |i| (|getShellEntry| $ 6) |ISTRING;leftTrim;$Cc$;25|) @@ -561,18 +561,18 @@ (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) - |cc| (|getShellEntry| $ 49)))) + |cc| (|getShellEntry| $ 64)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;leftTrim;$Cc$;25|) (GO G190) G191 (EXIT NIL)) (EXIT (|ISTRING;elt;$Us$;31| |s| - (SPADCALL |i| |n| (|getShellEntry| $ 20)) $)))))) + (SPADCALL |i| |n| (|getShellEntry| $ 24)) $)))))) (DEFUN |ISTRING;rightTrim;$C$;26| (|s| |c| $) (PROG (|j| #0=#:G1543) (RETURN - (SEQ (SEQ (LETT |j| (SPADCALL |s| (|getShellEntry| $ 42)) + (SEQ (SEQ (LETT |j| (SPADCALL |s| (|getShellEntry| $ 47)) |ISTRING;rightTrim;$C$;26|) (LETT #0# (|getShellEntry| $ 6) |ISTRING;rightTrim;$C$;26|) @@ -580,20 +580,20 @@ (COND ((OR (< |j| #0#) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |j| $) - |c| (|getShellEntry| $ 53)))) + |c| (|getShellEntry| $ 68)))) (GO G191))) (SEQ (EXIT 0)) (LETT |j| (+ |j| -1) |ISTRING;rightTrim;$C$;26|) (GO G190) G191 (EXIT NIL)) (EXIT (|ISTRING;elt;$Us$;31| |s| (SPADCALL (|ISTRING;minIndex;$I;11| |s| $) |j| - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $)))))) (DEFUN |ISTRING;rightTrim;$Cc$;27| (|s| |cc| $) (PROG (|j| #0=#:G1544) (RETURN - (SEQ (SEQ (LETT |j| (SPADCALL |s| (|getShellEntry| $ 42)) + (SEQ (SEQ (LETT |j| (SPADCALL |s| (|getShellEntry| $ 47)) |ISTRING;rightTrim;$Cc$;27|) (LETT #0# (|getShellEntry| $ 6) |ISTRING;rightTrim;$Cc$;27|) @@ -601,14 +601,14 @@ (COND ((OR (< |j| #0#) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |j| $) - |cc| (|getShellEntry| $ 49)))) + |cc| (|getShellEntry| $ 64)))) (GO G191))) (SEQ (EXIT 0)) (LETT |j| (+ |j| -1) |ISTRING;rightTrim;$Cc$;27|) (GO G190) G191 (EXIT NIL)) (EXIT (|ISTRING;elt;$Us$;31| |s| (SPADCALL (|ISTRING;minIndex;$I;11| |s| $) |j| - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $)))))) (DEFUN |ISTRING;concat;L$;28| (|l| $) @@ -644,7 +644,7 @@ (LETT #0# (CDR #0#) |ISTRING;concat;L$;28|) (GO G190) G191 (EXIT NIL)) (COND (#3# #2#) ('T 0))) - (SPADCALL (|getShellEntry| $ 43))) + (SPADCALL (|getShellEntry| $ 52))) |ISTRING;concat;L$;28|) (LETT |i| (|getShellEntry| $ 6) |ISTRING;concat;L$;28|) (SEQ (LETT |s| NIL |ISTRING;concat;L$;28|) @@ -677,7 +677,7 @@ (DEFUN |ISTRING;elt;$IC;30| (|s| |i| $) (COND ((OR (< |i| (|getShellEntry| $ 6)) - (< (SPADCALL |s| (|getShellEntry| $ 42)) |i|)) + (< (SPADCALL |s| (|getShellEntry| $ 47)) |i|)) (|error| "index out of range")) ('T (CHAR |s| (- |i| (|getShellEntry| $ 6)))))) @@ -685,16 +685,16 @@ (PROG (|l| |h|) (RETURN (SEQ (LETT |l| - (- (SPADCALL |sg| (|getShellEntry| $ 39)) + (- (SPADCALL |sg| (|getShellEntry| $ 44)) (|getShellEntry| $ 6)) |ISTRING;elt;$Us$;31|) (LETT |h| (COND - ((SPADCALL |sg| (|getShellEntry| $ 40)) - (- (SPADCALL |sg| (|getShellEntry| $ 41)) + ((SPADCALL |sg| (|getShellEntry| $ 45)) + (- (SPADCALL |sg| (|getShellEntry| $ 46)) (|getShellEntry| $ 6))) ('T - (- (SPADCALL |s| (|getShellEntry| $ 42)) + (- (SPADCALL |s| (|getShellEntry| $ 47)) (|getShellEntry| $ 6)))) |ISTRING;elt;$Us$;31|) (COND @@ -712,23 +712,23 @@ (SPADCALL (|ISTRING;elt;$IC;30| |s| (|getShellEntry| $ 6) $) - (|getShellEntry| $ 67))) + (|getShellEntry| $ 87))) ('T (* (* (SPADCALL (|ISTRING;elt;$IC;30| |s| (|getShellEntry| $ 6) $) - (|getShellEntry| $ 67)) + (|getShellEntry| $ 87)) (SPADCALL (|ISTRING;elt;$IC;30| |s| (- (+ (|getShellEntry| $ 6) |n|) 1) $) - (|getShellEntry| $ 67))) + (|getShellEntry| $ 87))) (SPADCALL (|ISTRING;elt;$IC;30| |s| (+ (|getShellEntry| $ 6) (QUOTIENT2 |n| 2)) $) - (|getShellEntry| $ 67)))))))))) + (|getShellEntry| $ 87)))))))))) (DEFUN |ISTRING;match;2$CNni;33| (|pattern| |target| |wildcard| $) (|stringMatch| |pattern| |target| (CHARACTER |wildcard|))) @@ -738,7 +738,7 @@ |p| #4=#:G1522 |q|) (RETURN (SEQ (EXIT (SEQ (LETT |n| - (SPADCALL |pattern| (|getShellEntry| $ 42)) + (SPADCALL |pattern| (|getShellEntry| $ 47)) |ISTRING;match?;2$CB;34|) (LETT |p| (PROG1 (LETT #0# @@ -760,17 +760,17 @@ ('T (SEQ (COND ((SPADCALL |p| |m| - (|getShellEntry| $ 70)) + (|getShellEntry| $ 92)) (COND ((NULL (SPADCALL (|ISTRING;elt;$Us$;31| |pattern| (SPADCALL |m| (- |p| 1) - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $) |target| - (|getShellEntry| $ 71))) + (|getShellEntry| $ 93))) (EXIT 'NIL))))) (LETT |i| |p| |ISTRING;match?;2$CB;34|) @@ -791,13 +791,13 @@ (COND ((NULL (SPADCALL |q| (- |m| 1) - (|getShellEntry| $ 70))) + (|getShellEntry| $ 92))) (GO G191))) (SEQ (LETT |s| (|ISTRING;elt;$Us$;31| |pattern| (SPADCALL (+ |p| 1) (- |q| 1) - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $) |ISTRING;match?;2$CB;34|) (LETT |i| @@ -844,14 +844,14 @@ NIL (GO G190) G191 (EXIT NIL)) (COND ((SPADCALL |p| |n| - (|getShellEntry| $ 70)) + (|getShellEntry| $ 92)) (COND ((NULL (|ISTRING;suffix?;2$B;21| (|ISTRING;elt;$Us$;31| |pattern| (SPADCALL (+ |p| 1) |n| - (|getShellEntry| $ 20)) + (|getShellEntry| $ 24)) $) |target| $)) (EXIT 'NIL))))) @@ -884,7 +884,7 @@ (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|IndexedString|)) (LETT |dv$| (LIST '|IndexedString| |dv$1|) . #0#) - (LETT $ (|newShell| 84) . #0#) + (LETT $ (|newShell| 105) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| @@ -929,52 +929,58 @@ (MAKEPROP '|IndexedString| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|NonNegativeInteger|) (|Character|) |ISTRING;new;NniC$;1| - |ISTRING;empty;$;2| (|Boolean|) |ISTRING;empty?;$B;3| - |ISTRING;#;$Nni;4| |ISTRING;=;2$B;5| |ISTRING;<;2$B;6| - |ISTRING;concat;3$;7| |ISTRING;copy;2$;8| (|Integer|) - (|UniversalSegment| 18) (0 . SEGMENT) - |ISTRING;elt;$Us$;31| (6 . SEGMENT) + |ISTRING;empty;$;2| (|Integer|) (0 . |Zero|) (|Boolean|) + (4 . =) |ISTRING;empty?;$B;3| |ISTRING;#;$Nni;4| + |ISTRING;=;2$B;5| |ISTRING;<;2$B;6| |ISTRING;concat;3$;7| + |ISTRING;copy;2$;8| (10 . |One|) (14 . -) + (|UniversalSegment| 11) (20 . SEGMENT) + |ISTRING;elt;$Us$;31| (26 . SEGMENT) |ISTRING;insert;2$I$;9| (|String|) (|OutputForm|) - (11 . |outputForm|) |ISTRING;coerce;$Of;10| + (31 . |outputForm|) |ISTRING;coerce;$Of;10| |ISTRING;minIndex;$I;11| (|CharacterClass|) - (16 . |upperCase|) (20 . |upperCase|) (|Mapping| 8 8) - (25 . |map!|) |ISTRING;upperCase!;2$;12| - (31 . |lowerCase|) (35 . |lowerCase|) - |ISTRING;lowerCase!;2$;13| |ISTRING;latex;$S;14| - (40 . |lo|) (45 . |hasHi|) (50 . |hi|) (55 . |maxIndex|) - (60 . |space|) |ISTRING;replace;$Us2$;15| - |ISTRING;setelt;$I2C;16| |ISTRING;substring?;2$IB;17| - |ISTRING;position;2$2I;18| |ISTRING;position;C$2I;19| - (64 . |member?|) |ISTRING;position;Cc$2I;20| - |ISTRING;suffix?;2$B;21| |ISTRING;elt;$IC;30| (70 . =) - (|List| $$) (76 . |empty|) (80 . |concat|) - (86 . |reverse!|) (|List| $) |ISTRING;split;$CL;22| - |ISTRING;split;$CcL;23| |ISTRING;leftTrim;$C$;24| - |ISTRING;leftTrim;$Cc$;25| |ISTRING;rightTrim;$C$;26| - |ISTRING;rightTrim;$Cc$;27| |ISTRING;copyInto!;2$I$;29| - |ISTRING;concat;L$;28| (91 . |ord|) |ISTRING;hash;$I;32| - |ISTRING;match;2$CNni;33| (96 . ~=) (102 . |prefix?|) + (36 . |upperCase|) (40 . |upperCase|) (|Mapping| 8 8) + (45 . |map!|) |ISTRING;upperCase!;2$;12| + (51 . |lowerCase|) (55 . |lowerCase|) + |ISTRING;lowerCase!;2$;13| (60 . |concat|) + |ISTRING;latex;$S;14| (66 . |lo|) (71 . |hasHi|) + (76 . |hi|) (81 . |maxIndex|) (86 . |Zero|) (90 . <) + (96 . |One|) (100 . +) (106 . |space|) (|SingleInteger|) + (110 . |Zero|) (114 . |One|) |ISTRING;replace;$Us2$;15| + |ISTRING;setelt;$I2C;16| (118 . |false|) (122 . |true|) + |ISTRING;substring?;2$IB;17| |ISTRING;position;2$2I;18| + (126 . -) |ISTRING;position;C$2I;19| (132 . |member?|) + |ISTRING;position;Cc$2I;20| |ISTRING;suffix?;2$B;21| + |ISTRING;elt;$IC;30| (138 . =) (|List| $$) (144 . |empty|) + (148 . |concat|) (154 . |reverse!|) (|List| $) + |ISTRING;split;$CL;22| |ISTRING;split;$CcL;23| + |ISTRING;leftTrim;$C$;24| |ISTRING;leftTrim;$Cc$;25| + (159 . -) |ISTRING;rightTrim;$C$;26| + |ISTRING;rightTrim;$Cc$;27| (164 . +) + |ISTRING;copyInto!;2$I$;29| |ISTRING;concat;L$;28| + (170 . |max|) (176 . |zero?|) (181 . |one?|) (186 . |ord|) + (191 . *) (197 . |quo|) |ISTRING;hash;$I;32| + |ISTRING;match;2$CNni;33| (203 . ~=) (209 . |prefix?|) |ISTRING;match?;2$CB;34| (|List| 8) (|Equation| 8) - (|List| 74) (|Mapping| 8 8 8) (|InputForm|) - (|SingleInteger|) (|Mapping| 11 8) (|Mapping| 11 8 8) - (|Void|) (|Union| 8 '"failed") (|List| 18)) - '#(~= 108 |upperCase!| 114 |upperCase| 119 |trim| 124 |swap!| - 136 |suffix?| 143 |substring?| 149 |split| 156 |sorted?| - 168 |sort!| 179 |sort| 190 |size?| 201 |setelt| 207 - |select| 221 |sample| 227 |rightTrim| 231 |reverse!| 243 - |reverse| 248 |replace| 253 |removeDuplicates| 260 - |remove| 265 |reduce| 277 |qsetelt!| 298 |qelt| 305 - |prefix?| 311 |position| 317 |parts| 350 |new| 355 |more?| - 361 |minIndex| 367 |min| 372 |merge| 378 |members| 391 - |member?| 396 |maxIndex| 402 |max| 407 |match?| 413 - |match| 420 |map!| 427 |map| 433 |lowerCase!| 446 - |lowerCase| 451 |less?| 456 |leftTrim| 462 |latex| 474 - |insert| 479 |indices| 493 |index?| 498 |hash| 504 |first| - 514 |find| 519 |fill!| 525 |every?| 531 |eval| 537 |eq?| - 563 |entry?| 569 |entries| 575 |empty?| 580 |empty| 585 - |elt| 589 |delete| 614 |count| 626 |copyInto!| 638 |copy| - 645 |convert| 650 |construct| 655 |concat| 660 |coerce| - 683 |any?| 693 >= 699 > 705 = 711 <= 717 < 723 |#| 729) + (|List| 96) (|Mapping| 8 8 8) (|InputForm|) + (|Mapping| 13 8) (|Mapping| 13 8 8) (|Void|) + (|Union| 8 '"failed") (|List| 11)) + '#(~= 215 |upperCase!| 221 |upperCase| 226 |trim| 231 |swap!| + 243 |suffix?| 250 |substring?| 256 |split| 263 |sorted?| + 275 |sort!| 286 |sort| 297 |size?| 308 |setelt| 314 + |select| 328 |sample| 334 |rightTrim| 338 |reverse!| 350 + |reverse| 355 |replace| 360 |removeDuplicates| 367 + |remove| 372 |reduce| 384 |qsetelt!| 405 |qelt| 412 + |prefix?| 418 |position| 424 |parts| 457 |new| 462 |more?| + 468 |minIndex| 474 |min| 479 |merge| 485 |members| 498 + |member?| 503 |maxIndex| 509 |max| 514 |match?| 520 + |match| 527 |map!| 534 |map| 540 |lowerCase!| 553 + |lowerCase| 558 |less?| 563 |leftTrim| 569 |latex| 581 + |insert| 586 |indices| 600 |index?| 605 |hash| 611 |first| + 621 |find| 626 |fill!| 632 |every?| 638 |eval| 644 |eq?| + 670 |entry?| 676 |entries| 682 |empty?| 687 |empty| 692 + |elt| 696 |delete| 721 |count| 733 |copyInto!| 745 |copy| + 752 |convert| 757 |construct| 762 |concat| 767 |coerce| + 790 |any?| 800 >= 806 > 812 = 818 <= 824 < 830 |#| 836) '((|shallowlyMutable| . 0) (|finiteAggregate| . 0)) (CONS (|makeByteWordVec2| 5 '(0 0 0 0 0 0 0 5 0 0 1 4 0 0 1 2 3 4)) @@ -990,58 +996,66 @@ (|OneDimensionalArrayAggregate| 8) (|FiniteLinearAggregate| 8) (|LinearAggregate| 8) - (|IndexedAggregate| 18 8) + (|IndexedAggregate| 11 8) (|Collection| 8) (|HomogeneousAggregate| 8) (|OrderedSet|) (|Aggregate|) - (|EltableAggregate| 18 8) (|Evalable| 8) + (|EltableAggregate| 11 8) (|Evalable| 8) (|SetCategory|) (|Type|) - (|Eltable| 18 8) (|InnerEvalable| 8 8) - (|CoercibleTo| 25) (|ConvertibleTo| 77) + (|Eltable| 11 8) (|InnerEvalable| 8 8) + (|CoercibleTo| 29) (|ConvertibleTo| 99) (|BasicType|)) - (|makeByteWordVec2| 83 - '(2 19 0 18 18 20 1 19 0 18 22 1 25 0 - 24 26 0 29 0 30 1 8 0 0 31 2 0 0 32 0 - 33 0 29 0 35 1 8 0 0 36 1 19 18 0 39 - 1 19 11 0 40 1 19 18 0 41 1 0 18 0 42 - 0 8 0 43 2 29 11 8 0 49 2 8 11 0 0 53 - 0 54 0 55 2 54 0 2 0 56 1 54 0 0 57 1 - 8 7 0 67 2 18 11 0 0 70 2 0 11 0 0 71 - 2 7 11 0 0 1 1 0 0 0 34 1 0 0 0 1 2 0 - 0 0 8 1 2 0 0 0 29 1 3 0 81 0 18 18 1 - 2 0 11 0 0 51 3 0 11 0 0 18 46 2 0 58 - 0 29 60 2 0 58 0 8 59 1 5 11 0 1 2 0 - 11 80 0 1 1 5 0 0 1 2 0 0 80 0 1 1 5 - 0 0 1 2 0 0 80 0 1 2 0 11 0 7 1 3 0 8 - 0 19 8 1 3 0 8 0 18 8 45 2 0 0 79 0 1 - 0 0 0 1 2 0 0 0 8 63 2 0 0 0 29 64 1 - 0 0 0 1 1 0 0 0 1 3 0 0 0 19 0 44 1 7 - 0 0 1 2 7 0 8 0 1 2 0 0 79 0 1 4 7 8 - 76 0 8 8 1 3 0 8 76 0 8 1 2 0 8 76 0 - 1 3 0 8 0 18 8 1 2 0 8 0 18 1 2 0 11 - 0 0 71 3 7 18 8 0 18 48 2 7 18 8 0 1 - 3 0 18 29 0 18 50 3 0 18 0 0 18 47 2 - 0 18 79 0 1 1 0 73 0 1 2 0 0 7 8 9 2 - 0 11 0 7 1 1 6 18 0 28 2 5 0 0 0 1 2 - 5 0 0 0 1 3 0 0 80 0 0 1 1 0 73 0 1 2 - 7 11 8 0 1 1 6 18 0 42 2 5 0 0 0 1 3 - 0 11 0 0 8 72 3 0 7 0 0 8 69 2 0 0 32 - 0 33 3 0 0 76 0 0 1 2 0 0 32 0 1 1 0 - 0 0 37 1 0 0 0 1 2 0 11 0 7 1 2 0 0 0 - 8 61 2 0 0 0 29 62 1 7 24 0 38 3 0 0 - 8 0 18 1 3 0 0 0 0 18 23 1 0 83 0 1 2 - 0 11 18 0 1 1 7 78 0 1 1 0 18 0 68 1 - 6 8 0 1 2 0 82 79 0 1 2 0 0 0 8 1 2 0 - 11 79 0 1 3 9 0 0 73 73 1 3 9 0 0 8 8 - 1 2 9 0 0 75 1 2 9 0 0 74 1 2 0 11 0 - 0 1 2 7 11 8 0 1 1 0 73 0 1 1 0 11 0 - 12 0 0 0 10 2 0 0 0 0 1 2 0 0 0 19 21 - 2 0 8 0 18 52 3 0 8 0 18 8 1 2 0 0 0 - 18 1 2 0 0 0 19 1 2 7 7 8 0 1 2 0 7 - 79 0 1 3 0 0 0 0 18 65 1 0 0 0 17 1 3 - 77 0 1 1 0 0 73 1 1 0 0 58 66 2 0 0 0 - 0 16 2 0 0 0 8 1 2 0 0 8 0 1 1 8 25 0 - 27 1 0 0 8 1 2 0 11 79 0 1 2 5 11 0 0 - 1 2 5 11 0 0 1 2 7 11 0 0 14 2 5 11 0 - 0 1 2 5 11 0 0 15 1 0 7 0 13))))) + (|makeByteWordVec2| 104 + '(0 11 0 12 2 11 13 0 0 14 0 11 0 21 2 + 11 0 0 0 22 2 23 0 11 11 24 1 23 0 11 + 26 1 29 0 28 30 0 33 0 34 1 8 0 0 35 + 2 0 0 36 0 37 0 33 0 39 1 8 0 0 40 2 + 28 0 0 0 42 1 23 11 0 44 1 23 13 0 45 + 1 23 11 0 46 1 0 11 0 47 0 7 0 48 2 + 11 13 0 0 49 0 7 0 50 2 11 0 0 0 51 0 + 8 0 52 0 53 0 54 0 53 0 55 0 13 0 58 + 0 13 0 59 2 53 0 0 0 62 2 33 13 8 0 + 64 2 8 13 0 0 68 0 69 0 70 2 69 0 2 0 + 71 1 69 0 0 72 1 53 0 0 78 2 7 0 0 0 + 81 2 11 0 0 0 84 1 11 13 0 85 1 11 13 + 0 86 1 8 7 0 87 2 11 0 11 0 88 2 11 0 + 0 0 89 2 11 13 0 0 92 2 0 13 0 0 93 2 + 7 13 0 0 1 1 0 0 0 38 1 0 0 0 1 2 0 0 + 0 8 1 2 0 0 0 33 1 3 0 102 0 11 11 1 + 2 0 13 0 0 66 3 0 13 0 0 11 60 2 0 73 + 0 33 75 2 0 73 0 8 74 1 5 13 0 1 2 0 + 13 101 0 1 1 5 0 0 1 2 0 0 101 0 1 1 + 5 0 0 1 2 0 0 101 0 1 2 0 13 0 7 1 3 + 0 8 0 23 8 1 3 0 8 0 11 8 57 2 0 0 + 100 0 1 0 0 0 1 2 0 0 0 8 79 2 0 0 0 + 33 80 1 0 0 0 1 1 0 0 0 1 3 0 0 0 23 + 0 56 1 7 0 0 1 2 7 0 8 0 1 2 0 0 100 + 0 1 4 7 8 98 0 8 8 1 3 0 8 98 0 8 1 2 + 0 8 98 0 1 3 0 8 0 11 8 1 2 0 8 0 11 + 1 2 0 13 0 0 93 3 7 11 8 0 11 63 2 7 + 11 8 0 1 3 0 11 33 0 11 65 3 0 11 0 0 + 11 61 2 0 11 100 0 1 1 0 95 0 1 2 0 0 + 7 8 9 2 0 13 0 7 1 1 6 11 0 32 2 5 0 + 0 0 1 2 5 0 0 0 1 3 0 0 101 0 0 1 1 0 + 95 0 1 2 7 13 8 0 1 1 6 11 0 47 2 5 0 + 0 0 1 3 0 13 0 0 8 94 3 0 7 0 0 8 91 + 2 0 0 36 0 37 3 0 0 98 0 0 1 2 0 0 36 + 0 1 1 0 0 0 41 1 0 0 0 1 2 0 13 0 7 1 + 2 0 0 0 8 76 2 0 0 0 33 77 1 7 28 0 + 43 3 0 0 8 0 11 1 3 0 0 0 0 11 27 1 0 + 104 0 1 2 0 13 11 0 1 1 7 53 0 1 1 0 + 11 0 90 1 6 8 0 1 2 0 103 100 0 1 2 0 + 0 0 8 1 2 0 13 100 0 1 3 9 0 0 95 95 + 1 3 9 0 0 8 8 1 2 9 0 0 97 1 2 9 0 0 + 96 1 2 0 13 0 0 1 2 7 13 8 0 1 1 0 95 + 0 1 1 0 13 0 15 0 0 0 10 2 0 0 0 0 1 + 2 0 0 0 23 25 2 0 8 0 11 67 3 0 8 0 + 11 8 1 2 0 0 0 11 1 2 0 0 0 23 1 2 7 + 7 8 0 1 2 0 7 100 0 1 3 0 0 0 0 11 82 + 1 0 0 0 20 1 3 99 0 1 1 0 0 95 1 1 0 + 0 73 83 2 0 0 0 0 19 2 0 0 0 8 1 2 0 + 0 8 0 1 1 8 29 0 31 1 0 0 8 1 2 0 13 + 100 0 1 2 5 13 0 0 1 2 5 13 0 0 1 2 7 + 13 0 0 17 2 5 13 0 0 1 2 5 13 0 0 18 + 1 0 7 0 16))))) '|lookupComplete|)) -- cgit v1.2.3