(/VERSIONCHECK 2) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;elt;AfirstS;1|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;elt;AlastS;2|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;elt;ArestA;3|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;second;AS;4|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;third;AS;5|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Boolean|) |URAGG-;cyclic?;AB;6|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;last;AS;7|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%List|) |URAGG-;nodes;AL;8|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%List|) |URAGG-;children;AL;9|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Boolean|) |URAGG-;leaf?;AB;10|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;value;AS;11|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| (|%IntegerSection| 0) |%Shell|) |%Boolean|) |URAGG-;less?;ANniB;12|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| (|%IntegerSection| 0) |%Shell|) |%Boolean|) |URAGG-;more?;ANniB;13|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| (|%IntegerSection| 0) |%Shell|) |%Boolean|) |URAGG-;size?;ANniB;14|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) (|%IntegerSection| 0)) |URAGG-;#;ANni;15|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;tail;2A;16|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;findCycle|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;cycleTail;2A;18|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;cycleEntry;2A;19|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) (|%IntegerSection| 0)) |URAGG-;cycleLength;ANni;20|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| (|%IntegerSection| 0) |%Shell|) |%Thing|) |URAGG-;rest;ANniA;21|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| (|%IntegerSection| 0) |%Shell|) |%Thing|) |URAGG-;last;ANniA;22|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Boolean|) |URAGG-;=;2AB;23|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Boolean|) |URAGG-;node?;2AB;24|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;setelt;Afirst2S;25|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;setelt;Alast2S;26|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;setelt;Arest2A;27|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;concat;3A;28|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;setlast!;A2S;29|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%List| |%Shell|) |%Thing|) |URAGG-;setchildren!;ALA;30|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Thing| |%Shell|) |%Thing|) |URAGG-;setvalue!;A2S;31|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Integer| |%Shell|) |%Thing|) |URAGG-;split!;AIA;32|)) (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Thing|) |URAGG-;cycleSplit!;2A;33|)) (DEFUN |URAGG-;elt;AfirstS;1| (|x| T0 $) (SPADCALL |x| (|getShellEntry| $ 8))) (DEFUN |URAGG-;elt;AlastS;2| (|x| T1 $) (SPADCALL |x| (|getShellEntry| $ 11))) (DEFUN |URAGG-;elt;ArestA;3| (|x| T2 $) (SPADCALL |x| (|getShellEntry| $ 14))) (DEFUN |URAGG-;second;AS;4| (|x| $) (SPADCALL (SPADCALL |x| (|getShellEntry| $ 14)) (|getShellEntry| $ 8))) (DEFUN |URAGG-;third;AS;5| (|x| $) (SPADCALL (SPADCALL (SPADCALL |x| (|getShellEntry| $ 14)) (|getShellEntry| $ 14)) (|getShellEntry| $ 8))) (DEFUN |URAGG-;cyclic?;AB;6| (|x| $) (COND ((SPADCALL |x| (|getShellEntry| $ 20)) 'NIL) ('T (NOT (SPADCALL (|URAGG-;findCycle| |x| $) (|getShellEntry| $ 20)))))) (DEFUN |URAGG-;last;AS;7| (|x| $) (SPADCALL (SPADCALL |x| (|getShellEntry| $ 23)) (|getShellEntry| $ 8))) (DEFUN |URAGG-;nodes;AL;8| (|x| $) (PROG (|l|) (RETURN (SEQ (LETT |l| NIL |URAGG-;nodes;AL;8|) (SEQ G190 (COND ((NULL (NOT (SPADCALL |x| (|getShellEntry| $ 20)))) (GO G191))) (SEQ (LETT |l| (CONS |x| |l|) |URAGG-;nodes;AL;8|) (EXIT (LETT |x| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;nodes;AL;8|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (NREVERSE |l|)))))) (DEFUN |URAGG-;children;AL;9| (|x| $) (PROG (|l|) (RETURN (SEQ (LETT |l| NIL |URAGG-;children;AL;9|) (EXIT (COND ((SPADCALL |x| (|getShellEntry| $ 20)) |l|) ('T (CONS (SPADCALL |x| (|getShellEntry| $ 14)) |l|)))))))) (DEFUN |URAGG-;leaf?;AB;10| (|x| $) (SPADCALL |x| (|getShellEntry| $ 20))) (DEFUN |URAGG-;value;AS;11| (|x| $) (COND ((SPADCALL |x| (|getShellEntry| $ 20)) (|error| "value of empty object")) ('T (SPADCALL |x| (|getShellEntry| $ 8))))) (DEFUN |URAGG-;less?;ANniB;12| (|l| |n| $) (PROG (|i|) (RETURN (SEQ (LETT |i| |n| |URAGG-;less?;ANniB;12|) (SEQ G190 (COND ((NULL (COND ((< 0 |i|) (NOT (SPADCALL |l| (|getShellEntry| $ 20)))) ('T 'NIL))) (GO G191))) (SEQ (LETT |l| (SPADCALL |l| (|getShellEntry| $ 14)) |URAGG-;less?;ANniB;12|) (EXIT (LETT |i| (- |i| 1) |URAGG-;less?;ANniB;12|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (< 0 |i|)))))) (DEFUN |URAGG-;more?;ANniB;13| (|l| |n| $) (PROG (|i|) (RETURN (SEQ (LETT |i| |n| |URAGG-;more?;ANniB;13|) (SEQ G190 (COND ((NULL (COND ((< 0 |i|) (NOT (SPADCALL |l| (|getShellEntry| $ 20)))) ('T 'NIL))) (GO G191))) (SEQ (LETT |l| (SPADCALL |l| (|getShellEntry| $ 14)) |URAGG-;more?;ANniB;13|) (EXIT (LETT |i| (- |i| 1) |URAGG-;more?;ANniB;13|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (COND ((ZEROP |i|) (NOT (SPADCALL |l| (|getShellEntry| $ 20)))) ('T 'NIL))))))) (DEFUN |URAGG-;size?;ANniB;14| (|l| |n| $) (PROG (|i|) (RETURN (SEQ (LETT |i| |n| |URAGG-;size?;ANniB;14|) (SEQ G190 (COND ((NULL (COND ((SPADCALL |l| (|getShellEntry| $ 20)) 'NIL) ('T (< 0 |i|)))) (GO G191))) (SEQ (LETT |l| (SPADCALL |l| (|getShellEntry| $ 14)) |URAGG-;size?;ANniB;14|) (EXIT (LETT |i| (- |i| 1) |URAGG-;size?;ANniB;14|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT (COND ((SPADCALL |l| (|getShellEntry| $ 20)) (ZEROP |i|)) ('T 'NIL))))))) (DEFUN |URAGG-;#;ANni;15| (|x| $) (PROG (|k|) (RETURN (SEQ (SEQ (LETT |k| 0 |URAGG-;#;ANni;15|) G190 (COND ((NULL (NOT (SPADCALL |x| (|getShellEntry| $ 20)))) (GO G191))) (SEQ (COND ((EQL |k| 1000) (COND ((SPADCALL |x| (|getShellEntry| $ 49)) (EXIT (|error| "cyclic list")))))) (EXIT (LETT |x| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;#;ANni;15|))) (LETT |k| (QSADD1 |k|) |URAGG-;#;ANni;15|) (GO G190) G191 (EXIT NIL)) (EXIT |k|))))) (DEFUN |URAGG-;tail;2A;16| (|x| $) (PROG (|k| |y|) (RETURN (SEQ (COND ((SPADCALL |x| (|getShellEntry| $ 20)) (|error| "empty list")) ('T (SEQ (LETT |y| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;tail;2A;16|) (SEQ (LETT |k| 0 |URAGG-;tail;2A;16|) G190 (COND ((NULL (NOT (SPADCALL |y| (|getShellEntry| $ 20)))) (GO G191))) (SEQ (COND ((EQL |k| 1000) (COND ((SPADCALL |x| (|getShellEntry| $ 49)) (EXIT (|error| "cyclic list")))))) (EXIT (LETT |y| (SPADCALL (LETT |x| |y| |URAGG-;tail;2A;16|) (|getShellEntry| $ 14)) |URAGG-;tail;2A;16|))) (LETT |k| (QSADD1 |k|) |URAGG-;tail;2A;16|) (GO G190) G191 (EXIT NIL)) (EXIT |x|)))))))) (DEFUN |URAGG-;findCycle| (|x| $) (PROG (#0=#:G1476 |y|) (RETURN (SEQ (EXIT (SEQ (LETT |y| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;findCycle|) (SEQ G190 (COND ((NULL (NOT (SPADCALL |y| (|getShellEntry| $ 20)))) (GO G191))) (SEQ (COND ((SPADCALL |x| |y| (|getShellEntry| $ 52)) (PROGN (LETT #0# |x| |URAGG-;findCycle|) (GO #0#)))) (LETT |x| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;findCycle|) (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;findCycle|) (COND ((SPADCALL |y| (|getShellEntry| $ 20)) (PROGN (LETT #0# |y| |URAGG-;findCycle|) (GO #0#)))) (COND ((SPADCALL |x| |y| (|getShellEntry| $ 52)) (PROGN (LETT #0# |y| |URAGG-;findCycle|) (GO #0#)))) (EXIT (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;findCycle|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |y|))) #0# (EXIT #0#))))) (DEFUN |URAGG-;cycleTail;2A;18| (|x| $) (PROG (|y| |z|) (RETURN (SEQ (COND ((SPADCALL (LETT |y| (LETT |x| (SPADCALL |x| (|getShellEntry| $ 53)) |URAGG-;cycleTail;2A;18|) |URAGG-;cycleTail;2A;18|) (|getShellEntry| $ 20)) |x|) ('T (SEQ (LETT |z| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;cycleTail;2A;18|) (SEQ G190 (COND ((NULL (NOT (SPADCALL |x| |z| (|getShellEntry| $ 52)))) (GO G191))) (SEQ (LETT |y| |z| |URAGG-;cycleTail;2A;18|) (EXIT (LETT |z| (SPADCALL |z| (|getShellEntry| $ 14)) |URAGG-;cycleTail;2A;18|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |y|)))))))) (DEFUN |URAGG-;cycleEntry;2A;19| (|x| $) (PROG (|l| |z| |k| |y|) (RETURN (SEQ (COND ((SPADCALL |x| (|getShellEntry| $ 20)) |x|) ((SPADCALL (LETT |y| (|URAGG-;findCycle| |x| $) |URAGG-;cycleEntry;2A;19|) (|getShellEntry| $ 20)) |y|) ('T (SEQ (LETT |z| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;cycleEntry;2A;19|) (SEQ (LETT |l| 1 |URAGG-;cycleEntry;2A;19|) G190 (COND ((NULL (NOT (SPADCALL |y| |z| (|getShellEntry| $ 52)))) (GO G191))) (SEQ (EXIT (LETT |z| (SPADCALL |z| (|getShellEntry| $ 14)) |URAGG-;cycleEntry;2A;19|))) (LETT |l| (QSADD1 |l|) |URAGG-;cycleEntry;2A;19|) (GO G190) G191 (EXIT NIL)) (LETT |y| |x| |URAGG-;cycleEntry;2A;19|) (SEQ (LETT |k| 1 |URAGG-;cycleEntry;2A;19|) G190 (COND ((QSGREATERP |k| |l|) (GO G191))) (SEQ (EXIT (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;cycleEntry;2A;19|))) (LETT |k| (QSADD1 |k|) |URAGG-;cycleEntry;2A;19|) (GO G190) G191 (EXIT NIL)) (SEQ G190 (COND ((NULL (NOT (SPADCALL |x| |y| (|getShellEntry| $ 52)))) (GO G191))) (SEQ (LETT |x| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;cycleEntry;2A;19|) (EXIT (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;cycleEntry;2A;19|))) NIL (GO G190) G191 (EXIT NIL)) (EXIT |x|)))))))) (DEFUN |URAGG-;cycleLength;ANni;20| (|x| $) (PROG (|k| |y|) (RETURN (SEQ (COND ((OR (SPADCALL |x| (|getShellEntry| $ 20)) (SPADCALL (LETT |x| (|URAGG-;findCycle| |x| $) |URAGG-;cycleLength;ANni;20|) (|getShellEntry| $ 20))) 0) ('T (SEQ (LETT |y| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;cycleLength;ANni;20|) (SEQ (LETT |k| 1 |URAGG-;cycleLength;ANni;20|) G190 (COND ((NULL (NOT (SPADCALL |x| |y| (|getShellEntry| $ 52)))) (GO G191))) (SEQ (EXIT (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;cycleLength;ANni;20|))) (LETT |k| (QSADD1 |k|) |URAGG-;cycleLength;ANni;20|) (GO G190) G191 (EXIT NIL)) (EXIT |k|)))))))) (DEFUN |URAGG-;rest;ANniA;21| (|x| |n| $) (PROG (|i|) (RETURN (SEQ (SEQ (LETT |i| 1 |URAGG-;rest;ANniA;21|) G190 (COND ((QSGREATERP |i| |n|) (GO G191))) (SEQ (EXIT (COND ((SPADCALL |x| (|getShellEntry| $ 20)) (|error| "Index out of range")) ('T (LETT |x| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;rest;ANniA;21|))))) (LETT |i| (QSADD1 |i|) |URAGG-;rest;ANniA;21|) (GO G190) G191 (EXIT NIL)) (EXIT |x|))))) (DEFUN |URAGG-;last;ANniA;22| (|x| |n| $) (PROG (|m| #0=#:G1499) (RETURN (SEQ (LETT |m| (SPADCALL |x| (|getShellEntry| $ 59)) |URAGG-;last;ANniA;22|) (EXIT (COND ((< |m| |n|) (|error| "index out of range")) ('T (SPADCALL (SPADCALL |x| (PROG1 (LETT #0# (- |m| |n|) |URAGG-;last;ANniA;22|) (|check-subtype| (COND ((< #0# 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) #0#)) (|getShellEntry| $ 61)) (|getShellEntry| $ 62))))))))) (DEFUN |URAGG-;=;2AB;23| (|x| |y| $) (PROG (|k| #0=#:G1509) (RETURN (SEQ (EXIT (COND ((SPADCALL |x| |y| (|getShellEntry| $ 52)) 'T) ('T (SEQ (SEQ (LETT |k| 0 |URAGG-;=;2AB;23|) G190 (COND ((NULL (COND ((SPADCALL |x| (|getShellEntry| $ 20)) 'NIL) ('T (NOT (SPADCALL |y| (|getShellEntry| $ 20)))))) (GO G191))) (SEQ (COND ((EQL |k| 1000) (COND ((SPADCALL |x| (|getShellEntry| $ 49)) (EXIT (|error| "cyclic list")))))) (EXIT (COND ((SPADCALL (SPADCALL |x| (|getShellEntry| $ 8)) (SPADCALL |y| (|getShellEntry| $ 8)) (|getShellEntry| $ 65)) (PROGN (LETT #0# 'NIL |URAGG-;=;2AB;23|) (GO #0#))) ('T (SEQ (LETT |x| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;=;2AB;23|) (EXIT (LETT |y| (SPADCALL |y| (|getShellEntry| $ 14)) |URAGG-;=;2AB;23|))))))) (LETT |k| (QSADD1 |k|) |URAGG-;=;2AB;23|) (GO G190) G191 (EXIT NIL)) (EXIT (COND ((SPADCALL |x| (|getShellEntry| $ 20)) (SPADCALL |y| (|getShellEntry| $ 20))) ('T 'NIL))))))) #0# (EXIT #0#))))) (DEFUN |URAGG-;node?;2AB;24| (|u| |v| $) (PROG (|k| #0=#:G1514) (RETURN (SEQ (EXIT (SEQ (SEQ (LETT |k| 0 |URAGG-;node?;2AB;24|) G190 (COND ((NULL (NOT (SPADCALL |v| (|getShellEntry| $ 20)))) (GO G191))) (SEQ (EXIT (COND ((SPADCALL |u| |v| (|getShellEntry| $ 67)) (PROGN (LETT #0# 'T |URAGG-;node?;2AB;24|) (GO #0#))) ('T (SEQ (COND ((EQL |k| 1000) (COND ((SPADCALL |v| (|getShellEntry| $ 49)) (EXIT (|error| "cyclic list")))))) (EXIT (LETT |v| (SPADCALL |v| (|getShellEntry| $ 14)) |URAGG-;node?;2AB;24|))))))) (LETT |k| (QSADD1 |k|) |URAGG-;node?;2AB;24|) (GO G190) G191 (EXIT NIL)) (EXIT (SPADCALL |u| |v| (|getShellEntry| $ 67))))) #0# (EXIT #0#))))) (DEFUN |URAGG-;setelt;Afirst2S;25| (|x| T3 |a| $) (SPADCALL |x| |a| (|getShellEntry| $ 69))) (DEFUN |URAGG-;setelt;Alast2S;26| (|x| T4 |a| $) (SPADCALL |x| |a| (|getShellEntry| $ 71))) (DEFUN |URAGG-;setelt;Arest2A;27| (|x| T5 |a| $) (SPADCALL |x| |a| (|getShellEntry| $ 73))) (DEFUN |URAGG-;concat;3A;28| (|x| |y| $) (SPADCALL (SPADCALL |x| (|getShellEntry| $ 62)) |y| (|getShellEntry| $ 75))) (DEFUN |URAGG-;setlast!;A2S;29| (|x| |s| $) (SEQ (COND ((SPADCALL |x| (|getShellEntry| $ 20)) (|error| "setlast: empty list")) ('T (SEQ (SPADCALL (SPADCALL |x| (|getShellEntry| $ 23)) |s| (|getShellEntry| $ 69)) (EXIT |s|)))))) (DEFUN |URAGG-;setchildren!;ALA;30| (|u| |lv| $) (COND ((EQL (LENGTH |lv|) 1) (SPADCALL |u| (|SPADfirst| |lv|) (|getShellEntry| $ 73))) ('T (|error| "wrong number of children specified")))) (DEFUN |URAGG-;setvalue!;A2S;31| (|u| |s| $) (SPADCALL |u| |s| (|getShellEntry| $ 69))) (DEFUN |URAGG-;split!;AIA;32| (|p| |n| $) (PROG (#0=#:G1525 |q|) (RETURN (SEQ (COND ((< |n| 1) (|error| "index out of range")) ('T (SEQ (LETT |p| (SPADCALL |p| (PROG1 (LETT #0# (- |n| 1) |URAGG-;split!;AIA;32|) (|check-subtype| (COND ((< #0# 0) 'NIL) ('T 'T)) '(|NonNegativeInteger|) #0#)) (|getShellEntry| $ 61)) |URAGG-;split!;AIA;32|) (LETT |q| (SPADCALL |p| (|getShellEntry| $ 14)) |URAGG-;split!;AIA;32|) (SPADCALL |p| (SPADCALL (|getShellEntry| $ 82)) (|getShellEntry| $ 73)) (EXIT |q|)))))))) (DEFUN |URAGG-;cycleSplit!;2A;33| (|x| $) (PROG (|y| |z|) (RETURN (SEQ (COND ((OR (SPADCALL (LETT |y| (SPADCALL |x| (|getShellEntry| $ 53)) |URAGG-;cycleSplit!;2A;33|) (|getShellEntry| $ 20)) (SPADCALL |x| |y| (|getShellEntry| $ 52))) |y|) ('T (SEQ (LETT |z| (SPADCALL |x| (|getShellEntry| $ 14)) |URAGG-;cycleSplit!;2A;33|) (SEQ G190 (COND ((NULL (NOT (SPADCALL |z| |y| (|getShellEntry| $ 52)))) (GO G191))) (SEQ (LETT |x| |z| |URAGG-;cycleSplit!;2A;33|) (EXIT (LETT |z| (SPADCALL |z| (|getShellEntry| $ 14)) |URAGG-;cycleSplit!;2A;33|))) NIL (GO G190) G191 (EXIT NIL)) (SPADCALL |x| (SPADCALL (|getShellEntry| $ 82)) (|getShellEntry| $ 73)) (EXIT |y|)))))))) (DEFUN |UnaryRecursiveAggregate&| (|#1| |#2|) (PROG (|dv$1| |dv$2| |dv$| $ |pv$|) (RETURN (PROGN (LETT |dv$1| (|devaluate| |#1|) . #0=(|UnaryRecursiveAggregate&|)) (LETT |dv$2| (|devaluate| |#2|) . #0#) (LETT |dv$| (LIST '|UnaryRecursiveAggregate&| |dv$1| |dv$2|) . #0#) (LETT $ (|newShell| 86) . #0#) (|setShellEntry| $ 0 |dv$|) (|setShellEntry| $ 3 (LETT |pv$| (|buildPredVector| 0 0 (LIST (|HasAttribute| |#1| '|shallowlyMutable|))) . #0#)) (|stuffDomainSlots| $) (|setShellEntry| $ 6 |#1|) (|setShellEntry| $ 7 |#2|) (COND ((|HasAttribute| |#1| '|finiteAggregate|) (|setShellEntry| $ 63 (CONS (|dispatchFunction| |URAGG-;last;ANniA;22|) $)))) (COND ((|HasCategory| |#2| '(|SetCategory|)) (PROGN (|setShellEntry| $ 66 (CONS (|dispatchFunction| |URAGG-;=;2AB;23|) $)) (|setShellEntry| $ 68 (CONS (|dispatchFunction| |URAGG-;node?;2AB;24|) $))))) (COND ((|testBitVector| |pv$| 1) (PROGN (|setShellEntry| $ 70 (CONS (|dispatchFunction| |URAGG-;setelt;Afirst2S;25|) $)) (|setShellEntry| $ 72 (CONS (|dispatchFunction| |URAGG-;setelt;Alast2S;26|) $)) (|setShellEntry| $ 74 (CONS (|dispatchFunction| |URAGG-;setelt;Arest2A;27|) $)) (|setShellEntry| $ 76 (CONS (|dispatchFunction| |URAGG-;concat;3A;28|) $)) (|setShellEntry| $ 77 (CONS (|dispatchFunction| |URAGG-;setlast!;A2S;29|) $)) (|setShellEntry| $ 80 (CONS (|dispatchFunction| |URAGG-;setchildren!;ALA;30|) $)) (|setShellEntry| $ 81 (CONS (|dispatchFunction| |URAGG-;setvalue!;A2S;31|) $)) (|setShellEntry| $ 83 (CONS (|dispatchFunction| |URAGG-;split!;AIA;32|) $)) (|setShellEntry| $ 84 (CONS (|dispatchFunction| |URAGG-;cycleSplit!;2A;33|) $))))) $)))) (MAKEPROP '|UnaryRecursiveAggregate&| '|infovec| (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) (0 . |first|) '"first" |URAGG-;elt;AfirstS;1| (5 . |last|) '"last" |URAGG-;elt;AlastS;2| (10 . |rest|) '"rest" |URAGG-;elt;ArestA;3| |URAGG-;second;AS;4| |URAGG-;third;AS;5| (|Boolean|) (15 . |empty?|) (20 . |false|) |URAGG-;cyclic?;AB;6| (24 . |tail|) |URAGG-;last;AS;7| (|List| 6) (29 . |empty|) (33 . |concat|) (39 . |reverse!|) (|List| $) |URAGG-;nodes;AL;8| |URAGG-;children;AL;9| |URAGG-;leaf?;AB;10| |URAGG-;value;AS;11| (|NonNegativeInteger|) (44 . |Zero|) (|Integer|) (48 . |Zero|) (52 . <) (58 . |One|) (62 . |One|) (66 . -) |URAGG-;less?;ANniB;12| (72 . |zero?|) |URAGG-;more?;ANniB;13| |URAGG-;size?;ANniB;14| (|SingleInteger|) (77 . |Zero|) (81 . =) (87 . |cyclic?|) |URAGG-;#;ANni;15| |URAGG-;tail;2A;16| (92 . |eq?|) (98 . |cycleEntry|) |URAGG-;cycleTail;2A;18| (103 . |One|) |URAGG-;cycleEntry;2A;19| |URAGG-;cycleLength;ANni;20| |URAGG-;rest;ANniA;21| (107 . |#|) (112 . <) (118 . |rest|) (124 . |copy|) (129 . |last|) (135 . |true|) (139 . ~=) (145 . =) (151 . =) (157 . |node?|) (163 . |setfirst!|) (169 . |setelt|) (176 . |setlast!|) (182 . |setelt|) (189 . |setrest!|) (195 . |setelt|) (202 . |concat!|) (208 . |concat|) (214 . |setlast!|) (220 . |#|) (225 . |first|) (230 . |setchildren!|) (236 . |setvalue!|) (242 . |empty|) (246 . |split!|) (252 . |cycleSplit!|) '"value") '#(|value| 257 |third| 262 |tail| 267 |split!| 272 |size?| 278 |setvalue!| 284 |setlast!| 290 |setelt| 296 |setchildren!| 317 |second| 323 |rest| 328 |nodes| 334 |node?| 339 |more?| 345 |less?| 351 |leaf?| 357 |last| 362 |elt| 373 |cyclic?| 391 |cycleTail| 396 |cycleSplit!| 401 |cycleLength| 406 |cycleEntry| 411 |concat| 416 |children| 422 = 427 |#| 433) 'NIL (CONS (|makeByteWordVec2| 1 'NIL) (CONS '#() (CONS '#() (|makeByteWordVec2| 84 '(1 6 7 0 8 1 6 7 0 11 1 6 0 0 14 1 6 19 0 20 0 19 0 21 1 6 0 0 23 0 25 0 26 2 25 0 6 0 27 1 25 0 0 28 0 34 0 35 0 36 0 37 2 36 19 0 0 38 0 34 0 39 0 36 0 40 2 36 0 0 0 41 1 36 19 0 43 0 46 0 47 2 34 19 0 0 48 1 6 19 0 49 2 6 19 0 0 52 1 6 0 0 53 0 46 0 55 1 6 34 0 59 2 34 19 0 0 60 2 6 0 0 34 61 1 6 0 0 62 2 0 0 0 34 63 0 19 0 64 2 7 19 0 0 65 2 0 19 0 0 66 2 6 19 0 0 67 2 0 19 0 0 68 2 6 7 0 7 69 3 0 7 0 9 7 70 2 6 7 0 7 71 3 0 7 0 12 7 72 2 6 0 0 0 73 3 0 0 0 15 0 74 2 6 0 0 0 75 2 0 0 0 0 76 2 0 7 0 7 77 1 25 34 0 78 1 25 6 0 79 2 0 0 0 29 80 2 0 7 0 7 81 0 6 0 82 2 0 0 0 36 83 1 0 0 0 84 1 0 7 0 33 1 0 7 0 18 1 0 0 0 51 2 0 0 0 36 83 2 0 19 0 34 45 2 0 7 0 7 81 2 0 7 0 7 77 3 0 7 0 12 7 72 3 0 0 0 15 0 74 3 0 7 0 9 7 70 2 0 0 0 29 80 1 0 7 0 17 2 0 0 0 34 58 1 0 29 0 30 2 0 19 0 0 68 2 0 19 0 34 44 2 0 19 0 34 42 1 0 19 0 32 2 0 0 0 34 63 1 0 7 0 24 2 0 7 0 12 13 2 0 0 0 15 16 2 0 7 0 9 10 1 0 19 0 22 1 0 0 0 54 1 0 0 0 84 1 0 34 0 57 1 0 0 0 56 2 0 0 0 0 76 1 0 29 0 31 2 0 19 0 0 66 1 0 34 0 50))))) '|lookupComplete|))