
(/VERSIONCHECK 2) 

(DEFUN |ERROR;doit| (|s| $)
  (SEQ (|throwPatternMsg| |s| NIL) (EXIT "exit"))) 

(DEFUN |ERROR;error;SE;2| (|s| $)
  (|ERROR;doit| (SPADCALL (LIST (QREFELT $ 6) |s|) (QREFELT $ 10)) $)) 

(DEFUN |ERROR;error;LE;3| (|l| $)
  (PROG (|x| #0=#:G1822 |s|)
    (RETURN
      (SEQ (LETT |s| (QREFELT $ 6) . #1=(|ERROR;error;LE;3|))
           (SEQ (LETT |x| NIL . #1#) (LETT #0# |l| . #1#) G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |x| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (LETT |s|
                                 (SPADCALL (LIST |s| " " |x|)
                                     (QREFELT $ 10)) . #1#)))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (EXIT (|ERROR;doit| |s| $)))))) 

(DEFUN |ERROR;error;2SE;4| (|fn| |s| $)
  (|ERROR;doit|
      (SPADCALL (LIST (QREFELT $ 7) |fn| ": %d %l " |s|)
          (QREFELT $ 10))
      $)) 

(DEFUN |ERROR;error;SLE;5| (|fn| |l| $)
  (PROG (|x| #0=#:G1827 |s|)
    (RETURN
      (SEQ (LETT |s|
                 (SPADCALL (LIST (QREFELT $ 7) |fn| ": %d %l")
                     (QREFELT $ 10))
                 . #1=(|ERROR;error;SLE;5|))
           (SEQ (LETT |x| NIL . #1#) (LETT #0# |l| . #1#) G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |x| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (LETT |s|
                                 (SPADCALL (LIST |s| " " |x|)
                                     (QREFELT $ 10)) . #1#)))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (EXIT (|ERROR;doit| |s| $)))))) 

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

(DEFUN |ErrorFunctions;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT |dv$| '(|ErrorFunctions|) . #0=(|ErrorFunctions|))
        (LETT $ (GETREFV 17) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|ErrorFunctions| NIL
            (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 "Error signalled from user code: %l ")
        (QSETREFV $ 7 "Error signalled from user code in function %b ")
        $)))) 

(MAKEPROP '|ErrorFunctions| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL '|prefix1| '|prefix2| (|List| $)
             (|String|) (0 . |concat|) (|Exit|) |ERROR;error;SE;2|
             (|List| 9) |ERROR;error;LE;3| |ERROR;error;2SE;4|
             |ERROR;error;SLE;5|)
          '#(|error| 5) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 16
                                '(1 9 0 8 10 1 0 11 13 14 1 0 11 9 12 2
                                  0 11 9 13 16 2 0 11 9 9 15)))))
          '|lookupComplete|)) 

(MAKEPROP '|ErrorFunctions| 'NILADIC T) 
