
(/VERSIONCHECK 2) 

(DEFUN |GOPT;maxLevel;U$;1| (|d| $)
  (CONS '|maxLevel| (SPADCALL |d| (QREFELT $ 10)))) 

(DEFUN |GOPT;maxDerivative;U$;2| (|d| $)
  (CONS '|maxDerivative| (SPADCALL |d| (QREFELT $ 10)))) 

(DEFUN |GOPT;maxShift;U$;3| (|d| $) (SPADCALL |d| (QREFELT $ 12))) 

(DEFUN |GOPT;maxSubst;U$;4| (|d| $)
  (PROG (#1=#:G1991)
    (RETURN
     (COND
      ((QEQCAR |d| 0)
       (SPADCALL
        (CONS 0
              (PROG1 (LETT #1# (- (QCDR |d|) 1) |GOPT;maxSubst;U$;4|)
                (|check-subtype| (>= #1# 0) '(|NonNegativeInteger|) #1#)))
        (QREFELT $ 12)))
      ('T (SPADCALL (CONS 1 (QCDR |d|)) (QREFELT $ 12))))))) 

(DEFUN |GOPT;maxDegree;U$;5| (|d| $)
  (CONS '|maxDegree| (SPADCALL |d| (QREFELT $ 10)))) 

(DEFUN |GOPT;maxMixedDegree;Nni$;6| (|d| $)
  (CONS '|maxMixedDegree| (SPADCALL |d| (QREFELT $ 19)))) 

(DEFUN |GOPT;allDegrees;B$;7| (|d| $)
  (CONS '|allDegrees| (SPADCALL |d| (QREFELT $ 23)))) 

(DEFUN |GOPT;maxPower;U$;8| (|d| $)
  (CONS '|maxPower| (SPADCALL |d| (QREFELT $ 26)))) 

(DEFUN |GOPT;safety;Nni$;9| (|d| $)
  (CONS '|safety| (SPADCALL |d| (QREFELT $ 19)))) 

(DEFUN |GOPT;MonteCarlo;B$;10| (|d| $)
  (CONS '|MonteCarlo| (SPADCALL |d| (QREFELT $ 23)))) 

(DEFUN |GOPT;homogeneous;U$;11| (|d| $)
  (CONS '|homogeneous| (SPADCALL |d| (QREFELT $ 32)))) 

(DEFUN |GOPT;debug;B$;12| (|d| $) (CONS '|debug| (SPADCALL |d| (QREFELT $ 23)))) 

(DEFUN |GOPT;check;B$;13| (|d| $) (CONS '|check| (SPADCALL |d| (QREFELT $ 23)))) 

(DEFUN |GOPT;one;B$;14| (|d| $) (CONS '|one| (SPADCALL |d| (QREFELT $ 23)))) 

(DEFUN |GOPT;functionName;S$;15| (|d| $)
  (CONS '|functionName| (SPADCALL |d| (QREFELT $ 39)))) 

(DEFUN |GOPT;variableName;S$;16| (|d| $)
  (CONS '|variableName| (SPADCALL |d| (QREFELT $ 39)))) 

(DEFUN |GOPT;indexName;S$;17| (|d| $)
  (CONS '|indexName| (SPADCALL |d| (QREFELT $ 39)))) 

(DEFUN |GOPT;displayAsGF;B$;18| (|d| $)
  (CONS '|displayAsGF| (SPADCALL |d| (QREFELT $ 23)))) 

(DEFUN |GOPT;coerce;$Of;19| (|x| $)
  (SPADCALL (SPADCALL (QCAR |x|) (QREFELT $ 45))
            (SPADCALL (QCDR |x|) (QREFELT $ 46)) (QREFELT $ 47))) 

(DEFUN |GOPT;=;2$B;20| (|x| |y| $)
  (COND
   ((EQUAL (QCAR |x|) (QCAR |y|))
    (SPADCALL (QCDR |x|) (QCDR |y|) (QREFELT $ 49)))
   ('T 'NIL))) 

(DEFUN |GOPT;option?;LSB;21| (|l| |s| $)
  (PROG (#1=#:G2040 #2=#:G2042 #3=#:G2043 |x|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (EXIT
          (SEQ (LETT |x| NIL . #4=(|GOPT;option?;LSB;21|)) (LETT #3# |l| . #4#)
               G190
               (COND
                ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#) . #4#) NIL))
                 (GO G191)))
               (SEQ
                (EXIT
                 (COND
                  ((EQUAL (QCAR |x|) |s|)
                   (PROGN
                    (LETT #1# (PROGN (LETT #2# 'T . #4#) (GO #2#)) . #4#)
                    (GO #1#))))))
               (LETT #3# (CDR #3#) . #4#) (GO G190) G191 (EXIT NIL)))
         #1# (EXIT #1#))
        (EXIT 'NIL)))
      #2# (EXIT #2#))))) 

(DEFUN |GOPT;option;LSU;22| (|l| |s| $)
  (PROG (#1=#:G2049 #2=#:G2054 #3=#:G2055 |x|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (EXIT
          (SEQ (LETT |x| NIL . #4=(|GOPT;option;LSU;22|)) (LETT #3# |l| . #4#)
               G190
               (COND
                ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#) . #4#) NIL))
                 (GO G191)))
               (SEQ
                (EXIT
                 (COND
                  ((EQUAL (QCAR |x|) |s|)
                   (PROGN
                    (LETT #1#
                          (PROGN (LETT #2# (CONS 0 (QCDR |x|)) . #4#) (GO #2#))
                          . #4#)
                    (GO #1#))))))
               (LETT #3# (CDR #3#) . #4#) (GO G190) G191 (EXIT NIL)))
         #1# (EXIT #1#))
        (EXIT (CONS 1 "failed"))))
      #2# (EXIT #2#))))) 

(DEFUN |GOPT;checkOptions;LV;23| (|l| $)
  (PROG ()
    (RETURN
     (COND
      ((NULL (SPADCALL |l| (QREFELT $ 56)))
       (COND
        ((QEQCAR
          (SPADCALL (CONS #'|GOPT;checkOptions;LV;23!0| (VECTOR $ |l|))
                    (SPADCALL |l| (QREFELT $ 59)) (QREFELT $ 62))
          1)
         (SPADCALL (SPADCALL |l| (QREFELT $ 59)) (QREFELT $ 64)))
        ('T (|error| "GuessOption: Option specified twice")))))))) 

(DEFUN |GOPT;checkOptions;LV;23!0| (|z1| $$)
  (PROG (|l| $)
    (LETT |l| (QREFELT $$ 1) . #1=(|GOPT;checkOptions;LV;23|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (QCAR (SPADCALL |l| (QREFELT $ 57))) (QCAR |z1|)
                (QREFELT $ 58)))))) 

(DEFUN |GuessOption| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G2069)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|GuessOption|)
                . #3=(|GuessOption|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|GuessOption|
                         (LIST (CONS NIL (CONS 1 (|GuessOption;|))))))
                (LETT #2# T . #3#))
            (COND ((NOT #2#) (HREM |$ConstructorCache| '|GuessOption|))))))))))) 

(DEFUN |GuessOption;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|GuessOption|) . #1=(|GuessOption|))
      (LETT $ (GETREFV 67) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|GuessOption| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6
                (|Record| (|:| |keyword| (|Symbol|)) (|:| |value| (|Any|))))
      $)))) 

(MAKEPROP '|GuessOption| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL '|Rep| (|Any|) (|Union| 17 '"arbitrary")
              (|AnyFunctions1| 8) (0 . |coerce|) |GOPT;maxLevel;U$;1|
              |GOPT;maxDerivative;U$;2| |GOPT;maxShift;U$;3|
              (|Union| (|PositiveInteger|) '"arbitrary") |GOPT;maxSubst;U$;4|
              |GOPT;maxDegree;U$;5| (|NonNegativeInteger|) (|AnyFunctions1| 17)
              (5 . |coerce|) |GOPT;maxMixedDegree;Nni$;6| (|Boolean|)
              (|AnyFunctions1| 21) (10 . |coerce|) |GOPT;allDegrees;B$;7|
              (|AnyFunctions1| 14) (15 . |coerce|) |GOPT;maxPower;U$;8|
              |GOPT;safety;Nni$;9| |GOPT;MonteCarlo;B$;10|
              (|Union| (|PositiveInteger|) 21) (|AnyFunctions1| 30)
              (20 . |coerce|) |GOPT;homogeneous;U$;11| |GOPT;debug;B$;12|
              |GOPT;check;B$;13| |GOPT;one;B$;14| (|Symbol|)
              (|AnyFunctions1| 37) (25 . |coerce|) |GOPT;functionName;S$;15|
              |GOPT;variableName;S$;16| |GOPT;indexName;S$;17|
              |GOPT;displayAsGF;B$;18| (|OutputForm|) (30 . |coerce|)
              (35 . |coerce|) (40 . =) |GOPT;coerce;$Of;19| (46 . =)
              |GOPT;=;2$B;20| (|List| $) |GOPT;option?;LSB;21|
              (|Union| 7 '"failed") |GOPT;option;LSU;22| (|List| $$)
              (52 . |empty?|) (57 . |first|) (62 . =) (68 . |rest|)
              (|Union| $$ '"failed") (|Mapping| 21 $$) (73 . |find|) (|Void|)
              |GOPT;checkOptions;LV;23| (|String|) (|SingleInteger|))
           '#(~= 79 |variableName| 85 |safety| 90 |option?| 95 |option| 101
              |one| 107 |maxSubst| 112 |maxShift| 117 |maxPower| 122
              |maxMixedDegree| 127 |maxLevel| 132 |maxDerivative| 137
              |maxDegree| 142 |latex| 147 |indexName| 152 |homogeneous| 157
              |hash| 162 |functionName| 167 |displayAsGF| 172 |debug| 177
              |coerce| 182 |checkOptions| 187 |check| 192 |allDegrees| 197
              |MonteCarlo| 202 = 207)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0 0 0))
                 (CONS '#(|SetCategory&| |BasicType&| NIL)
                       (CONS
                        '#((|SetCategory|) (|BasicType|) (|CoercibleTo| 44))
                        (|makeByteWordVec2| 66
                                            '(1 9 7 8 10 1 18 7 17 19 1 22 7 21
                                              23 1 25 7 14 26 1 31 7 30 32 1 38
                                              7 37 39 1 37 44 0 45 1 7 44 0 46
                                              2 44 0 0 0 47 2 7 21 0 0 49 1 55
                                              21 0 56 1 55 2 0 57 2 37 21 0 0
                                              58 1 55 0 0 59 2 55 60 61 0 62 2
                                              0 21 0 0 1 1 0 0 37 41 1 0 0 17
                                              28 2 0 21 51 37 52 2 0 53 51 37
                                              54 1 0 0 21 36 1 0 0 14 15 1 0 0
                                              8 13 1 0 0 14 27 1 0 0 17 20 1 0
                                              0 8 11 1 0 0 8 12 1 0 0 8 16 1 0
                                              65 0 1 1 0 0 37 42 1 0 0 30 33 1
                                              0 66 0 1 1 0 0 37 40 1 0 0 21 43
                                              1 0 0 21 34 1 0 44 0 48 1 0 63 51
                                              64 1 0 0 21 35 1 0 0 21 24 1 0 0
                                              21 29 2 0 21 0 0 50)))))
           '|lookupComplete|)) 

(MAKEPROP '|GuessOption| 'NILADIC T) 
