
(/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;packageCall;SLIf;3| (|name| |args| $)
  (SPADCALL (CONS (SPADCALL |name| (QREFELT $ 16)) |args|) (QREFELT $ 15))) 

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

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

(DEFUN |INFORM1;pretendOfType;2If;6| (|form| $)
  (SPADCALL (LIST (SPADCALL '|pretend| (QREFELT $ 13)) |form| (QREFELT $ 7))
            (QREFELT $ 15))) 

(DEFUN |INFORM1;interpret;IfR;7| (|form| $)
  (SPADCALL (SPADCALL (SPADCALL |form| (QREFELT $ 20)) (QREFELT $ 23))
            (QREFELT $ 25))) 

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

(DEFUN |InputFormFunctions1;| (|#1|)
  (PROG (|pv$| $ |dv$| DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|InputFormFunctions1|))
      (LETT |dv$| (LIST '|InputFormFunctions1| DV$1) . #1#)
      (LETT $ (GETREFV 27) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|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| (|List| 8)
              |INFORM1;packageCall;SLIf;3| |INFORM1;coerceToType;2If;4|
              |INFORM1;atType;2If;5| |INFORM1;pretendOfType;2If;6| (|Any|)
              (15 . |interpret|) (|AnyFunctions1| 6) (20 . |retract|)
              |INFORM1;interpret;IfR;7|)
           '#(|pretendOfType| 25 |packageCall| 30 |interpret| 41 |getType| 46
              |coerceToType| 50 |atType| 55)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 26
                                                 '(1 11 0 10 12 1 8 0 11 13 1 8
                                                   0 14 15 1 8 22 0 23 1 24 6
                                                   22 25 1 0 8 8 21 1 0 8 11 16
                                                   2 0 8 11 17 18 1 0 6 8 26 0
                                                   0 8 9 1 0 8 8 19 1 0 8 8
                                                   20)))))
           '|lookupComplete|)) 
