
(/VERSIONCHECK 2) 

(DEFUN |STACK;=;2$B;1| (|s| |t| $)
  (SPADCALL (SPADCALL |s| (QREFELT $ 9)) (SPADCALL |t| (QREFELT $ 9))
      (QREFELT $ 11))) 

(DEFUN |STACK;parts;$L;2| (|s| $) (SPADCALL |s| (QREFELT $ 9))) 

(DEFUN |STACK;map;M2$;3| (|f| |s| $)
  (SPADCALL (SPADCALL |f| (SPADCALL |s| (QREFELT $ 9)) (QREFELT $ 15))
      (QREFELT $ 16))) 

(DEFUN |STACK;map!;M2$;4| (|f| |s| $)
  (SEQ (SPADCALL |s|
           (SPADCALL |f| (SPADCALL |s| (QREFELT $ 9)) (QREFELT $ 18))
           (QREFELT $ 19))
       (EXIT |s|))) 

(DEFUN |STACK;coerce;$Of;5| (|d| $)
  (PROG (#0=#:G1825 |e| #1=#:G1826)
    (RETURN
      (SEQ (SPADCALL
               (PROGN
                 (LETT #0# NIL . #2=(|STACK;coerce;$Of;5|))
                 (SEQ (LETT |e| NIL . #2#)
                      (LETT #1# (SPADCALL |d| (QREFELT $ 9)) . #2#)
                      G190
                      (COND
                        ((OR (ATOM #1#)
                             (PROGN (LETT |e| (CAR #1#) . #2#) NIL))
                         (GO G191)))
                      (SEQ (EXIT (LETT #0#
                                       (CONS
                                        (SPADCALL |e| (QREFELT $ 22))
                                        #0#) . #2#)))
                      (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                      (EXIT (NREVERSE0 #0#))))
               (QREFELT $ 24)))))) 

(DEFUN |STACK;copy;2$;6| (|s| $)
  (SPADCALL (SPADCALL (SPADCALL |s| (QREFELT $ 9)) (QREFELT $ 26))
      (QREFELT $ 16))) 

(DEFUN |STACK;depth;$Nni;7| (|s| $)
  (LENGTH (SPADCALL |s| (QREFELT $ 9)))) 

(DEFUN |STACK;#;$Nni;8| (|s| $) (SPADCALL |s| (QREFELT $ 29))) 

(DEFUN |STACK;pop!;$S;9| (|s| $)
  (PROG (|e|)
    (RETURN
      (SEQ (COND
             ((SPADCALL |s| (QREFELT $ 31)) (|error| "empty stack"))
             ('T
              (SEQ (LETT |e| (|SPADfirst| (SPADCALL |s| (QREFELT $ 9)))
                         |STACK;pop!;$S;9|)
                   (SPADCALL |s| (CDR (SPADCALL |s| (QREFELT $ 9)))
                       (QREFELT $ 19))
                   (EXIT |e|)))))))) 

(DEFUN |STACK;extract!;$S;10| (|s| $) (SPADCALL |s| (QREFELT $ 32))) 

(DEFUN |STACK;top;$S;11| (|s| $)
  (COND
    ((SPADCALL |s| (QREFELT $ 31)) (|error| "empty stack"))
    ('T (|SPADfirst| (SPADCALL |s| (QREFELT $ 9)))))) 

(DEFUN |STACK;inspect;$S;12| (|s| $) (SPADCALL |s| (QREFELT $ 34))) 

(DEFUN |STACK;push!;S$S;13| (|e| |s| $)
  (SEQ (SPADCALL |s| (CONS |e| (SPADCALL |s| (QREFELT $ 9)))
           (QREFELT $ 19))
       (EXIT |e|))) 

(DEFUN |STACK;insert!;S2$;14| (|e| |s| $)
  (SEQ (SPADCALL |e| |s| (QREFELT $ 36)) (EXIT |s|))) 

(DEFUN |STACK;empty;$;15| ($) (SPADCALL NIL (QREFELT $ 16))) 

(DEFUN |STACK;empty?;$B;16| (|s| $)
  (NULL (SPADCALL |s| (QREFELT $ 9)))) 

(DEFUN |STACK;stack;L$;17| (|s| $)
  (SPADCALL (SPADCALL |s| (QREFELT $ 26)) (QREFELT $ 16))) 

(DEFUN |Stack| (#0=#:G1846)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1847)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                       (HGET |$ConstructorCache| '|Stack|)
                       '|domainEqualList|)
                   . #2=(|Stack|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (|Stack;| #0#) (LETT #1# T . #2#))
               (COND ((NOT #1#) (HREM |$ConstructorCache| '|Stack|))))))))))) 

(DEFUN |Stack;| (|#1|)
  (PROG (DV$1 |dv$| $ #0=#:G1845 |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #1=(|Stack|))
        (LETT |dv$| (LIST '|Stack| DV$1) . #1#)
        (LETT $ (GETREFV 45) . #1#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3
            (LETT |pv$|
                  (|buildPredVector| 0 0
                      (LIST (LETT #0#
                                  (|HasCategory| |#1| '(|SetCategory|)) . #1#)
                            (AND #0#
                                 (|HasCategory| |#1|
                                     (LIST '|Evalable|
                                      (|devaluate| |#1|)))))) . #1#))
        (|haddProp| |$ConstructorCache| '|Stack| (LIST DV$1)
            (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (AND (|HasCategory| $ '(|shallowlyMutable|))
             (|augmentPredVector| $ 4))
        (AND (|HasCategory| $ '(|finiteAggregate|))
             (|augmentPredVector| $ 8))
        (AND (|HasCategory| $ '(|finiteAggregate|)) #0#
             (|augmentPredVector| $ 16))
        (QSETREFV $ 7 (|Reference| (|List| |#1|)))
        $)))) 

(MAKEPROP '|Stack| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|Rep| (|List| 6)
             (0 . |deref|) (|Boolean|) (5 . =) |STACK;=;2$B;1|
             |STACK;parts;$L;2| (|Mapping| 6 6) (11 . |map|)
             (17 . |ref|) |STACK;map;M2$;3| (22 . |map!|)
             (28 . |setref|) |STACK;map!;M2$;4| (|OutputForm|)
             (34 . |coerce|) (|List| $) (39 . |bracket|)
             |STACK;coerce;$Of;5| (44 . |copy|) |STACK;copy;2$;6|
             (|NonNegativeInteger|) |STACK;depth;$Nni;7|
             |STACK;#;$Nni;8| |STACK;empty?;$B;16| |STACK;pop!;$S;9|
             |STACK;extract!;$S;10| |STACK;top;$S;11|
             |STACK;inspect;$S;12| |STACK;push!;S$S;13|
             |STACK;insert!;S2$;14| |STACK;empty;$;15|
             |STACK;stack;L$;17| (|List| 41) (|Equation| 6)
             (|Mapping| 10 6) (|SingleInteger|) (|String|))
          '#(~= 49 |top| 55 |stack| 60 |size?| 65 |sample| 71 |push!|
             75 |pop!| 81 |parts| 86 |more?| 91 |members| 97 |member?|
             102 |map!| 108 |map| 114 |less?| 120 |latex| 126 |inspect|
             131 |insert!| 136 |hash| 142 |extract!| 147 |every?| 152
             |eval| 158 |eq?| 184 |empty?| 190 |empty| 195 |depth| 199
             |count| 204 |copy| 216 |coerce| 221 |bag| 226 |any?| 231 =
             237 |#| 243)
          'NIL
          (CONS (|makeByteWordVec2| 2 '(0 0 0 0 2 1 0 0 0 2 1 1))
                (CONS '#(NIL |BagAggregate&| |HomogeneousAggregate&|
                         |Aggregate&| |Evalable&| |SetCategory&| NIL
                         NIL NIL |InnerEvalable&| |BasicType&| NIL)
                      (CONS '#((|StackAggregate| 6) (|BagAggregate| 6)
                               (|HomogeneousAggregate| 6) (|Aggregate|)
                               (|Evalable| 6) (|SetCategory|) (|Type|)
                               (|finiteAggregate|) (|shallowlyMutable|)
                               (|InnerEvalable| 6 6) (|BasicType|)
                               (|CoercibleTo| 21))
                            (|makeByteWordVec2| 44
                                '(1 7 8 0 9 2 8 10 0 0 11 2 8 0 14 0 15
                                  1 7 0 8 16 2 8 0 14 0 18 2 7 8 0 8 19
                                  1 6 21 0 22 1 21 0 23 24 1 8 0 0 26 2
                                  1 10 0 0 1 1 0 6 0 34 1 0 0 8 39 2 0
                                  10 0 28 1 0 0 0 1 2 0 6 6 0 36 1 0 6
                                  0 32 1 4 8 0 13 2 0 10 0 28 1 1 4 8 0
                                  1 2 5 10 6 0 1 2 3 0 14 0 20 2 0 0 14
                                  0 17 2 0 10 0 28 1 1 1 44 0 1 1 0 6 0
                                  35 2 0 0 6 0 37 1 1 43 0 1 1 0 6 0 33
                                  2 4 10 42 0 1 3 2 0 0 8 8 1 3 2 0 0 6
                                  6 1 2 2 0 0 40 1 2 2 0 0 41 1 2 0 10
                                  0 0 1 1 0 10 0 31 0 0 0 38 1 0 28 0
                                  29 2 5 28 6 0 1 2 4 28 42 0 1 1 0 0 0
                                  27 1 1 21 0 25 1 0 0 8 1 2 4 10 42 0
                                  1 2 1 10 0 0 12 1 4 28 0 30)))))
          '|lookupComplete|)) 
