(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-Nov-93 15:30:42" ("compiled on " {DSK}export>lispcore>sources>CLTL2>AERROR.;1) "11-Nov-93 16:58:33" "COMPILE-FILEd" in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "13-Mar-92 14:41:54" {DSK}local>lde>lispcore>sources>AERROR.;2 7354 changes to%: ( VARS AERRORCOMS) previous date%: "16-May-90 11:58:35" {DSK}local>lde>lispcore>sources>AERROR.;1) (RPAQQ AERRORCOMS ((FNS ERRORSTRING SETERRORN LISPERROR \LISPERROR \ILLEGAL.ARG \ARG.NOT.LITATOM) ( EXPORT (DECLARE%: EVAL@COMPILE (VARS \ERRORMESSAGELIST) DONTCOPY (OPTIMIZERS LISPERROR))) (VARIABLES *LAST-CONDITION*) (GLOBALVARS \ERRORMESSAGELIST) (FUNCTIONS ERRM-TO-CONDITION) (PROP FILETYPE AERROR) (LOCALVARS . T))) ERRORSTRING :D8 (L (0 X)) `@3µlkØ (18 NTH) (4 \ERRORMESSAGELIST) () SETERRORN :D8 (L (1 MESS 0 NUM) F 0 *LAST-CONDITION*) @A c(6 ERRM-TO-CONDITION) NIL () LISPERROR :D8 (L (2 CONTINUEOKFLG 1 X 0 N)) 0@ `jHµA@B@Ì“Ib¿H¸IkÔ¹°ã(28 \LISPERROR 5 STRINGP) (11 \ERRORMESSAGELIST) () \LISPERROR :D8 (L (2 CONTINUEOKFLG 1 N 0 X) F 0 \INTERRUPTABLE) *Plo@¿Ad™@h …@ B²é(36 ERROR 29 ERRORX 14 \MP.ERROR) NIL ( 8 "Error in uninterruptable system code -- ^N to continue into error handler") \ILLEGAL.ARG :D8 (L (0 X)) @l (7 \LISPERROR) NIL () \ARG.NOT.LITATOM :D8 (L (0 X)) @l (7 \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")) (CL:PROCLAIM (QUOTE (CL:SPECIAL *LAST-CONDITION*))) (OR (BOUNDP (QUOTE *LAST-CONDITION*)) (CL:SETQ *LAST-CONDITION* NIL)) (SET-DOCUMENTATION (QUOTE *LAST-CONDITION*) (QUOTE CL:VARIABLE) "Last condition signalled. This gets rebound to itself in nested execs.") ERRM-TO-CONDITION :D8 (L (1 MESSAGE 0 NUM)) j@dÃ‘@dlð›¿g lð²ggA@lð³(@l ð³"@lð³@lð³@l&ð®@l'ð©@dl3ð¢±¿ggAgAg@Hdlð—¿g°[l ð–g°PHdlð—¿g°Blð–g°7Hdl&ð—¿g°)l'ð–g°Hl3ð´ggHo lð²ggA@lð§@dl#ð²¿gghlð²ggA@dlð²¿ggAl ð²ggA@dlð›¿g lðšg @dl ð²¿ggAlð²ggA@dlð²¿ggAlð²ggA@dlð›¿g lð²ggA@dlð²¿ggAlð§@dlð²¿ggAlð²ggA@dlð²¿ggAlðšg @dl"ð›¿g l)ð²ggA@dl*ð²¿ggAl,ð²ggA@dl-ð²¿ggAl.ð²ggAgA @dl/ð›¿g l0ðšg @dl1ð›¿g l4ð²ggAgn o@A(871 CL:ERROR 858 MAKE-CONDITION 827 MAKE-CONDITION 809 MAKE-CONDITION 794 MAKE-CONDITION 776 MAKE-CONDITION 744 MAKE-CONDITION 719 MAKE-CONDITION 697 MAKE-CONDITION 672 MAKE-CONDITION 650 MAKE-CONDITION 632 MAKE-CONDITION 617 MAKE-CONDITION 592 MAKE-CONDITION 570 MAKE-CONDITION 541 MAKE-CONDITION 516 MAKE-CONDITION 494 MAKE-CONDITION 476 MAKE-CONDITION 454 MAKE-CONDITION 429 MAKE-CONDITION 407 MAKE-CONDITION 382 MAKE-CONDITION 367 MAKE-CONDITION 349 MAKE-CONDITION 327 MAKE-CONDITION 302 MAKE-CONDITION 280 MAKE-CONDITION 250 MAKE-CONDITION 228 MAKE-CONDITION 221 ECASE-FAIL 47 MAKE-CONDITION 25 MAKE-CONDITION) (849 :MAXIMUM 843 :CALLEE 838 TOO-MANY-ARGUMENTS 822 CL:FLOATING-POINT-OVERFLOW 804 CL:FLOATING-POINT-UNDERFLOW 789 XCL:CONTROL-E-INTERRUPT 767 :ARGUMENTS 760 :NAME 755 UNDEFINED-FUNCTION-IN-APPLY 738 :FUNCTION 733 UNDEFINED-CAR-OF-FORM 713 :NAME 708 UNBOUND-VARIABLE 691 :PATHNAME 686 XCL:INVALID-PATHNAME 666 :PATHNAME 661 XCL:FS-PROTECTION-VIOLATION 645 XCL:DATA-TYPES-EXHAUSTED 627 XCL:STORAGE-EXHAUSTED 611 :NAME 606 STACK-POINTER-RELEASED 586 :TABLE 581 XCL:HASH-TABLE-FULL 564 :ARGUMENT 559 INVALID-ARGUMENT-LIST 535 :PATHNAME 530 XCL:FILE-NOT-FOUND 510 :PATHNAME 505 XCL:FS-RESOURCES-EXCEEDED 489 XCL:ARRAY-SPACE-FULL 470 :ARG 465 ILLEGAL-STACK-ARG 448 :MESSAGE 443 INTERLISP-ERROR 423 :STREAM 418 END-OF-FILE 401 :STREAM 396 XCL:STREAM-NOT-OPEN 377 XCL:SYMBOL-HT-FULL 362 XCL:SYMBOL-NAME-TOO-LONG 343 :PATHNAME 338 XCL:FILE-WONT-OPEN 321 :TAG 316 ILLEGAL-GO 296 :NAME 291 XCL:ATTEMPT-TO-RPLAC-NIL 274 :NAME 269 XCL:ATTEMPT-TO-CHANGE-CONSTANT 244 :MESSAGE 239 XCL:SIMPLE-DEVICE-ERROR 210 NUM 204 CL:HASH-TABLE 191 TERMTABLEP 180 READTABLEP 166 ARRAYP 155 CL:SYMBOL 141 CL:NUMBER 130 LIST 114 :EXPECTED-TYPE 108 :VALUE 102 :NAME 97 XCL:TYPE-MISMATCH 41 :TAG 36 ILLEGAL-RETURN 20 STACK-OVERFLOW 6 CONDITION) ( 864 "Interlisp error number ~D (message: ~S) no longer supported" 216 (4 10 14 28 38 39 51)) (PUTPROPS AERROR FILETYPE CL:COMPILE-FILE) (PUTPROPS AERROR COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1986 1987 1988 1989 1990 1992)) NIL