(/VERSIONCHECK 2) (DECLAIM (FTYPE (FUNCTION ((|%IntegerSection| 0) |%Char| |%Shell|) |%Thing|) |ISTRING;new;NniC$;1|)) (PUT '|ISTRING;new;NniC$;1| '|SPADreplace| 'MAKE-FULL-CVEC) (DECLAIM (FTYPE (FUNCTION (|%Shell|) |%Thing|) |ISTRING;empty;$;2|)) (PUT '|ISTRING;empty;$;2| '|SPADreplace| '(XLAM NIL (MAKE-FULL-CVEC 0))) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Boolean|) |ISTRING;empty?;$B;3|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) (|%IntegerSection| 0)) |ISTRING;#;$Nni;4|)) (PUT '|ISTRING;#;$Nni;4| '|SPADreplace| 'QCSIZE) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Boolean|) |ISTRING;=;2$B;5|)) (PUT '|ISTRING;=;2$B;5| '|SPADreplace| 'EQUAL) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Boolean|) |ISTRING;<;2$B;6|)) (PUT '|ISTRING;<;2$B;6| '|SPADreplace| '(XLAM (|s| |t|) (CGREATERP |t| |s|))) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |ISTRING;concat;3$;7|)) (PUT '|ISTRING;concat;3$;7| '|SPADreplace| 'STRCONC) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |ISTRING;copy;2$;8|)) (PUT '|ISTRING;copy;2$;8| '|SPADreplace| 'COPY-SEQ) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Integer| |%Shell|) |%Thing|) |ISTRING;insert;2$I$;9|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |ISTRING;coerce;$Of;10|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Integer|) |ISTRING;minIndex;$I;11|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |ISTRING;upperCase!;2$;12|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |ISTRING;lowerCase!;2$;13|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%String|) |ISTRING;latex;$S;14|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Thing| |%Shell|) |%Thing|) |ISTRING;replace;$Us2$;15|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Integer| |%Char| |%Shell|) |%Char|) |ISTRING;setelt;$I2C;16|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Integer| |%Shell|) |%Boolean|) |ISTRING;substring?;2$IB;17|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Integer| |%Shell|) |%Integer|) |ISTRING;position;2$2I;18|)) (DECLAIM (FTYPE (FUNCTION (|%Char| |%Thing| |%Integer| |%Shell|) |%Integer|) |ISTRING;position;C$2I;19|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Integer| |%Shell|) |%Integer|) |ISTRING;position;Cc$2I;20|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Boolean|) |ISTRING;suffix?;2$B;21|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Char| |%Shell|) |%List|) |ISTRING;split;$CL;22|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%List|) |ISTRING;split;$CcL;23|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Char| |%Shell|) |%Thing|) |ISTRING;leftTrim;$C$;24|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |ISTRING;leftTrim;$Cc$;25|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Char| |%Shell|) |%Thing|) |ISTRING;rightTrim;$C$;26|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |ISTRING;rightTrim;$Cc$;27|)) (DECLAIM (FTYPE (FUNCTION (|%List| |%Shell|) |%Thing|) |ISTRING;concat;L$;28|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Integer| |%Shell|) |%Thing|) |ISTRING;copyInto!;2$I$;29|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Integer| |%Shell|) |%Char|) |ISTRING;elt;$IC;30|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |ISTRING;elt;$Us$;31|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Integer|) |ISTRING;hash;$I;32|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Char| |%Shell|) (|%IntegerSection| 0)) |ISTRING;match;2$CNni;33|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Char| |%Shell|) |%Boolean|) |ISTRING;match?;2$CB;34|)) (DEFUN |ISTRING;new;NniC$;1| (|n| |c| $) (DECLARE (IGNORE $)) (MAKE-FULL-CVEC |n| |c|)) (DEFUN |ISTRING;empty;$;2| ($) (DECLARE (IGNORE $)) (MAKE-FULL-CVEC 0)) (DEFUN |ISTRING;empty?;$B;3| (|s| $) (EQL (QCSIZE |s|) 0)) (DEFUN |ISTRING;#;$Nni;4| (|s| $) (DECLARE (IGNORE $)) (QCSIZE |s|)) (DEFUN |ISTRING;=;2$B;5| (|s| |t| $) (DECLARE (IGNORE $)) (EQUAL |s| |t|)) (DEFUN |ISTRING;<;2$B;6| (|s| |t| $) (DECLARE (IGNORE $)) (CGREATERP |t| |s|)) (DEFUN |ISTRING;concat;3$;7| (|s| |t| $) (DECLARE (IGNORE $)) (STRCONC |s| |t|)) (DEFUN |ISTRING;copy;2$;8| (|s| $) (DECLARE (IGNORE $)) (COPY-SEQ |s|)) (DEFUN |ISTRING;insert;2$I$;9| (|s| |t| |i| $) (STRCONC (STRCONC (|ISTRING;elt;$Us$;31| |s| (SPADCALL (|getShellEntry| $ 6) (- |i| 1) (|getShellEntry| $ 20)) $) |t|) (|ISTRING;elt;$Us$;31| |s| (SPADCALL |i| (|getShellEntry| $ 22)) $))) (DEFUN |ISTRING;coerce;$Of;10| (|s| $) (SPADCALL |s| (|getShellEntry| $ 26))) (DEFUN |ISTRING;minIndex;$I;11| (|s| $) (|getShellEntry| $ 6)) (DEFUN |ISTRING;upperCase!;2$;12| (|s| $) (SPADCALL (ELT $ 31) |s| (|getShellEntry| $ 33))) (DEFUN |ISTRING;lowerCase!;2$;13| (|s| $) (SPADCALL (ELT $ 36) |s| (|getShellEntry| $ 33))) (DEFUN |ISTRING;latex;$S;14| (|s| $) (STRCONC "\\mbox{``" (STRCONC |s| "''}"))) (DEFUN |ISTRING;replace;$Us2$;15| (|s| |sg| |t| $) (PROG (|l| |m| |n| |h| #0=#:G1437 |r| #1=#:G1534 #2=#:G1535 |i| #3=#:G1536 |k|) (RETURN (SEQ (LETT |l| (- (SPADCALL |sg| (|getShellEntry| $ 39)) (|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)) (|getShellEntry| $ 6))) ('T (- (SPADCALL |s| (|getShellEntry| $ 42)) (|getShellEntry| $ 6)))) |ISTRING;replace;$Us2$;15|) (COND ((OR (OR (< |l| 0) (NULL (< |h| |m|))) (< |h| (- |l| 1))) (EXIT (|error| "index out of range")))) (LETT |r| (MAKE-FULL-CVEC (PROG1 (LETT #0# (+ (- |m| (+ (- |h| |l|) 1)) |n|) |ISTRING;replace;$Us2$;15|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) (SPADCALL (|getShellEntry| $ 43))) |ISTRING;replace;$Us2$;15|) (SEQ (LETT |i| 0 |ISTRING;replace;$Us2$;15|) (LETT #1# (- |l| 1) |ISTRING;replace;$Us2$;15|) (LETT |k| 0 |ISTRING;replace;$Us2$;15|) G190 (COND ((QSGREATERP |i| #1#) (GO G191))) (SEQ (EXIT (QESET |r| |k| (CHAR |s| |i|)))) (LETT |k| (PROG1 (QSADD1 |k|) (LETT |i| (QSADD1 |i|) |ISTRING;replace;$Us2$;15|)) |ISTRING;replace;$Us2$;15|) (GO G190) G191 (EXIT NIL)) (SEQ (LETT |i| 0 |ISTRING;replace;$Us2$;15|) (LETT #2# (- |n| 1) |ISTRING;replace;$Us2$;15|) (LETT |k| |k| |ISTRING;replace;$Us2$;15|) G190 (COND ((QSGREATERP |i| #2#) (GO G191))) (SEQ (EXIT (QESET |r| |k| (CHAR |t| |i|)))) (LETT |k| (PROG1 (+ |k| 1) (LETT |i| (QSADD1 |i|) |ISTRING;replace;$Us2$;15|)) |ISTRING;replace;$Us2$;15|) (GO G190) G191 (EXIT NIL)) (SEQ (LETT |i| (+ |h| 1) |ISTRING;replace;$Us2$;15|) (LETT #3# (- |m| 1) |ISTRING;replace;$Us2$;15|) (LETT |k| |k| |ISTRING;replace;$Us2$;15|) G190 (COND ((> |i| #3#) (GO G191))) (SEQ (EXIT (QESET |r| |k| (CHAR |s| |i|)))) (LETT |k| (PROG1 (+ |k| 1) (LETT |i| (+ |i| 1) |ISTRING;replace;$Us2$;15|)) |ISTRING;replace;$Us2$;15|) (GO G190) G191 (EXIT NIL)) (EXIT |r|))))) (DEFUN |ISTRING;setelt;$I2C;16| (|s| |i| |c| $) (SEQ (COND ((OR (< |i| (|getShellEntry| $ 6)) (< (SPADCALL |s| (|getShellEntry| $ 42)) |i|)) (|error| "index out of range")) ('T (SEQ (QESET |s| (- |i| (|getShellEntry| $ 6)) |c|) (EXIT |c|)))))) (DEFUN |ISTRING;substring?;2$IB;17| (|part| |whole| |startpos| $) (PROG (|np| |nw| |iw| |ip| #0=#:G1537 #1=#:G1451 #2=#:G1447) (RETURN (SEQ (EXIT (SEQ (LETT |np| (QCSIZE |part|) |ISTRING;substring?;2$IB;17|) (LETT |nw| (QCSIZE |whole|) |ISTRING;substring?;2$IB;17|) (LETT |startpos| (- |startpos| (|getShellEntry| $ 6)) |ISTRING;substring?;2$IB;17|) (EXIT (COND ((< |startpos| 0) (|error| "index out of bounds")) ((< (- |nw| |startpos|) |np|) 'NIL) ('T (SEQ (SEQ (EXIT (SEQ (LETT |iw| |startpos| |ISTRING;substring?;2$IB;17|) (LETT |ip| 0 |ISTRING;substring?;2$IB;17|) (LETT #0# (- |np| 1) |ISTRING;substring?;2$IB;17|) G190 (COND ((QSGREATERP |ip| #0#) (GO G191))) (SEQ (EXIT (COND ((NULL (CHAR= (CHAR |part| |ip|) (CHAR |whole| |iw|))) (PROGN (LETT #2# (PROGN (LETT #1# 'NIL |ISTRING;substring?;2$IB;17|) (GO #1#)) |ISTRING;substring?;2$IB;17|) (GO #2#)))))) (LETT |ip| (PROG1 (QSADD1 |ip|) (LETT |iw| (+ |iw| 1) |ISTRING;substring?;2$IB;17|)) |ISTRING;substring?;2$IB;17|) (GO G190) G191 (EXIT NIL))) #2# (EXIT #2#)) (EXIT 'T))))))) #1# (EXIT #1#))))) (DEFUN |ISTRING;position;2$2I;18| (|s| |t| |startpos| $) (PROG (|r|) (RETURN (SEQ (LETT |startpos| (- |startpos| (|getShellEntry| $ 6)) |ISTRING;position;2$2I;18|) (EXIT (COND ((< |startpos| 0) (|error| "index out of bounds")) ((NULL (< |startpos| (QCSIZE |t|))) (- (|getShellEntry| $ 6) 1)) ('T (SEQ (LETT |r| (STRPOS |s| |t| |startpos| NIL) |ISTRING;position;2$2I;18|) (EXIT (COND ((EQ |r| NIL) (- (|getShellEntry| $ 6) 1)) ('T (+ |r| (|getShellEntry| $ 6))))))))))))) (DEFUN |ISTRING;position;C$2I;19| (|c| |t| |startpos| $) (PROG (|r| #0=#:G1538 #1=#:G1461) (RETURN (SEQ (EXIT (SEQ (LETT |startpos| (- |startpos| (|getShellEntry| $ 6)) |ISTRING;position;C$2I;19|) (EXIT (COND ((< |startpos| 0) (|error| "index out of bounds")) ((NULL (< |startpos| (QCSIZE |t|))) (- (|getShellEntry| $ 6) 1)) ('T (SEQ (SEQ (LETT |r| |startpos| |ISTRING;position;C$2I;19|) (LETT #0# (QSDIFFERENCE (QCSIZE |t|) 1) |ISTRING;position;C$2I;19|) G190 (COND ((> |r| #0#) (GO G191))) (SEQ (EXIT (COND ((CHAR= (CHAR |t| |r|) |c|) (PROGN (LETT #1# (+ |r| (|getShellEntry| $ 6)) |ISTRING;position;C$2I;19|) (GO #1#)))))) (LETT |r| (+ |r| 1) |ISTRING;position;C$2I;19|) (GO G190) G191 (EXIT NIL)) (EXIT (- (|getShellEntry| $ 6) 1)))))))) #1# (EXIT #1#))))) (DEFUN |ISTRING;position;Cc$2I;20| (|cc| |t| |startpos| $) (PROG (|r| #0=#:G1539 #1=#:G1467) (RETURN (SEQ (EXIT (SEQ (LETT |startpos| (- |startpos| (|getShellEntry| $ 6)) |ISTRING;position;Cc$2I;20|) (EXIT (COND ((< |startpos| 0) (|error| "index out of bounds")) ((NULL (< |startpos| (QCSIZE |t|))) (- (|getShellEntry| $ 6) 1)) ('T (SEQ (SEQ (LETT |r| |startpos| |ISTRING;position;Cc$2I;20|) (LETT #0# (QSDIFFERENCE (QCSIZE |t|) 1) |ISTRING;position;Cc$2I;20|) G190 (COND ((> |r| #0#) (GO G191))) (SEQ (EXIT (COND ((SPADCALL (CHAR |t| |r|) |cc| (|getShellEntry| $ 49)) (PROGN (LETT #1# (+ |r| (|getShellEntry| $ 6)) |ISTRING;position;Cc$2I;20|) (GO #1#)))))) (LETT |r| (+ |r| 1) |ISTRING;position;Cc$2I;20|) (GO G190) G191 (EXIT NIL)) (EXIT (- (|getShellEntry| $ 6) 1)))))))) #1# (EXIT #1#))))) (DEFUN |ISTRING;suffix?;2$B;21| (|s| |t| $) (PROG (|n| |m|) (RETURN (SEQ (LETT |n| (SPADCALL |t| (|getShellEntry| $ 42)) |ISTRING;suffix?;2$B;21|) (LETT |m| (SPADCALL |s| (|getShellEntry| $ 42)) |ISTRING;suffix?;2$B;21|) (EXIT (COND ((< |n| |m|) 'NIL) ('T (|ISTRING;substring?;2$IB;17| |s| |t| (- (+ (|getShellEntry| $ 6) |n|) |m|) $)))))))) (DEFUN |ISTRING;split;$CL;22| (|s| |c| $) (PROG (|n| |j| |i| |l|) (RETURN (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) |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)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CL;22|) (GO G190) G191 (EXIT NIL)) (LETT |l| (SPADCALL (|getShellEntry| $ 55)) |ISTRING;split;$CL;22|) (SEQ G190 (COND ((NULL (COND ((< |n| |i|) 'NIL) ('T (SPADCALL (< (LETT |j| (|ISTRING;position;C$2I;19| |c| |s| |i| $) |ISTRING;split;$CL;22|) (|getShellEntry| $ 6)) (|getShellEntry| $ 56))))) (GO G191))) (SEQ (LETT |l| (SPADCALL (|ISTRING;elt;$Us$;31| |s| (SPADCALL |i| (- |j| 1) (|getShellEntry| $ 20)) $) |l| (|getShellEntry| $ 57)) |ISTRING;split;$CL;22|) (EXIT (SEQ (LETT |i| |j| |ISTRING;split;$CL;22|) G190 (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) |c| (|getShellEntry| $ 53)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CL;22|) (GO G190) G191 (EXIT NIL)))) NIL (GO G190) G191 (EXIT NIL)) (COND ((NULL (< |n| |i|)) (LETT |l| (SPADCALL (|ISTRING;elt;$Us$;31| |s| (SPADCALL |i| |n| (|getShellEntry| $ 20)) $) |l| (|getShellEntry| $ 57)) |ISTRING;split;$CL;22|))) (EXIT (SPADCALL |l| (|getShellEntry| $ 58))))))) (DEFUN |ISTRING;split;$CcL;23| (|s| |cc| $) (PROG (|n| |j| |i| |l|) (RETURN (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) |ISTRING;split;$CcL;23|) (SEQ (LETT |i| (|getShellEntry| $ 6) |ISTRING;split;$CcL;23|) G190 (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) |cc| (|getShellEntry| $ 49)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CcL;23|) (GO G190) G191 (EXIT NIL)) (LETT |l| (SPADCALL (|getShellEntry| $ 55)) |ISTRING;split;$CcL;23|) (SEQ G190 (COND ((NULL (COND ((< |n| |i|) 'NIL) ('T (SPADCALL (< (LETT |j| (|ISTRING;position;Cc$2I;20| |cc| |s| |i| $) |ISTRING;split;$CcL;23|) (|getShellEntry| $ 6)) (|getShellEntry| $ 56))))) (GO G191))) (SEQ (LETT |l| (SPADCALL (|ISTRING;elt;$Us$;31| |s| (SPADCALL |i| (- |j| 1) (|getShellEntry| $ 20)) $) |l| (|getShellEntry| $ 57)) |ISTRING;split;$CcL;23|) (EXIT (SEQ (LETT |i| |j| |ISTRING;split;$CcL;23|) G190 (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) |cc| (|getShellEntry| $ 49)))) (GO G191))) (SEQ (EXIT 0)) (LETT |i| (+ |i| 1) |ISTRING;split;$CcL;23|) (GO G190) G191 (EXIT NIL)))) NIL (GO G190) G191 (EXIT NIL)) (COND ((NULL (< |n| |i|)) (LETT |l| (SPADCALL (|ISTRING;elt;$Us$;31| |s| (SPADCALL |i| |n| (|getShellEntry| $ 20)) $) |l| (|getShellEntry| $ 57)) |ISTRING;split;$CcL;23|))) (EXIT (SPADCALL |l| (|getShellEntry| $ 58))))))) (DEFUN |ISTRING;leftTrim;$C$;24| (|s| |c| $) (PROG (|n| |i|) (RETURN (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) |ISTRING;leftTrim;$C$;24|) (SEQ (LETT |i| (|getShellEntry| $ 6) |ISTRING;leftTrim;$C$;24|) G190 (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) |c| (|getShellEntry| $ 53)))) (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)) $)))))) (DEFUN |ISTRING;leftTrim;$Cc$;25| (|s| |cc| $) (PROG (|n| |i|) (RETURN (SEQ (LETT |n| (SPADCALL |s| (|getShellEntry| $ 42)) |ISTRING;leftTrim;$Cc$;25|) (SEQ (LETT |i| (|getShellEntry| $ 6) |ISTRING;leftTrim;$Cc$;25|) G190 (COND ((OR (> |i| |n|) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |i| $) |cc| (|getShellEntry| $ 49)))) (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)) $)))))) (DEFUN |ISTRING;rightTrim;$C$;26| (|s| |c| $) (PROG (|j| #0=#:G1540) (RETURN (SEQ (SEQ (LETT |j| (SPADCALL |s| (|getShellEntry| $ 42)) |ISTRING;rightTrim;$C$;26|) (LETT #0# (|getShellEntry| $ 6) |ISTRING;rightTrim;$C$;26|) G190 (COND ((OR (< |j| #0#) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |j| $) |c| (|getShellEntry| $ 53)))) (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)) $)))))) (DEFUN |ISTRING;rightTrim;$Cc$;27| (|s| |cc| $) (PROG (|j| #0=#:G1541) (RETURN (SEQ (SEQ (LETT |j| (SPADCALL |s| (|getShellEntry| $ 42)) |ISTRING;rightTrim;$Cc$;27|) (LETT #0# (|getShellEntry| $ 6) |ISTRING;rightTrim;$Cc$;27|) G190 (COND ((OR (< |j| #0#) (NULL (SPADCALL (|ISTRING;elt;$IC;30| |s| |j| $) |cc| (|getShellEntry| $ 49)))) (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)) $)))))) (DEFUN |ISTRING;concat;L$;28| (|l| $) (PROG (#0=#:G1542 #1=#:G1496 #2=#:G1494 #3=#:G1495 |t| |s| #4=#:G1543 |i|) (RETURN (SEQ (LETT |t| (MAKE-FULL-CVEC (PROGN (LETT #3# NIL |ISTRING;concat;L$;28|) (SEQ (LETT |s| NIL |ISTRING;concat;L$;28|) (LETT #0# |l| |ISTRING;concat;L$;28|) G190 (COND ((OR (ATOM #0#) (PROGN (LETT |s| (CAR #0#) |ISTRING;concat;L$;28|) NIL)) (GO G191))) (SEQ (EXIT (PROGN (LETT #1# (QCSIZE |s|) |ISTRING;concat;L$;28|) (COND (#3# (LETT #2# (+ #2# #1#) |ISTRING;concat;L$;28|)) ('T (PROGN (LETT #2# #1# |ISTRING;concat;L$;28|) (LETT #3# 'T |ISTRING;concat;L$;28|))))))) (LETT #0# (CDR #0#) |ISTRING;concat;L$;28|) (GO G190) G191 (EXIT NIL)) (COND (#3# #2#) ('T 0))) (SPADCALL (|getShellEntry| $ 43))) |ISTRING;concat;L$;28|) (LETT |i| (|getShellEntry| $ 6) |ISTRING;concat;L$;28|) (SEQ (LETT |s| NIL |ISTRING;concat;L$;28|) (LETT #4# |l| |ISTRING;concat;L$;28|) G190 (COND ((OR (ATOM #4#) (PROGN (LETT |s| (CAR #4#) |ISTRING;concat;L$;28|) NIL)) (GO G191))) (SEQ (|ISTRING;copyInto!;2$I$;29| |t| |s| |i| $) (EXIT (LETT |i| (+ |i| (QCSIZE |s|)) |ISTRING;concat;L$;28|))) (LETT #4# (CDR #4#) |ISTRING;concat;L$;28|) (GO G190) G191 (EXIT NIL)) (EXIT |t|))))) (DEFUN |ISTRING;copyInto!;2$I$;29| (|y| |x| |s| $) (PROG (|m| |n|) (RETURN (SEQ (LETT |m| (QCSIZE |x|) |ISTRING;copyInto!;2$I$;29|) (LETT |n| (QCSIZE |y|) |ISTRING;copyInto!;2$I$;29|) (LETT |s| (- |s| (|getShellEntry| $ 6)) |ISTRING;copyInto!;2$I$;29|) (COND ((OR (< |s| 0) (< |n| (+ |s| |m|))) (EXIT (|error| "index out of range")))) (RPLACSTR |y| |s| |m| |x| 0 |m|) (EXIT |y|))))) (DEFUN |ISTRING;elt;$IC;30| (|s| |i| $) (COND ((OR (< |i| (|getShellEntry| $ 6)) (< (SPADCALL |s| (|getShellEntry| $ 42)) |i|)) (|error| "index out of range")) ('T (CHAR |s| (- |i| (|getShellEntry| $ 6)))))) (DEFUN |ISTRING;elt;$Us$;31| (|s| |sg| $) (PROG (|l| |h|) (RETURN (SEQ (LETT |l| (- (SPADCALL |sg| (|getShellEntry| $ 39)) (|getShellEntry| $ 6)) |ISTRING;elt;$Us$;31|) (LETT |h| (COND ((SPADCALL |sg| (|getShellEntry| $ 40)) (- (SPADCALL |sg| (|getShellEntry| $ 41)) (|getShellEntry| $ 6))) ('T (- (SPADCALL |s| (|getShellEntry| $ 42)) (|getShellEntry| $ 6)))) |ISTRING;elt;$Us$;31|) (COND ((OR (< |l| 0) (NULL (< |h| (SPADCALL |s| (|getShellEntry| $ 13))))) (EXIT (|error| "index out of bound")))) (EXIT (SUBSTRING |s| |l| (MAX 0 (+ (- |h| |l|) 1)))))))) (DEFUN |ISTRING;hash;$I;32| (|s| $) (PROG (|n|) (RETURN (SEQ (LETT |n| (QCSIZE |s|) |ISTRING;hash;$I;32|) (EXIT (COND ((ZEROP |n|) 0) ((EQL |n| 1) (SPADCALL (|ISTRING;elt;$IC;30| |s| (|getShellEntry| $ 6) $) (|getShellEntry| $ 68))) ('T (* (* (SPADCALL (|ISTRING;elt;$IC;30| |s| (|getShellEntry| $ 6) $) (|getShellEntry| $ 68)) (SPADCALL (|ISTRING;elt;$IC;30| |s| (- (+ (|getShellEntry| $ 6) |n|) 1) $) (|getShellEntry| $ 68))) (SPADCALL (|ISTRING;elt;$IC;30| |s| (+ (|getShellEntry| $ 6) (QUOTIENT2 |n| 2)) $) (|getShellEntry| $ 68)))))))))) (DEFUN |ISTRING;match;2$CNni;33| (|pattern| |target| |wildcard| $) (|stringMatch| |pattern| |target| (CHARACTER |wildcard|))) (DEFUN |ISTRING;match?;2$CB;34| (|pattern| |target| |dontcare| $) (PROG (|n| |m| #0=#:G1514 #1=#:G1517 |s| #2=#:G1518 #3=#:G1527 |i| |p| #4=#:G1519 |q|) (RETURN (SEQ (EXIT (SEQ (LETT |n| (SPADCALL |pattern| (|getShellEntry| $ 42)) |ISTRING;match?;2$CB;34|) (LETT |p| (PROG1 (LETT #0# (|ISTRING;position;C$2I;19| |dontcare| |pattern| (LETT |m| (|ISTRING;minIndex;$I;11| |pattern| $) |ISTRING;match?;2$CB;34|) $) |ISTRING;match?;2$CB;34|) (|check-subtype| (>= #0# 0) '(|NonNegativeInteger|) #0#)) |ISTRING;match?;2$CB;34|) (EXIT (COND ((EQL |p| (- |m| 1)) (EQUAL |pattern| |target|)) ('T (SEQ (COND ((SPADCALL |p| |m| (|getShellEntry| $ 71)) (COND ((NULL (SPADCALL (SPADCALL |pattern| (SPADCALL |m| (- |p| 1) (|getShellEntry| $ 20)) (|getShellEntry| $ 21)) |target| (|getShellEntry| $ 72))) (EXIT 'NIL))))) (LETT |i| |p| |ISTRING;match?;2$CB;34|) (LETT |q| (PROG1 (LETT #1# (|ISTRING;position;C$2I;19| |dontcare| |pattern| (+ |p| 1) $) |ISTRING;match?;2$CB;34|) (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#)) |ISTRING;match?;2$CB;34|) (SEQ G190 (COND ((NULL (SPADCALL |q| (- |m| 1) (|getShellEntry| $ 71))) (GO G191))) (SEQ (LETT |s| (|ISTRING;elt;$Us$;31| |pattern| (SPADCALL (+ |p| 1) (- |q| 1) (|getShellEntry| $ 20)) $) |ISTRING;match?;2$CB;34|) (LETT |i| (PROG1 (LETT #2# (|ISTRING;position;2$2I;18| |s| |target| |i| $) |ISTRING;match?;2$CB;34|) (|check-subtype| (>= #2# 0) '(|NonNegativeInteger|) #2#)) |ISTRING;match?;2$CB;34|) (EXIT (COND ((EQL |i| (- |m| 1)) (PROGN (LETT #3# 'NIL |ISTRING;match?;2$CB;34|) (GO #3#))) ('T (SEQ (LETT |i| (+ |i| (QCSIZE |s|)) |ISTRING;match?;2$CB;34|) (LETT |p| |q| |ISTRING;match?;2$CB;34|) (EXIT (LETT |q| (PROG1 (LETT #4# (|ISTRING;position;C$2I;19| |dontcare| |pattern| (+ |q| 1) $) |ISTRING;match?;2$CB;34|) (|check-subtype| (>= #4# 0) '(|NonNegativeInteger|) #4#)) |ISTRING;match?;2$CB;34|))))))) NIL (GO G190) G191 (EXIT NIL)) (COND ((SPADCALL |p| |n| (|getShellEntry| $ 71)) (COND ((NULL (SPADCALL (SPADCALL |pattern| (SPADCALL (+ |p| 1) |n| (|getShellEntry| $ 20)) (|getShellEntry| $ 21)) |target| (|getShellEntry| $ 51))) (EXIT 'NIL))))) (EXIT 'T))))))) #3# (EXIT #3#))))) (DEFUN |IndexedString| (#0=#:G1544) (PROG () (RETURN (PROG (#1=#:G1545) (RETURN (COND ((LETT #1# (|lassocShiftWithFunction| (LIST (|devaluate| #0#)) (HGET |$ConstructorCache| '|IndexedString|) '|domainEqualList|) |IndexedString|) (|CDRwithIncrement| #1#)) ('T (UNWIND-PROTECT (PROG1 (|IndexedString;| #0#) (LETT #1# T |IndexedString|)) (COND ((NOT #1#) (HREM |$ConstructorCache| '|IndexedString|))))))))))) (DEFUN |IndexedString;| (|#1|) (PROG (|dv$1| |dv$| $ |pv$|) (RETURN (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|IndexedString|)) (LETT |dv$| (LIST '|IndexedString| |dv$1|) . #0#) (LETT $ (|newShell| 85) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (OR (AND (|HasCategory| (|Character|) '(|OrderedSet|)) (|HasCategory| (|Character|) '(|Evalable| (|Character|)))) (AND (|HasCategory| (|Character|) '(|SetCategory|)) (|HasCategory| (|Character|) '(|Evalable| (|Character|))))) (OR (|HasCategory| (|Character|) '(|CoercibleTo| (|OutputForm|))) (AND (|HasCategory| (|Character|) '(|SetCategory|)) (|HasCategory| (|Character|) '(|Evalable| (|Character|))))) (|HasCategory| (|Character|) '(|ConvertibleTo| (|InputForm|))) (OR (|HasCategory| (|Character|) '(|OrderedSet|)) (|HasCategory| (|Character|) '(|SetCategory|))) (|HasCategory| (|Character|) '(|OrderedSet|)) (|HasCategory| (|Integer|) '(|OrderedSet|)) (|HasCategory| (|Character|) '(|SetCategory|)) (AND (|HasCategory| (|Character|) '(|SetCategory|)) (|HasCategory| (|Character|) '(|Evalable| (|Character|)))) (|HasCategory| (|Character|) '(|CoercibleTo| (|OutputForm|))))) . #0#)) (|haddProp| |$ConstructorCache| '|IndexedString| (LIST |dv$1|) (CONS 1 $)) (|stuffDomainSlots| $) (|setShellEntry| $ 6 |#1|) $)))) (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;insert;2$I$;9| (|String|) (|OutputForm|) (11 . |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 . |not|) (85 . |concat|) (91 . |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| (96 . |ord|) |ISTRING;hash;$I;32| |ISTRING;match;2$CNni;33| (101 . ~=) (107 . |prefix?|) |ISTRING;match?;2$CB;34| (|List| 8) (|Equation| 8) (|List| 75) (|Mapping| 8 8 8) (|InputForm|) (|SingleInteger|) (|Mapping| 11 8) (|Mapping| 11 8 8) (|Void|) (|Union| 8 '"failed") (|List| 18)) '#(~= 113 |upperCase!| 119 |upperCase| 124 |trim| 129 |swap!| 141 |suffix?| 148 |substring?| 154 |split| 161 |sorted?| 173 |sort!| 184 |sort| 195 |size?| 206 |setelt| 212 |select| 226 |sample| 232 |rightTrim| 236 |reverse!| 248 |reverse| 253 |replace| 258 |removeDuplicates| 265 |remove| 270 |reduce| 282 |qsetelt!| 303 |qelt| 310 |prefix?| 316 |position| 322 |parts| 355 |new| 360 |more?| 366 |minIndex| 372 |min| 377 |merge| 383 |members| 396 |member?| 401 |maxIndex| 407 |max| 412 |match?| 418 |match| 425 |map!| 432 |map| 438 |lowerCase!| 451 |lowerCase| 456 |less?| 461 |leftTrim| 467 |latex| 479 |insert| 484 |indices| 498 |index?| 503 |hash| 509 |first| 519 |find| 524 |fill!| 530 |every?| 536 |eval| 542 |eq?| 568 |entry?| 574 |entries| 580 |empty?| 585 |empty| 590 |elt| 594 |delete| 619 |count| 631 |copyInto!| 643 |copy| 650 |convert| 655 |construct| 660 |concat| 665 |coerce| 688 |any?| 698 >= 704 > 710 = 716 <= 722 < 728 |#| 734) '((|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)) (CONS '#(|StringAggregate&| |OneDimensionalArrayAggregate&| |FiniteLinearAggregate&| |LinearAggregate&| |IndexedAggregate&| |Collection&| |HomogeneousAggregate&| |OrderedSet&| |Aggregate&| |EltableAggregate&| |Evalable&| |SetCategory&| NIL NIL |InnerEvalable&| NIL NIL |BasicType&|) (CONS '#((|StringAggregate|) (|OneDimensionalArrayAggregate| 8) (|FiniteLinearAggregate| 8) (|LinearAggregate| 8) (|IndexedAggregate| 18 8) (|Collection| 8) (|HomogeneousAggregate| 8) (|OrderedSet|) (|Aggregate|) (|EltableAggregate| 18 8) (|Evalable| 8) (|SetCategory|) (|Type|) (|Eltable| 18 8) (|InnerEvalable| 8 8) (|CoercibleTo| 25) (|ConvertibleTo| 78) (|BasicType|)) (|makeByteWordVec2| 84 '(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 1 11 0 0 56 2 54 0 2 0 57 1 54 0 0 58 1 8 7 0 68 2 18 11 0 0 71 2 0 11 0 0 72 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 82 0 18 18 1 2 0 11 0 0 51 3 0 11 0 0 18 46 2 0 59 0 29 61 2 0 59 0 8 60 1 5 11 0 1 2 0 11 81 0 1 1 5 0 0 1 2 0 0 81 0 1 1 5 0 0 1 2 0 0 81 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 80 0 1 0 0 0 1 2 0 0 0 8 64 2 0 0 0 29 65 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 80 0 1 4 7 8 77 0 8 8 1 3 0 8 77 0 8 1 2 0 8 77 0 1 3 0 8 0 18 8 1 2 0 8 0 18 1 2 0 11 0 0 72 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 80 0 1 1 0 74 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 81 0 0 1 1 0 74 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 73 3 0 7 0 0 8 70 2 0 0 32 0 33 3 0 0 77 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 62 2 0 0 0 29 63 1 7 24 0 38 3 0 0 8 0 18 1 3 0 0 0 0 18 23 1 0 84 0 1 2 0 11 18 0 1 1 7 79 0 1 1 0 18 0 69 1 6 8 0 1 2 0 83 80 0 1 2 0 0 0 8 1 2 0 11 80 0 1 3 8 0 0 74 74 1 3 8 0 0 8 8 1 2 8 0 0 76 1 2 8 0 0 75 1 2 0 11 0 0 1 2 7 11 8 0 1 1 0 74 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 80 0 1 3 0 0 0 0 18 66 1 0 0 0 17 1 3 78 0 1 1 0 0 74 1 1 0 0 59 67 2 0 0 0 0 16 2 0 0 0 8 1 2 0 0 8 0 1 1 9 25 0 27 1 0 0 8 1 2 0 11 80 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))))) '|lookupComplete|)) (SETQ |$CategoryFrame| (|put| '|IndexedString| '|isFunctor| '(((~= ((|Boolean|) $ $)) (|has| (|Character|) (|SetCategory|)) (ELT $ NIL)) ((= ((|Boolean|) $ $)) (|has| (|Character|) (|SetCategory|)) (ELT $ 14)) ((|coerce| ((|OutputForm|) $)) (|has| (|Character|) (|CoercibleTo| (|OutputForm|))) (ELT $ 27)) ((|hash| ((|SingleInteger|) $)) (|has| (|Character|) (|SetCategory|)) (ELT $ NIL)) ((|latex| ((|String|) $)) (|has| (|Character|) (|SetCategory|)) (ELT $ 38)) ((|hash| ((|Integer|) $)) T (ELT $ 69)) ((|elt| ($ $ $)) T (ELT $ NIL)) ((|rightTrim| ($ $ (|CharacterClass|))) T (ELT $ 65)) ((|rightTrim| ($ $ (|Character|))) T (ELT $ 64)) ((|leftTrim| ($ $ (|CharacterClass|))) T (ELT $ 63)) ((|leftTrim| ($ $ (|Character|))) T (ELT $ 62)) ((|trim| ($ $ (|CharacterClass|))) T (ELT $ NIL)) ((|trim| ($ $ (|Character|))) T (ELT $ NIL)) ((|split| ((|List| $) $ (|CharacterClass|))) T (ELT $ 61)) ((|split| ((|List| $) $ (|Character|))) T (ELT $ 60)) ((|coerce| ($ (|Character|))) T (ELT $ NIL)) ((|position| ((|Integer|) (|CharacterClass|) $ (|Integer|))) T (ELT $ 50)) ((|position| ((|Integer|) $ $ (|Integer|))) T (ELT $ 47)) ((|replace| ($ $ (|UniversalSegment| (|Integer|)) $)) T (ELT $ 44)) ((|match?| ((|Boolean|) $ $ (|Character|))) T (ELT $ 73)) ((|match| ((|NonNegativeInteger|) $ $ (|Character|))) T (ELT $ 70)) ((|substring?| ((|Boolean|) $ $ (|Integer|))) T (ELT $ 46)) ((|suffix?| ((|Boolean|) $ $)) T (ELT $ 51)) ((|prefix?| ((|Boolean|) $ $)) T (ELT $ 72)) ((|upperCase!| ($ $)) T (ELT $ 34)) ((|upperCase| ($ $)) T (ELT $ NIL)) ((|lowerCase!| ($ $)) T (ELT $ 37)) ((|lowerCase| ($ $)) T (ELT $ NIL)) ((< ((|Boolean|) $ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ 15)) ((> ((|Boolean|) $ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((>= ((|Boolean|) $ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((<= ((|Boolean|) $ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((|max| ($ $ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((|min| ($ $ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((|sort!| ($ $)) (AND (|has| $ (ATTRIBUTE |shallowlyMutable|)) (|has| (|Character|) (|OrderedSet|))) (ELT $ NIL)) ((|sort!| ($ (|Mapping| (|Boolean|) (|Character|) (|Character|)) $)) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) ((|reverse!| ($ $)) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) ((|copyInto!| ($ $ $ (|Integer|))) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 66)) ((|sorted?| ((|Boolean|) $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((|sort| ($ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((|merge| ($ $ $)) (|has| (|Character|) (|OrderedSet|)) (ELT $ NIL)) ((|position| ((|Integer|) (|Character|) $ (|Integer|))) (|has| (|Character|) (|SetCategory|)) (ELT $ 48)) ((|position| ((|Integer|) (|Character|) $)) (|has| (|Character|) (|SetCategory|)) (ELT $ NIL)) ((|position| ((|Integer|) (|Mapping| (|Boolean|) (|Character|)) $)) T (ELT $ NIL)) ((|sorted?| ((|Boolean|) (|Mapping| (|Boolean|) (|Character|) (|Character|)) $)) T (ELT $ NIL)) ((|sort| ($ (|Mapping| (|Boolean|) (|Character|) (|Character|)) $)) T (ELT $ NIL)) ((|reverse| ($ $)) T (ELT $ NIL)) ((|merge| ($ (|Mapping| (|Boolean|) (|Character|) (|Character|)) $ $)) T (ELT $ NIL)) ((|setelt| ((|Character|) $ (|UniversalSegment| (|Integer|)) (|Character|))) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) ((|insert| ($ $ $ (|Integer|))) T (ELT $ 23)) ((|insert| ($ (|Character|) $ (|Integer|))) T (ELT $ NIL)) ((|delete| ($ $ (|UniversalSegment| (|Integer|)))) T (ELT $ NIL)) ((|delete| ($ $ (|Integer|))) T (ELT $ NIL)) ((|elt| ($ $ (|UniversalSegment| (|Integer|)))) T (ELT $ 21)) ((|map| ($ (|Mapping| (|Character|) (|Character|) (|Character|)) $ $)) T (ELT $ NIL)) ((|concat| ($ (|List| $))) T (ELT $ 67)) ((|concat| ($ $ $)) T (ELT $ 16)) ((|concat| ($ (|Character|) $)) T (ELT $ NIL)) ((|concat| ($ $ (|Character|))) T (ELT $ NIL)) ((|new| ($ (|NonNegativeInteger|) (|Character|))) T (ELT $ 9)) ((|construct| ($ (|List| (|Character|)))) T (ELT $ NIL)) ((|find| ((|Union| (|Character|) "failed") (|Mapping| (|Boolean|) (|Character|)) $)) T (ELT $ NIL)) ((|reduce| ((|Character|) (|Mapping| (|Character|) (|Character|) (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|reduce| ((|Character|) (|Mapping| (|Character|) (|Character|) (|Character|)) $ (|Character|))) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|remove| ($ (|Mapping| (|Boolean|) (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|select| ($ (|Mapping| (|Boolean|) (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|reduce| ((|Character|) (|Mapping| (|Character|) (|Character|) (|Character|)) $ (|Character|) (|Character|))) (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|remove| ($ (|Character|) $)) (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|removeDuplicates| ($ $)) (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|convert| ((|InputForm|) $)) (|has| (|Character|) (|ConvertibleTo| (|InputForm|))) (ELT $ NIL)) ((|swap!| ((|Void|) $ (|Integer|) (|Integer|))) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) ((|fill!| ($ $ (|Character|))) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) ((|first| ((|Character|) $)) (|has| (|Integer|) (|OrderedSet|)) (ELT $ NIL)) ((|minIndex| ((|Integer|) $)) (|has| (|Integer|) (|OrderedSet|)) (ELT $ 28)) ((|maxIndex| ((|Integer|) $)) (|has| (|Integer|) (|OrderedSet|)) (ELT $ 42)) ((|entry?| ((|Boolean|) (|Character|) $)) (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|indices| ((|List| (|Integer|)) $)) T (ELT $ NIL)) ((|index?| ((|Boolean|) (|Integer|) $)) T (ELT $ NIL)) ((|entries| ((|List| (|Character|)) $)) T (ELT $ NIL)) ((|elt| ((|Character|) $ (|Integer|))) T (ELT $ 52)) ((|elt| ((|Character|) $ (|Integer|) (|Character|))) T (ELT $ NIL)) ((|qelt| ((|Character|) $ (|Integer|))) T (ELT $ NIL)) ((|setelt| ((|Character|) $ (|Integer|) (|Character|))) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 45)) ((|qsetelt!| ((|Character|) $ (|Integer|) (|Character|))) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ NIL)) ((|eval| ($ $ (|List| (|Character|)) (|List| (|Character|)))) (AND (|has| (|Character|) (|Evalable| (|Character|))) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|eval| ($ $ (|Character|) (|Character|))) (AND (|has| (|Character|) (|Evalable| (|Character|))) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|eval| ($ $ (|Equation| (|Character|)))) (AND (|has| (|Character|) (|Evalable| (|Character|))) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|eval| ($ $ (|List| (|Equation| (|Character|))))) (AND (|has| (|Character|) (|Evalable| (|Character|))) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|member?| ((|Boolean|) (|Character|) $)) (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|count| ((|NonNegativeInteger|) (|Character|) $)) (AND (|has| $ (ATTRIBUTE |finiteAggregate|)) (|has| (|Character|) (|SetCategory|))) (ELT $ NIL)) ((|members| ((|List| (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|parts| ((|List| (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|count| ((|NonNegativeInteger|) (|Mapping| (|Boolean|) (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|every?| ((|Boolean|) (|Mapping| (|Boolean|) (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|any?| ((|Boolean|) (|Mapping| (|Boolean|) (|Character|)) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ NIL)) ((|map!| ($ (|Mapping| (|Character|) (|Character|)) $)) (|has| $ (ATTRIBUTE |shallowlyMutable|)) (ELT $ 33)) ((|map| ($ (|Mapping| (|Character|) (|Character|)) $)) T (ELT $ NIL)) ((|#| ((|NonNegativeInteger|) $)) (|has| $ (ATTRIBUTE |finiteAggregate|)) (ELT $ 13)) ((|sample| ($)) T (CONST $ NIL)) ((|size?| ((|Boolean|) $ (|NonNegativeInteger|))) T (ELT $ NIL)) ((|more?| ((|Boolean|) $ (|NonNegativeInteger|))) T (ELT $ NIL)) ((|less?| ((|Boolean|) $ (|NonNegativeInteger|))) T (ELT $ NIL)) ((|empty?| ((|Boolean|) $)) T (ELT $ 12)) ((|empty| ($)) T (ELT $ 10)) ((|copy| ($ $)) T (ELT $ 17)) ((|eq?| ((|Boolean|) $ $)) T (ELT $ NIL))) (|addModemap| '|IndexedString| '(|IndexedString| |#1|) '((|Join| (|StringAggregate|) (CATEGORY |domain| (SIGNATURE |hash| ((|Integer|) $)))) (|Integer|)) T '|IndexedString| (|put| '|IndexedString| '|mode| '(|Mapping| (|Join| (|StringAggregate|) (CATEGORY |domain| (SIGNATURE |hash| ((|Integer|) $)))) (|Integer|)) |$CategoryFrame|))))