aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/strap/ISTRING.lsp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-03-01 05:22:19 +0000
committerdos-reis <gdr@axiomatics.org>2009-03-01 05:22:19 +0000
commitc42526006076b88ff2755f33eb1defd2e455e67e (patch)
tree975c82ab94b65bc41169dd0c339700d4a2efc825 /src/algebra/strap/ISTRING.lsp
parent4311f047fffe6dbc6f58ba4f37f074cc9d155630 (diff)
downloadopen-axiom-c42526006076b88ff2755f33eb1defd2e455e67e.tar.gz
Optimization should not change slot numbers.
Diffstat (limited to 'src/algebra/strap/ISTRING.lsp')
-rw-r--r--src/algebra/strap/ISTRING.lsp324
1 files changed, 169 insertions, 155 deletions
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|))
generated by cgit v1.2.3 (git 2.39.1) at 2024-08-30 13:58:38 +0000