(FILECREATED "15-Sep-86 18:17:30" ("compiled on " {ERIS}<LISPCORE>SOURCES>AERROR.;3) " 2-Sep-86 15:50:13" "COMPILE-FILEd" in "" dated " 2-Sep-86 16:19:46")(FILECREATED "15-Sep-86 18:17:03" {ERIS}<LISPCORE>SOURCES>AERROR.;3 6940 changes to: (FNS \LISPERROR) previous date: " 9-Sep-86 13:51:45" {ERIS}<LISPCORE>SOURCES>AERROR.;2)(RPAQQ AERRORCOMS ((FNS ERRORM ERRORN ERRORSTRING SETERRORN LISPERROR \LISPERROR \ILLEGAL.ARG \ARG.NOT.LITATOM) (EXPORT (DECLARE: EVAL@COMPILE (VARS \ERRORMESSAGELIST) DONTCOPY (OPTIMIZERS LISPERROR))) (VARIABLES *LAST-CONDITION*) (GLOBALVARS \ERRORMESSAGELIST) (FUNCTIONS CONDITION-TO-ERRN ERRM-TO-CONDITION) (PROP FILETYPE AERROR) (LOCALVARS . T)))ERRORM D1(L (0 X))  `   @dg  
  ®¿@dšµ
l@hb g  
  i	  @i
  i	  i	  `  @3µlkØ
  µo   id  i	  @µhid   (135Q PRINT 120Q TERPRI 114Q PRIN1 100Q NTH 60Q TERPRI 53Q CL:TERPRI 47Q REPORT-CONDITION 42Q CL:TERPRI 35Q FAKE-TYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS)(63Q \ERRORMESSAGELIST 32Q CONDITION 4 CONDITION)( 107Q "ERROR")ERRORN D1(F 0 *LAST-CONDITION*)  !   Pd²g  
  ²P	  P	  ´P	  hP (31Q OLD-INTERLISP-ERROR-MESSAGE 23Q OLD-INTERLISP-ERROR-MESSAGE 17Q OLD-INTERLISP-ERROR-NUMBER 11Q FAKE-TYPEP-FOR-CONDITIONS)(6 OLD-INTERLISP-ERROR)()ERRORSTRING D1(L (0 X))     `  @3µlkØ
   (16Q NTH)(2 \ERRORMESSAGELIST)()SETERRORN D1(L (1 MESS 0 NUM) F 0 *LAST-CONDITION*)  	  @A
  c  (4 ERRM-TO-CONDITION)NIL()LISPERROR D1(L (2 CONTINUEOKFLG 1 X 0 N))     A@B   (5 \LISPERROR)NIL()\LISPERROR D1(L (2 CONTINUEOKFLG 1 N 0 X) F 0 \INTERRUPTABLE)  #  Pªlo   @  ¿Ad—@h	  ƒ@
  B²í (35Q ERROR 30Q ERRORX 13Q \MP.ERROR)NIL( 7 "Error in uninterruptable system code -- ^N to continue into error handler")\ILLEGAL.ARG D1(L (0 X))     @l
   (5 \LISPERROR)NIL()\ARG.NOT.LITATOM D1(L (0 X))     @l
   (5 \LISPERROR)NIL()(RPAQQ \ERRORMESSAGELIST ("SYSTEM ERROR" " " "STACK OVERFLOW" "ILLEGAL RETURN" "ARG NOT LIST" "HARD DISK ERROR" "ATTEMPT TO SET NIL OR T" "ATTEMPT TO RPLAC NIL" "UNDEFINED OR ILLEGAL GO" "FILE WON'T OPEN" "NON-NUMERIC ARG" "ATOM TOO LONG" "ATOM HASH TABLE FULL" "FILE NOT OPEN" "ARG NOT LITATOM" "! too many files open" "END OF FILE" "ERROR" "BREAK" "ILLEGAL STACK ARG" "FAULT IN EVAL" "ARRAYS FULL" "FILE SYSTEM RESOURCES EXCEEDED" "FILE NOT FOUND" "BAD SYSOUT FILE" "UNUSUAL CDR ARG LIST" "HASH TABLE FULL" "ILLEGAL ARG" "ARG NOT ARRAY" "ILLEGAL OR IMPOSSIBLE BLOCK" "STACK PTR HAS BEEN RELEASED" "STORAGE FULL" "ATTEMPT TO USE ITEM OF INCORRECT TYPE" "ILLEGAL DATA TYPE NUMBER" "DATA TYPES FULL" "ATTEMPT TO BIND NIL OR T" "! too many user interrupt characters" "! read-macro context error" "ILLEGAL READTABLE" "ILLEGAL TERMINAL TABLE" "! swapblock too big for buffer" "PROTECTION VIOLATION" "BAD FILE NAME" "USER BREAK" "UNBOUND ATOM" "UNDEFINED CAR OF FORM" "UNDEFINED FUNCTION" "CONTROL-E" "FLOATING UNDERFLOW" "FLOATING OVERFLOW" "OVERFLOW" "ARG NOT HARRAY" "TOO MANY ARGUMENTS"))(PROCLAIM (QUOTE (SPECIAL *LAST-CONDITION*)))(OR (BOUNDP (QUOTE *LAST-CONDITION*)) (SETQ *LAST-CONDITION* NIL))CONDITION-TO-ERRN D1(L (0 CONDITION))     @g  
  ´@	   (14Q OLD-INTERLISP-ERROR-NUMBER 6 FAKE-TYPEP-FOR-CONDITIONS)(3 OLD-INTERLISP-ERROR)()ERRM-TO-CONDITION D1(L (1 MESSAGE 0 NUM))     @g  
  ‘@g  g  @g  A   (30Q MAKE-CONDITION 6 FAKE-TYPEP-FOR-CONDITIONS)(23Q :MESSAGE 17Q :NUMBER 14Q OLD-INTERLISP-ERROR 3 CONDITION)()(PUTPROPS AERROR FILETYPE COMPILE-FILE)(PUTPROPS AERROR COPYRIGHT ("Xerox Corporation" 1982 1983 1986))STOP