
(/VERSIONCHECK 2) 

(DEFUN |INFORM1;getType;If;1| ($) (QREFELT $ 7)) 

(DEFUN |INFORM1;packageCall;SIf;2| (|name| $)
  (SPADCALL
      (LIST (SPADCALL (SPADCALL "$elt" (QREFELT $ 12)) (QREFELT $ 13))
            (QREFELT $ 7) (SPADCALL |name| (QREFELT $ 13)))
      (QREFELT $ 15))) 

(DEFUN |INFORM1;coerceToType;2If;3| (|form| $)
  (SPADCALL
      (LIST (SPADCALL (SPADCALL "::" (QREFELT $ 12)) (QREFELT $ 13))
            |form| (QREFELT $ 7))
      (QREFELT $ 15))) 

(DEFUN |INFORM1;atType;2If;4| (|form| $)
  (SPADCALL
      (LIST (SPADCALL (SPADCALL "@" (QREFELT $ 12)) (QREFELT $ 13))
            |form| (QREFELT $ 7))
      (QREFELT $ 15))) 

(DEFUN |INFORM1;pretendOfType;2If;5| (|form| $)
  (SPADCALL
      (LIST (SPADCALL (SPADCALL "pretend" (QREFELT $ 12))
                (QREFELT $ 13))
            |form| (QREFELT $ 7))
      (QREFELT $ 15))) 

(DEFUN |INFORM1;interpret;IfR;6| (|form| $)
  (SPADCALL (SPADCALL (SPADCALL |form| (QREFELT $ 18)) (QREFELT $ 21))
      (QREFELT $ 23))) 

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

(DEFUN |InputFormFunctions1;| (|#1|)
  (PROG (DV$1 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|InputFormFunctions1|))
        (LETT |dv$| (LIST '|InputFormFunctions1| DV$1) . #0#)
        (LETT $ (GETREFV 25) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|InputFormFunctions1|
            (LIST DV$1) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 (|typeToInputForm| |#1|))
        $)))) 

(MAKEPROP '|InputFormFunctions1| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) '|Rname|
             (|InputForm|) |INFORM1;getType;If;1| (|String|) (|Symbol|)
             (0 . |coerce|) (5 . |convert|) (|List| $) (10 . |convert|)
             |INFORM1;packageCall;SIf;2| |INFORM1;coerceToType;2If;3|
             |INFORM1;atType;2If;4| |INFORM1;pretendOfType;2If;5|
             (|Any|) (15 . |interpret|) (|AnyFunctions1| 6)
             (20 . |retract|) |INFORM1;interpret;IfR;6|)
          '#(|pretendOfType| 25 |packageCall| 30 |interpret| 35
             |getType| 40 |coerceToType| 44 |atType| 49)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 24
                                '(1 11 0 10 12 1 8 0 11 13 1 8 0 14 15
                                  1 8 20 0 21 1 22 6 20 23 1 0 8 8 19 1
                                  0 8 11 16 1 0 6 8 24 0 0 8 9 1 0 8 8
                                  17 1 0 8 8 18)))))
          '|lookupComplete|)) 
