(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
(FILECREATED "17-Oct-86 18:51:13" ("compiled on " {ERIS}<DANIELS>LISP>ERROR-RUNTIME.;15)
"12-Oct-86 23:04:15" "COMPILE-FILEd" in "Xerox Lisp 12-Oct-86 ..." dated "12-Oct-86 23:41:02")
(FILECREATED "17-Oct-86 17:49:26" {ERIS}<DANIELS>LISP>ERROR-RUNTIME.;15 32276 changes to%: (STRUCTURES
ERROR SIMPLE-ERROR OLD-INTERLISP-ERROR CELL-ERROR CONTROL-ERROR STREAM-ERROR SIMPLE-WARNING
PROCEED-CASE REAL-PROCEED-CASE) (VARS ERROR-RUNTIMECOMS SHOULD-BE-IN-PACKAGE) (FUNCTIONS
TRY-ERRORTYPELST %%PRINT-CONDITION %%PROCEED-CASE-PRINTER %%PROCEED-CASE-DEFAULT-REPORTER
MAKE-CONDITION INVOKE-PROCEED-CASE RAISE-SIGNAL) (VARIABLES *CONDITION-HANDLER-BINDINGS*
*PROCEED-CASES*) previous date%: "16-Oct-86 17:59:30" {ERIS}<DANIELS>LISP>ERROR-RUNTIME.;14)
(RPAQQ ERROR-RUNTIMECOMS ((COMS (* ;;; "Internal functions.") (FUNCTIONS CONDITION-TYPEP
CONDITION-SUBTYPEP CONDITION-TYPE-OF FAKE-TYPEP-FOR-CONDITIONS FAKE-SUBTYPEP-FOR-CONDITIONS
FAKE-TYPE-OF-FOR-CONDITIONS) (FUNCTIONS CONDITION-HANDLER CONDITION-REPORTER %%PRINT-CONDITION
%%PROCEED-CASE-PRINTER %%PROCEED-CASE-DEFAULT-REPORTER REPORT-CONDITION CONDITION-PARENT) (VARIABLES
*CONDITION-HANDLER-BINDINGS* *PROCEED-CASES*) (FUNCTIONS CHECK-TYPE-FAIL ECASE-FAIL ASSERT-FAIL) (
FUNCTIONS MAKE-INTO-CONDITION RAISE-SIGNAL DEFAULT-HANDLE-CONDITION DEFAULT-PROCEED-REPORTER
FIX-INHERITANCE-LINKS DEFAULT-PROCEED-TEST TEST-PROCEED-CASE)) (COMS (* ;;;
"Pre-defined condition types.") (STRUCTURES CONDITION SIMPLE-CONDITION WARNING SIMPLE-WARNING
OLD-BREAK1 SERIOUS-CONDITION ERROR SIMPLE-ERROR OLD-INTERLISP-ERROR ASSERTION-FAILED CELL-ERROR
UNBOUND-VARIABLE UNDEFINED-FUNCTION NO-PROCEED-TEST INDEX-BOUNDS-ERROR) (COMS (FUNCTIONS
PRETTY-TYPE-NAME) (STRUCTURES TYPE-MISMATCH)) (STRUCTURES CONTROL-ERROR ILLEGAL-GO ILLEGAL-RETURN
ILLEGAL-THROW BAD-PROCEED-CASE) (STRUCTURES CALL-ERROR TOO-MANY-ARGUMENTS TOO-FEW-ARGUMENTS
INVALID-ARGUMENT-LIST) (STRUCTURES STREAM-ERROR READ-ERROR END-OF-FILE) (STRUCTURES STORAGE-CONDITION
STACK-OVERFLOW STORAGE-EXHAUSTED)) (COMS (* ;;;
"Exported symbols. Anything here that's not in CL should be in XCL.") (VARIABLES *BREAK-ON-WARNINGS*)
(FUNCTIONS MAKE-CONDITION SIGNAL CL:ERROR CL:CERROR CL:WARN CL:BREAK DEBUG) (STRUCTURES PROCEED-CASE
REAL-PROCEED-CASE) (FUNCTIONS FIND-PROCEED-CASE COMPUTE-PROCEED-CASES INVOKE-PROCEED-CASE) (FUNCTIONS
ABORT PROCEED USE-VALUE STORE-VALUE)) (COMS (FUNCTIONS SIMPLE-FORMAT) (P (MOVD? (QUOTE SIMPLE-FORMAT)
(QUOTE CL:FORMAT)))) (DECLARE%: DONTCOPY (VARS SHOULD-BE-IN-PACKAGE)) (PROP FILETYPE ERROR-RUNTIME)))
expand-CONDITION-TYPEP D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@!H¹Hºg��IJh�NIL
(14 FAKE-TYPEP-FOR-CONDITIONS)
()
(SETF-MACRO-FUNCTION (QUOTE CONDITION-TYPEP) (QUOTE expand-CONDITION-TYPEP))
expand-CONDITION-SUBTYPEP D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@!H¹Hºg��IJh�NIL
(14 FAKE-SUBTYPEP-FOR-CONDITIONS)
()
(SETF-MACRO-FUNCTION (QUOTE CONDITION-SUBTYPEP) (QUOTE expand-CONDITION-SUBTYPEP))
expand-CONDITION-TYPE-OF D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@�g��Hh�NIL
(8 FAKE-TYPE-OF-FOR-CONDITIONS)
()
(SETF-MACRO-FUNCTION (QUOTE CONDITION-TYPE-OF) (QUOTE expand-CONDITION-TYPE-OF))
FAKE-TYPEP-FOR-CONDITIONS D1
(L (1 TYPE 0 DATUM)) ����@´@lð´@A
���(17 FAKE-SUBTYPEP-FOR-CONDITIONS)
NIL
()
FAKE-SUBTYPEP-FOR-CONDITIONS D1
(L (1 T2 0 T1)) �#���@‘h€i³@dAð’®iŠg��
��b�°êh´ii
���(32 CL:VALUES 20 GETPROP)
(17 %%CONDITION-PARENT)
()
FAKE-TYPE-OF-FOR-CONDITIONS D1
(L (0 DATUM)) ����@�NIL
NIL
()
expand-CONDITION-HANDLER D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@�g��Ho����NIL
(8 GETPROP)
( 13 ((QUOTE %%CONDITION-HANDLER)))
(SETF-MACRO-FUNCTION (QUOTE CONDITION-HANDLER) (QUOTE expand-CONDITION-HANDLER))
expand-CONDITION-REPORTER D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@�g��Ho����NIL
(8 GETPROP)
( 13 ((QUOTE %%CONDITION-REPORTER)))
(SETF-MACRO-FUNCTION (QUOTE CONDITION-REPORTER) (QUOTE expand-CONDITION-REPORTER))
%%PRINT-CONDITION D1
(L (2 LEVEL 1 STREAM 0 CONDITION) F 0 CL:*PRINT-ESCAPE*) � ��P²Ao���@ ��@Ò@Ó
��@A
���(25 REPORT-CONDITION 19 CL:FORMAT 11 CL:TYPE-OF)
NIL
( 7 "#<Condition ~S @ ~O,~O>")
%%PROCEED-CASE-PRINTER D1
(L (2 LEVEL 1 STREAM 0 PC) F 0 CL:*PRINT-ESCAPE*) ���P–@AB ��@Al@ ���(16 PROCEED-CASE-REPORT 7 DEFAULT-STRUCTURE-PRINTER)
NIL
()
%%PROCEED-CASE-DEFAULT-REPORTER D1
(L (1 STREAM 0 PC)) ����@Al@ ��ÁÉ�g��g�� ���(20 CL:GETF 7 PROCEED-CASE-NAME)
(17 DEFAULT-PROCEED-REPORTER 14 %%DEFAULT-PROCEED-REPORT)
()
REPORT-CONDITION D1
(L (1 STREAM 0 CONDITION)) �@��@ ��!Hg��
��¹H¨o���@
��I²A–@AlI��º@JlIJ ��Hg��
��X°Ë�(59 GETPROP 51 CL:GET-OUTPUT-STREAM-STRING 40 CL:MAKE-STRING-OUTPUT-STREAM 24 CL:BREAK 13 GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS)
(56 %%CONDITION-PARENT 10 %%CONDITION-REPORTER)
( 20 "No report function found for ~S.")
expand-CONDITION-PARENT D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@�g��Ho����NIL
(8 GETPROP)
( 13 ((QUOTE %%CONDITION-PARENT)))
(SETF-MACRO-FUNCTION (QUOTE CONDITION-PARENT) (QUOTE expand-CONDITION-PARENT))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *CONDITION-HANDLER-BINDINGS*)))
(OR (BOUNDP (QUOTE *CONDITION-HANDLER-BINDINGS*)) (SETQ *CONDITION-HANDLER-BINDINGS* NIL))
(LET* ((A7025 (QUOTE *CONDITION-HANDLER-BINDINGS*)) (A7026 (QUOTE VARIABLE)) (A7027
"Condition handler binding stack")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (
SET-DOCUMENTATION A7025 A7026 A7027))) A7027))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *PROCEED-CASES*)))
(OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL))
(LET* ((A7028 (QUOTE *PROCEED-CASES*)) (A7029 (QUOTE VARIABLE)) (A7030 "Active proceed case stack")) (
PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A7028 A7029 A7030))) A7030))
CHECK-TYPE-FAILA0001A0002 D1
(L (0 CONDITION) F 0 PROCEEDABLE) � ��P´ @g��
���(9 FAKE-TYPEP-FOR-CONDITIONS)
(6 TYPE-MISMATCH)
()
CHECK-TYPE-FAILA0001A0003 D1
(L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) � ��io���P ���(8 CL:FORMAT)
NIL
( 4 "Change the value of ~A")
CHECK-TYPE-FAILA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE7434 F 2 *PROCEED-CASES* F 3 PLACE F 4 MESSAGE F 5 VALUE F 6 DESIRED-TYPE) �D��g��g��g��g��Qg��jg��g��g��g��
��R�g��g��Sg��Ug��Vg��T
�� ���(63 \MVLIST 60 CL:ERROR 32 MAKE-PROCEED-CASE)
(55 :MESSAGE 51 :DESIRED-TYPE 47 :VALUE 43 :NAME 40 TYPE-MISMATCH 28 CHECK-TYPE-FAILA0001A0003 25 :REPORT 22 CHECK-TYPE-FAILA0001A0002 19 :TEST 15 :SELECTOR 11 :TAG 8 STORE-VALUE 5 :NAME 2 :NORMAL)
()
CHECK-TYPE-FAILA0004 D1
(L (1 NEW 0 IGNORE)) ����A�NIL
NIL
()
CHECK-TYPE-FAIL D1
(P 0 PROCEED-CASE7434 I 4 MESSAGE I 3 DESIRED-TYPE I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) �F��hh�Hg��
��AIºI»Jg��ð”K ��g��j½¼K°dýMkØ]n�ñ–hl4
��¿µìML�(61 \LISPERROR 32 CL:VALUES-LIST 12 \CATCH-FUNCALL)
(36 CHECK-TYPE-FAILA0004 26 :NORMAL 9 CHECK-TYPE-FAILA0001)
()
ECASE-FAILA0001A0002 D1
(L (0 CONDITION) F 0 PROCEEDABLE) ���P�NIL
NIL
()
ECASE-FAILA0001A0003 D1
(L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) � ��io���P ���(8 CL:FORMAT)
NIL
( 4 "Change the value of ~A")
ECASE-FAILA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE7438 F 2 *PROCEED-CASES* F 3 SELECTORS F 4 PLACE F 5 VALUE) �<��g��g��g��g��Qg��jg��g��g��g��
��R�o���TUo���S
�� ���(55 \MVLIST 52 CL:ERROR 32 MAKE-PROCEED-CASE)
(28 ECASE-FAILA0001A0003 25 :REPORT 22 ECASE-FAILA0001A0002 19 :TEST 15 :SELECTOR 11 :TAG 8 STORE-VALUE 5 :NAME 2 :NORMAL)
( 47 "~#[wrong~;not ~S~;neither ~S nor ~S~:;not~@{~#[~; or~] ~S~^,~}~]" 41 "The value of ~S, ~S,~&is ~?.")
ECASE-FAILA0004 D1
(L (1 V 0 IGNORE)) ����A�NIL
NIL
()
ECASE-FAIL D1
(P 0 PROCEED-CASE7438 I 3 SELECTORS I 2 VALUE I 1 PLACE I 0 PROCEEDABLE) �F��hh�Hg��
��AIºI»Jg��ð”K ��g��j½¼K°dýMkØ]n�ñ–hl4
��¿µìML�(61 \LISPERROR 32 CL:VALUES-LIST 12 \CATCH-FUNCALL)
(36 ECASE-FAILA0004 26 :NORMAL 9 ECASE-FAILA0001)
()
ASSERT-FAILA0001A0002 D1
(L (1 STREAM 0 DATUM)) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Re-test assertion")
ASSERT-FAILA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE7442 F 2 *PROCEED-CASES* F 3 CL:STRING F 4 ARGS) �:��g��g��g��g��Qg��jg��hg��g��
��R�g��g��Sg��T
�� ���(53 \MVLIST 50 CL:ERROR 30 MAKE-PROCEED-CASE)
(45 :FORMAT-ARGUMENTS 41 :FORMAT-STRING 38 ASSERTION-FAILED 26 ASSERT-FAILA0001A0002 23 :REPORT 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL)
()
ASSERT-FAILA0003 D1
NIL �����h�NIL
NIL
()
ASSERT-FAIL D1
(L (0 -args-) P 13 PROCEED-CASE7442 P 2 ARGS P 1 CL:STRING) �‡��e�kaaHl2 OdOó²(¿Oºhh
Og��
��[¼K½Lg��ð²(M ��a_¿OµOh__¿OkÔ_°½O&_¿°òg��j_¿¾M°dýOkØ_n�ñ–hl4
��¿µêON�(125 \LISPERROR 59 CL:VALUES-LIST 41 \CATCH-FUNCALL)
(96 ASSERT-FAILA0003 52 :NORMAL 38 ASSERT-FAILA0001)
()
MAKE-INTO-CONDITION D1
(L (2 ARGS 1 DESIRED-TYPE 0 DATUM)) �l��@dg��
��‘@!HdÃ��²9¿@g��
��²&g��kº¹@B°dýJkØZn�ñ–hl4
��¿µìJIo���@
�� ��´Ag��@g��B
��g��Ho��� ���(105 CHECK-TYPE-FAIL 93 MAKE-CONDITION 78 CL:STRINGP 74 CL:ERROR 59 \LISPERROR 28 FAKE-SUBTYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS)
(97 DATUM 88 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 33 MAKE-CONDITION 25 CONDITION 18 LITATOM 4 CONDITION)
( 102 (OR CL:SYMBOL CL:STRING) 70 "~S is not a condition type.")
RAISE-SIGNAL D1
(L (0 C) P 4 *CONDITION-HANDLER-BINDINGS* P 0 *CONDITION-HANDLER-BINDINGS* F 5 *CONDITION-HANDLER-BINDINGS*) �*�U1Hµ@ ��@[ºK¹@J
��™H@kIHX°Þ�(24 FAKE-TYPEP-FOR-CONDITIONS 10 DEFAULT-HANDLE-CONDITION)
NIL
()
DEFAULT-HANDLE-CONDITION D1
(L (0 CONDITION)) �#��@ ��Hd g��
��Y”@kI¿Hg��
��X°è�(30 GETPROP 16 GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS)
(27 %%CONDITION-PARENT 13 %%CONDITION-HANDLER)
()
DEFAULT-PROCEED-REPORTER D1
(L (1 STREAM 0 PC)) ����Ao���@ �� ���(11 CL:FORMAT 8 PROCEED-CASE-NAME)
NIL
( 4 "Proceed-type: ~A")
FIX-INHERITANCE-LINKS D1
(L (1 NEW-PARENT 0 NAME)) �W��@g��
��qAdHð¤¿Hµ)A½@Mg��
��
��¼Mg��L ��¿@¾A_¿Ng��O ��ÁÉ�g��'»Hº@K
��¹Jg��I ��¿°¿�(82 PUTPROP 73 DREMOVE 56 PUTPROP 40 PUTPROP 31 CL:ADJOIN 28 GETPROP 6 GETPROP)
(78 %%CONDITION-CHILDREN 64 %%CONDITION-CHILDREN 51 %%CONDITION-PARENT 36 %%CONDITION-CHILDREN 25 %%CONDITION-CHILDREN 3 %%CONDITION-PARENT)
()
expand-DEFAULT-PROCEED-TEST D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@�g��Ho����NIL
(8 GETPROP)
( 13 ((QUOTE %%DEFAULT-PROCEED-TEST)))
(SETF-MACRO-FUNCTION (QUOTE DEFAULT-PROCEED-TEST) (QUOTE expand-DEFAULT-PROCEED-TEST))
TEST-PROCEED-CASEA0001A0002 D1
(L (1 STREAM 0 DATUM)) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Assume proceed case is enabled")
TEST-PROCEED-CASEA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE7461 F 2 *PROCEED-CASES* F 3 PC) �5��g��g��g��g��Qg��jg��g��g��g��
��R�o���S
�� ���(48 \MVLIST 45 CL:ERROR 32 MAKE-PROCEED-CASE)
(28 TEST-PROCEED-CASEA0001A0002 25 :REPORT 22 TRUE 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL)
( 41 "Couldn't find test function for ~S.")
TEST-PROCEED-CASEA0003 D1
NIL �����i�NIL
NIL
()
TEST-PROCEED-CASE D1
(L (1 CONDITION) P 6 PROCEED-CASE7461 I 0 PC) �m��`@ ��X³ @ ��´ @ ��g��
��µ @ �� ��X´AkHhNg��
��YºI»Jg��ð”K ��g��j½¼K°dýMkØ]n�ñ–hl4
��¿µìML�(100 \LISPERROR 71 CL:VALUES-LIST 54 \CATCH-FUNCALL 34 NO-PROCEED-TEST 31 PROCEED-CASE-NAME 25 GETPROP 19 PROCEED-CASE-NAME 13 PROCEED-CASE-NAME 6 PROCEED-CASE-TEST)
(75 TEST-PROCEED-CASEA0003 65 :NORMAL 51 TEST-PROCEED-CASEA0001 22 %%DEFAULT-PROCEED-TEST)
()
CONDITION---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CONDITION D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 CONDITION)
()
type-expand-CONDITION D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE CONDITION))
(PUT (QUOTE CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-CONDITION))
(PUTPROP (QUOTE CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-CONDITION))
(PUTPROP (QUOTE CONDITION) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE CONDITION) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T))))
(PUTPROP (QUOTE CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (--DUMMY-SLOT--)))
(LET* ((A7053 (QUOTE CONDITION)) (A7052 (QUOTE %%CONDITION-HANDLER)) (A7051 NIL)) (PUTPROP A7053 A7052
A7051))
|CONDITION report method| D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Condition ~S occurred.")
(LET* ((A7056 (QUOTE CONDITION)) (A7055 (QUOTE %%CONDITION-REPORTER)) (A7054 (FUNCTION
|CONDITION report method|))) (PUTPROP A7056 A7055 A7054))
SIMPLE-CONDITION-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����@�NIL
NIL
()
SIMPLE-CONDITION-FORMAT-STRING D1
(L (0 OBJECT)) ����@�NIL
NIL
()
SIMPLE-CONDITION---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE SIMPLE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SIMPLE-CONDITION D1
(L (0 -args-)) �x��e�HkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿g��ILOhag��ð•JkØa°ÉJlÔZ°»ag��ð•KkØa°ÆKlÔ[°¸ag��ð•NkØa°ÀNlÔ^°²�NIL
(103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 SIMPLE-CONDITION)
()
type-expand-SIMPLE-CONDITION D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE SIMPLE-CONDITION))
(PUT (QUOTE SIMPLE-CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SIMPLE-CONDITION))
(LET* ((A7058 (QUOTE SIMPLE-CONDITION)) (A7059 (QUOTE (CONDITION)))) (PUT A7058 (QUOTE
%%%%INCLUDED-STRUCTURE) A7059))
(PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-SIMPLE-CONDITION))
(PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T
) (FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T))))
(PUTPROP (QUOTE SIMPLE-CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (FORMAT-ARGUMENTS FORMAT-STRING)))
(FIX-INHERITANCE-LINKS (QUOTE SIMPLE-CONDITION) (QUOTE CONDITION))
(LET* ((A7062 (QUOTE SIMPLE-CONDITION)) (A7061 (QUOTE %%CONDITION-HANDLER)) (A7060 NIL)) (PUTPROP
A7062 A7061 A7060))
|SIMPLE-CONDITION report method| D1
(P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) �2��@ ��@ ��"g��l»ºiHI°dýKkØ[n�ñ–hl4
��¿µìKJ�(41 \LISPERROR 7 SIMPLE-CONDITION-FORMAT-ARGUMENTS 3 SIMPLE-CONDITION-FORMAT-STRING)
(13 CL:FORMAT)
()
(LET* ((A7065 (QUOTE SIMPLE-CONDITION)) (A7064 (QUOTE %%CONDITION-REPORTER)) (A7063 (FUNCTION
|SIMPLE-CONDITION report method|))) (PUTPROP A7065 A7064 A7063))
WARNING---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-WARNING D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 WARNING)
()
type-expand-WARNING D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE WARNING))
(PUT (QUOTE WARNING) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-WARNING))
(LET* ((A7067 (QUOTE WARNING)) (A7068 (QUOTE (CONDITION)))) (PUT A7067 (QUOTE %%%%INCLUDED-STRUCTURE)
A7068))
(PUTPROP (QUOTE WARNING) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-WARNING))
(PUTPROP (QUOTE WARNING) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE WARNING) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T))))
(PUTPROP (QUOTE WARNING) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE WARNING) (QUOTE CONDITION))
(LET* ((A7071 (QUOTE WARNING)) (A7070 (QUOTE %%CONDITION-HANDLER)) (A7069 NIL)) (PUTPROP A7071 A7070
A7069))
(LET* ((A7074 (QUOTE WARNING)) (A7073 (QUOTE %%CONDITION-REPORTER)) (A7072 NIL)) (PUTPROP A7074 A7073
A7072))
SIMPLE-WARNING-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����@�NIL
NIL
()
SIMPLE-WARNING-FORMAT-STRING D1
(L (0 OBJECT)) ����@�NIL
NIL
()
SIMPLE-WARNING---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE SIMPLE-WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SIMPLE-WARNING D1
(L (0 -args-)) �x��e�HkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿g��ILOhag��ð•JkØa°ÉJlÔZ°»ag��ð•KkØa°ÆKlÔ[°¸ag��ð•NkØa°ÀNlÔ^°²�NIL
(103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 SIMPLE-WARNING)
()
type-expand-SIMPLE-WARNING D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE SIMPLE-WARNING))
(PUT (QUOTE SIMPLE-WARNING) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SIMPLE-WARNING))
(LET* ((A7076 (QUOTE SIMPLE-WARNING)) (A7077 (QUOTE (WARNING)))) (PUT A7076 (QUOTE
%%%%INCLUDED-STRUCTURE) A7077))
(PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-SIMPLE-WARNING))
(PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)
(FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T))))
(PUTPROP (QUOTE SIMPLE-WARNING) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (FORMAT-ARGUMENTS FORMAT-STRING)))
(FIX-INHERITANCE-LINKS (QUOTE SIMPLE-WARNING) (QUOTE WARNING))
(LET* ((A7080 (QUOTE SIMPLE-WARNING)) (A7079 (QUOTE %%CONDITION-HANDLER)) (A7078 NIL)) (PUTPROP A7080
A7079 A7078))
|SIMPLE-WARNING report method| D1
(P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) �2��@ ��@ ��"g��l»ºiHI°dýKkØ[n�ñ–hl4
��¿µìKJ�(41 \LISPERROR 7 SIMPLE-WARNING-FORMAT-ARGUMENTS 3 SIMPLE-WARNING-FORMAT-STRING)
(13 CL:FORMAT)
()
(LET* ((A7083 (QUOTE SIMPLE-WARNING)) (A7082 (QUOTE %%CONDITION-REPORTER)) (A7081 (FUNCTION
|SIMPLE-WARNING report method|))) (PUTPROP A7083 A7082 A7081))
OLD-BREAK1-LIST D1
(L (0 OBJECT)) ����@�NIL
NIL
()
OLD-BREAK1---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE OLD-BREAK1) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-OLD-BREAK1 D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :LIST 47 :--DUMMY-SLOT-- 36 OLD-BREAK1)
()
type-expand-OLD-BREAK1 D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE OLD-BREAK1))
(PUT (QUOTE OLD-BREAK1) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-OLD-BREAK1))
(LET* ((A7085 (QUOTE OLD-BREAK1)) (A7086 (QUOTE (CONDITION)))) (PUT A7085 (QUOTE
%%%%INCLUDED-STRUCTURE) A7086))
(PUTPROP (QUOTE OLD-BREAK1) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-OLD-BREAK1))
(PUTPROP (QUOTE OLD-BREAK1) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE OLD-BREAK1) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
LIST NIL :READ-ONLY T))))
(PUTPROP (QUOTE OLD-BREAK1) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (LIST)))
(FIX-INHERITANCE-LINKS (QUOTE OLD-BREAK1) (QUOTE CONDITION))
(LET* ((A7089 (QUOTE OLD-BREAK1)) (A7088 (QUOTE %%CONDITION-HANDLER)) (A7087 NIL)) (PUTPROP A7089
A7088 A7087))
|OLD-BREAK1 report method| D1
(P 5 MESS3 P 4 MESS2 P 3 A7464 P 2 MESS1 P 1 A7463 P 0 LIST I 1 *STANDARD-OUTPUT* I 0 CONDITION) � ��@ ��QHYºI[¼K½JLM ���(25 ERRORMESS1 3 OLD-BREAK1-LIST)
NIL
()
(LET* ((A7092 (QUOTE OLD-BREAK1)) (A7091 (QUOTE %%CONDITION-REPORTER)) (A7090 (FUNCTION
|OLD-BREAK1 report method|))) (PUTPROP A7092 A7091 A7090))
SERIOUS-CONDITION---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE SERIOUS-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SERIOUS-CONDITION D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 SERIOUS-CONDITION)
()
type-expand-SERIOUS-CONDITION D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE SERIOUS-CONDITION))
(PUT (QUOTE SERIOUS-CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SERIOUS-CONDITION))
(LET* ((A7094 (QUOTE SERIOUS-CONDITION)) (A7095 (QUOTE (CONDITION)))) (PUT A7094 (QUOTE
%%%%INCLUDED-STRUCTURE) A7095))
(PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-SERIOUS-CONDITION))
(PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY
T))))
(PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE SERIOUS-CONDITION) (QUOTE CONDITION))
(LET* ((A7098 (QUOTE SERIOUS-CONDITION)) (A7097 (QUOTE %%CONDITION-HANDLER)) (A7096 NIL)) (PUTPROP
A7098 A7097 A7096))
|SERIOUS-CONDITION report method| D1
(I 1 *STANDARD-OUTPUT* I 0 CONDITION) ����io���@ �� ���(11 CL:FORMAT 8 FAKE-TYPE-OF-FOR-CONDITIONS)
NIL
( 4 "Serious condition ~S occurred.")
(LET* ((A7101 (QUOTE SERIOUS-CONDITION)) (A7100 (QUOTE %%CONDITION-REPORTER)) (A7099 (FUNCTION
|SERIOUS-CONDITION report method|))) (PUTPROP A7101 A7100 A7099))
ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ERROR D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 ERROR)
()
type-expand-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE ERROR))
(PUT (QUOTE ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ERROR))
(LET* ((A7103 (QUOTE ERROR)) (A7104 (QUOTE (SERIOUS-CONDITION)))) (PUT A7103 (QUOTE
%%%%INCLUDED-STRUCTURE) A7104))
(PUTPROP (QUOTE ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-ERROR))
(PUTPROP (QUOTE ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T))))
(PUTPROP (QUOTE ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE ERROR) (QUOTE SERIOUS-CONDITION))
(LET* ((A7107 (QUOTE ERROR)) (A7106 (QUOTE %%CONDITION-HANDLER)) (A7105 NIL)) (PUTPROP A7107 A7106
A7105))
(LET* ((A7110 (QUOTE ERROR)) (A7109 (QUOTE %%CONDITION-REPORTER)) (A7108 NIL)) (PUTPROP A7110 A7109
A7108))
SIMPLE-ERROR-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����@�NIL
NIL
()
SIMPLE-ERROR-FORMAT-STRING D1
(L (0 OBJECT)) ����@�NIL
NIL
()
SIMPLE-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE SIMPLE-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SIMPLE-ERROR D1
(L (0 -args-)) �x��e�HkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿g��ILOhag��ð•JkØa°ÉJlÔZ°»ag��ð•KkØa°ÆKlÔ[°¸ag��ð•NkØa°ÀNlÔ^°²�NIL
(103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 SIMPLE-ERROR)
()
type-expand-SIMPLE-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE SIMPLE-ERROR))
(PUT (QUOTE SIMPLE-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-SIMPLE-ERROR))
(LET* ((A7112 (QUOTE SIMPLE-ERROR)) (A7113 (QUOTE (ERROR)))) (PUT A7112 (QUOTE %%%%INCLUDED-STRUCTURE)
A7113))
(PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-SIMPLE-ERROR))
(PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T))))
(PUTPROP (QUOTE SIMPLE-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (FORMAT-ARGUMENTS FORMAT-STRING)))
(FIX-INHERITANCE-LINKS (QUOTE SIMPLE-ERROR) (QUOTE ERROR))
(LET* ((A7116 (QUOTE SIMPLE-ERROR)) (A7115 (QUOTE %%CONDITION-HANDLER)) (A7114 NIL)) (PUTPROP A7116
A7115 A7114))
|SIMPLE-ERROR report method| D1
(P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) �2��@ ��@ ��"g��l»ºiHI°dýKkØ[n�ñ–hl4
��¿µìKJ�(41 \LISPERROR 7 SIMPLE-ERROR-FORMAT-ARGUMENTS 3 SIMPLE-ERROR-FORMAT-STRING)
(13 CL:FORMAT)
()
(LET* ((A7119 (QUOTE SIMPLE-ERROR)) (A7118 (QUOTE %%CONDITION-REPORTER)) (A7117 (FUNCTION
|SIMPLE-ERROR report method|))) (PUTPROP A7119 A7118 A7117))
OLD-INTERLISP-ERROR-MESSAGE D1
(L (0 OBJECT)) ����@�NIL
NIL
()
OLD-INTERLISP-ERROR-NUMBER D1
(L (0 OBJECT)) ����@�NIL
NIL
()
OLD-INTERLISP-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE OLD-INTERLISP-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-OLD-INTERLISP-ERROR D1
(L (0 -args-)) �x��e�HkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿g��ILOhag��ð•JkØa°ÉJlÔZ°»ag��ð•KkØa°ÆKlÔ[°¸ag��ð•NkØa°ÀNlÔ^°²�NIL
(103 :MESSAGE 84 :NUMBER 65 :--DUMMY-SLOT-- 51 OLD-INTERLISP-ERROR)
()
type-expand-OLD-INTERLISP-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE OLD-INTERLISP-ERROR))
(PUT (QUOTE OLD-INTERLISP-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-OLD-INTERLISP-ERROR))
(LET* ((A7121 (QUOTE OLD-INTERLISP-ERROR)) (A7122 (QUOTE (ERROR)))) (PUT A7121 (QUOTE
%%%%INCLUDED-STRUCTURE) A7122))
(PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-OLD-INTERLISP-ERROR))
(PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL
:READ-ONLY T) (NUMBER NIL :READ-ONLY T) (MESSAGE NIL :READ-ONLY T))))
(PUTPROP (QUOTE OLD-INTERLISP-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (MESSAGE NUMBER)))
(FIX-INHERITANCE-LINKS (QUOTE OLD-INTERLISP-ERROR) (QUOTE ERROR))
(LET* ((A7125 (QUOTE OLD-INTERLISP-ERROR)) (A7124 (QUOTE %%CONDITION-HANDLER)) (A7123 NIL)) (PUTPROP
A7125 A7124 A7123))
|OLD-INTERLISP-ERROR report method| D1
(P 4 MESS2 P 3 MESS1 P 2 A7465 P 1 MESSAGE P 0 NUMBER I 1 *STANDARD-OUTPUT* I 0 CONDITION) �/��@ ��@ ��Hdlð²¿I!J»J¼KLg�� ��Ih ���(44 ERRORM 36 ERRORMESS1 7 OLD-INTERLISP-ERROR-MESSAGE 3 OLD-INTERLISP-ERROR-NUMBER)
(33 ERROR)
()
(LET* ((A7128 (QUOTE OLD-INTERLISP-ERROR)) (A7127 (QUOTE %%CONDITION-REPORTER)) (A7126 (FUNCTION
|OLD-INTERLISP-ERROR report method|))) (PUTPROP A7128 A7127 A7126))
ASSERTION-FAILED-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����@�NIL
NIL
()
ASSERTION-FAILED-FORMAT-STRING D1
(L (0 OBJECT)) ����@�NIL
NIL
()
ASSERTION-FAILED---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE ASSERTION-FAILED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ASSERTION-FAILED D1
(L (0 -args-)) �x��e�HkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿g��ILOhag��ð•JkØa°ÉJlÔZ°»ag��ð•KkØa°ÆKlÔ[°¸ag��ð•NkØa°ÀNlÔ^°²�NIL
(103 :FORMAT-ARGUMENTS 84 :FORMAT-STRING 65 :--DUMMY-SLOT-- 51 ASSERTION-FAILED)
()
type-expand-ASSERTION-FAILED D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE ASSERTION-FAILED))
(PUT (QUOTE ASSERTION-FAILED) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ASSERTION-FAILED))
(LET* ((A7130 (QUOTE ASSERTION-FAILED)) (A7131 (QUOTE (SIMPLE-ERROR)))) (PUT A7130 (QUOTE
%%%%INCLUDED-STRUCTURE) A7131))
(PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-ASSERTION-FAILED))
(PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T
) (FORMAT-STRING NIL :READ-ONLY T) (FORMAT-ARGUMENTS NIL :READ-ONLY T))))
(PUTPROP (QUOTE ASSERTION-FAILED) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE ASSERTION-FAILED) (QUOTE SIMPLE-ERROR))
(LET* ((A7134 (QUOTE ASSERTION-FAILED)) (A7133 (QUOTE %%CONDITION-HANDLER)) (A7132 NIL)) (PUTPROP
A7134 A7133 A7132))
|ASSERTION-FAILED report method| D1
(P 3 CNT P 2 FN P 1 FORMAT-ARGUMENTS P 0 FORMAT-STRING I 1 *STANDARD-OUTPUT* I 0 CONDITION) �8��@ ��@ ��"g��l»ºiHµo���I°dýKkØ[n�ñ–hl4
��¿µìKJ�(47 \LISPERROR 7 ASSERTION-FAILED-FORMAT-ARGUMENTS 3 ASSERTION-FAILED-FORMAT-STRING)
(13 CL:FORMAT)
( 25 "Assertion failed.")
(LET* ((A7137 (QUOTE ASSERTION-FAILED)) (A7136 (QUOTE %%CONDITION-REPORTER)) (A7135 (FUNCTION
|ASSERTION-FAILED report method|))) (PUTPROP A7137 A7136 A7135))
CELL-ERROR-NAME D1
(L (0 OBJECT)) ����@�NIL
NIL
()
CELL-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE CELL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CELL-ERROR D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :NAME 47 :--DUMMY-SLOT-- 36 CELL-ERROR)
()
type-expand-CELL-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE CELL-ERROR))
(PUT (QUOTE CELL-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-CELL-ERROR))
(LET* ((A7139 (QUOTE CELL-ERROR)) (A7140 (QUOTE (ERROR)))) (PUT A7139 (QUOTE %%%%INCLUDED-STRUCTURE)
A7140))
(PUTPROP (QUOTE CELL-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-CELL-ERROR))
(PUTPROP (QUOTE CELL-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE CELL-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
NAME NIL :READ-ONLY T))))
(PUTPROP (QUOTE CELL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (NAME)))
(FIX-INHERITANCE-LINKS (QUOTE CELL-ERROR) (QUOTE ERROR))
(LET* ((A7143 (QUOTE CELL-ERROR)) (A7142 (QUOTE %%CONDITION-HANDLER)) (A7141 NIL)) (PUTPROP A7143
A7142 A7141))
(LET* ((A7146 (QUOTE CELL-ERROR)) (A7145 (QUOTE %%CONDITION-REPORTER)) (A7144 NIL)) (PUTPROP A7146
A7145 A7144))
UNBOUND-VARIABLE-NAME D1
(L (0 OBJECT)) ����@�NIL
NIL
()
UNBOUND-VARIABLE---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE UNBOUND-VARIABLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-UNBOUND-VARIABLE D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :NAME 47 :--DUMMY-SLOT-- 36 UNBOUND-VARIABLE)
()
type-expand-UNBOUND-VARIABLE D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE UNBOUND-VARIABLE))
(PUT (QUOTE UNBOUND-VARIABLE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-UNBOUND-VARIABLE))
(LET* ((A7148 (QUOTE UNBOUND-VARIABLE)) (A7149 (QUOTE (CELL-ERROR)))) (PUT A7148 (QUOTE
%%%%INCLUDED-STRUCTURE) A7149))
(PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-UNBOUND-VARIABLE))
(PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T
) (NAME NIL :READ-ONLY T))))
(PUTPROP (QUOTE UNBOUND-VARIABLE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE UNBOUND-VARIABLE) (QUOTE CELL-ERROR))
(LET* ((A7152 (QUOTE UNBOUND-VARIABLE)) (A7151 (QUOTE %%CONDITION-HANDLER)) (A7150 NIL)) (PUTPROP
A7152 A7151 A7150))
|UNBOUND-VARIABLE report method| D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 UNBOUND-VARIABLE-NAME)
NIL
( 11 "Unbound variable: ~S.")
(LET* ((A7155 (QUOTE UNBOUND-VARIABLE)) (A7154 (QUOTE %%CONDITION-REPORTER)) (A7153 (FUNCTION
|UNBOUND-VARIABLE report method|))) (PUTPROP A7155 A7154 A7153))
UNDEFINED-FUNCTION-NAME D1
(L (0 OBJECT)) ����@�NIL
NIL
()
UNDEFINED-FUNCTION---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE UNDEFINED-FUNCTION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-UNDEFINED-FUNCTION D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :NAME 47 :--DUMMY-SLOT-- 36 UNDEFINED-FUNCTION)
()
type-expand-UNDEFINED-FUNCTION D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE UNDEFINED-FUNCTION))
(PUT (QUOTE UNDEFINED-FUNCTION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-UNDEFINED-FUNCTION))
(LET* ((A7157 (QUOTE UNDEFINED-FUNCTION)) (A7158 (QUOTE (CELL-ERROR)))) (PUT A7157 (QUOTE
%%%%INCLUDED-STRUCTURE) A7158))
(PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-UNDEFINED-FUNCTION))
(PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY
T) (NAME NIL :READ-ONLY T))))
(PUTPROP (QUOTE UNDEFINED-FUNCTION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE UNDEFINED-FUNCTION) (QUOTE CELL-ERROR))
(LET* ((A7161 (QUOTE UNDEFINED-FUNCTION)) (A7160 (QUOTE %%CONDITION-HANDLER)) (A7159 NIL)) (PUTPROP
A7161 A7160 A7159))
|UNDEFINED-FUNCTION report method| D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 UNDEFINED-FUNCTION-NAME)
NIL
( 11 "Undefined function: ~S.")
(LET* ((A7164 (QUOTE UNDEFINED-FUNCTION)) (A7163 (QUOTE %%CONDITION-REPORTER)) (A7162 (FUNCTION
|UNDEFINED-FUNCTION report method|))) (PUTPROP A7164 A7163 A7162))
NO-PROCEED-TEST-NAME D1
(L (0 OBJECT)) ����@�NIL
NIL
()
NO-PROCEED-TEST---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE NO-PROCEED-TEST) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-NO-PROCEED-TEST D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :NAME 47 :--DUMMY-SLOT-- 36 NO-PROCEED-TEST)
()
type-expand-NO-PROCEED-TEST D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE NO-PROCEED-TEST))
(PUT (QUOTE NO-PROCEED-TEST) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-NO-PROCEED-TEST))
(LET* ((A7166 (QUOTE NO-PROCEED-TEST)) (A7167 (QUOTE (UNDEFINED-FUNCTION)))) (PUT A7166 (QUOTE
%%%%INCLUDED-STRUCTURE) A7167))
(PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-NO-PROCEED-TEST))
(PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)
(NAME NIL :READ-ONLY T))))
(PUTPROP (QUOTE NO-PROCEED-TEST) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE NO-PROCEED-TEST) (QUOTE UNDEFINED-FUNCTION))
(LET* ((A7170 (QUOTE NO-PROCEED-TEST)) (A7169 (QUOTE %%CONDITION-HANDLER)) (A7168 NIL)) (PUTPROP A7170
A7169 A7168))
|NO-PROCEED-TEST report method| D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 NO-PROCEED-TEST-NAME)
NIL
( 11 "No test specified for proceed case: ~S.")
(LET* ((A7173 (QUOTE NO-PROCEED-TEST)) (A7172 (QUOTE %%CONDITION-REPORTER)) (A7171 (FUNCTION
|NO-PROCEED-TEST report method|))) (PUTPROP A7173 A7172 A7171))
INDEX-BOUNDS-ERROR-INDEX D1
(L (0 OBJECT)) ����@�NIL
NIL
()
INDEX-BOUNDS-ERROR-NAME D1
(L (0 OBJECT)) ����@�NIL
NIL
()
INDEX-BOUNDS-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE INDEX-BOUNDS-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-INDEX-BOUNDS-ERROR D1
(L (0 -args-)) �x��e�HkJdIó²1¿haHk»ºKdJó²4¿h¼Hk¾½NdMó²:¿h_¿g��ILOhag��ð•JkØa°ÉJlÔZ°»ag��ð•KkØa°ÆKlÔ[°¸ag��ð•NkØa°ÀNlÔ^°²�NIL
(103 :INDEX 84 :NAME 65 :--DUMMY-SLOT-- 51 INDEX-BOUNDS-ERROR)
()
type-expand-INDEX-BOUNDS-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE INDEX-BOUNDS-ERROR))
(PUT (QUOTE INDEX-BOUNDS-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-INDEX-BOUNDS-ERROR))
(LET* ((A7175 (QUOTE INDEX-BOUNDS-ERROR)) (A7176 (QUOTE (CELL-ERROR)))) (PUT A7175 (QUOTE
%%%%INCLUDED-STRUCTURE) A7176))
(PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-INDEX-BOUNDS-ERROR))
(PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY
T) (NAME NIL :READ-ONLY T) (INDEX NIL :READ-ONLY T))))
(PUTPROP (QUOTE INDEX-BOUNDS-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (INDEX)))
(FIX-INHERITANCE-LINKS (QUOTE INDEX-BOUNDS-ERROR) (QUOTE CELL-ERROR))
(LET* ((A7179 (QUOTE INDEX-BOUNDS-ERROR)) (A7178 (QUOTE %%CONDITION-HANDLER)) (A7177 NIL)) (PUTPROP
A7179 A7178 A7177))
|INDEX-BOUNDS-ERROR report method| D1
(P 1 INDEX P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ��@ ��io���I ���(19 CL:FORMAT 7 INDEX-BOUNDS-ERROR-INDEX 3 INDEX-BOUNDS-ERROR-NAME)
NIL
( 15 "Index out of bounds: ~D.")
(LET* ((A7182 (QUOTE INDEX-BOUNDS-ERROR)) (A7181 (QUOTE %%CONDITION-REPORTER)) (A7180 (FUNCTION
|INDEX-BOUNDS-ERROR report method|))) (PUTPROP A7182 A7181 A7180))
PRETTY-TYPE-NAME D1
(L (0 TYPESPEC)) �
���o���@
���(7 CONCAT)
NIL
( 3 "a ")
TYPE-MISMATCH-MESSAGE D1
(L (0 OBJECT)) � ���@�NIL
NIL
()
TYPE-MISMATCH-DESIRED-TYPE D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TYPE-MISMATCH-VALUE D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TYPE-MISMATCH-NAME D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TYPE-MISMATCH---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE TYPE-MISMATCH) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-TYPE-MISMATCH D1
(L (0 -args-)) �Ö��e�HkJdIó²a¿hÁ
Hk»ºKdJó²d¿h¼Hk¾½NdMó²j¿h_¿Hk_¿_¿OdOó²h¿h_¿Hk_¿_¿OdOó²j¿h_¿g��ILOOOhag��ð•JkØa°™JlÔZ°‹ag��ð•KkØa°–KlÔ[°ˆag��ð•NkØa°NlÔ^°‚ag��ð–OkØa°‘OlÔ_±ÿ€ag��ð–OkØa°OlÔ_±ÿ~�NIL
(193 :MESSAGE 170 :DESIRED-TYPE 151 :VALUE 132 :NAME 113 :--DUMMY-SLOT-- 93 TYPE-MISMATCH)
()
type-expand-TYPE-MISMATCH D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE TYPE-MISMATCH))
(PUT (QUOTE TYPE-MISMATCH) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-TYPE-MISMATCH))
(LET* ((A7184 (QUOTE TYPE-MISMATCH)) (A7185 (QUOTE (CELL-ERROR)))) (PUT A7184 (QUOTE
%%%%INCLUDED-STRUCTURE) A7185))
(PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-TYPE-MISMATCH))
(PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
NAME NIL :READ-ONLY T) (VALUE NIL :READ-ONLY T) (DESIRED-TYPE NIL :READ-ONLY T) (MESSAGE NIL
:READ-ONLY T))))
(PUTPROP (QUOTE TYPE-MISMATCH) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (MESSAGE DESIRED-TYPE VALUE)))
(FIX-INHERITANCE-LINKS (QUOTE TYPE-MISMATCH) (QUOTE CELL-ERROR))
(LET* ((A7188 (QUOTE TYPE-MISMATCH)) (A7187 (QUOTE %%CONDITION-HANDLER)) (A7186 NIL)) (PUTPROP A7188
A7187 A7186))
|TYPE-MISMATCH report method| D1
(P 3 MESSAGE P 2 DESIRED-TYPE P 1 VALUE P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) �'��@ ��@ ��@ ��@ ��io���HIKµJ ��
���(36 CL:FORMAT 32 PRETTY-TYPE-NAME 15 TYPE-MISMATCH-MESSAGE 11 TYPE-MISMATCH-DESIRED-TYPE 7 TYPE-MISMATCH-VALUE 3 TYPE-MISMATCH-NAME)
NIL
( 23 "The value of ~A, ~A, is not ~A.")
(LET* ((A7191 (QUOTE TYPE-MISMATCH)) (A7190 (QUOTE %%CONDITION-REPORTER)) (A7189 (FUNCTION
|TYPE-MISMATCH report method|))) (PUTPROP A7191 A7190 A7189))
CONTROL-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE CONTROL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CONTROL-ERROR D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 CONTROL-ERROR)
()
type-expand-CONTROL-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE CONTROL-ERROR))
(PUT (QUOTE CONTROL-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-CONTROL-ERROR))
(LET* ((A7193 (QUOTE CONTROL-ERROR)) (A7194 (QUOTE (ERROR)))) (PUT A7193 (QUOTE %%%%INCLUDED-STRUCTURE
) A7194))
(PUTPROP (QUOTE CONTROL-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-CONTROL-ERROR))
(PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)))
)
(PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE CONTROL-ERROR) (QUOTE ERROR))
(LET* ((A7197 (QUOTE CONTROL-ERROR)) (A7196 (QUOTE %%CONDITION-HANDLER)) (A7195 NIL)) (PUTPROP A7197
A7196 A7195))
(LET* ((A7200 (QUOTE CONTROL-ERROR)) (A7199 (QUOTE %%CONDITION-REPORTER)) (A7198 NIL)) (PUTPROP A7200
A7199 A7198))
ILLEGAL-GO-TAG D1
(L (0 OBJECT)) ����@�NIL
NIL
()
ILLEGAL-GO---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE ILLEGAL-GO) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ILLEGAL-GO D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :TAG 47 :--DUMMY-SLOT-- 36 ILLEGAL-GO)
()
type-expand-ILLEGAL-GO D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE ILLEGAL-GO))
(PUT (QUOTE ILLEGAL-GO) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ILLEGAL-GO))
(LET* ((A7202 (QUOTE ILLEGAL-GO)) (A7203 (QUOTE (CONTROL-ERROR)))) (PUT A7202 (QUOTE
%%%%INCLUDED-STRUCTURE) A7203))
(PUTPROP (QUOTE ILLEGAL-GO) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-ILLEGAL-GO))
(PUTPROP (QUOTE ILLEGAL-GO) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE ILLEGAL-GO) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (TAG
NIL :READ-ONLY T))))
(PUTPROP (QUOTE ILLEGAL-GO) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (TAG)))
(FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-GO) (QUOTE CONTROL-ERROR))
(LET* ((A7206 (QUOTE ILLEGAL-GO)) (A7205 (QUOTE %%CONDITION-HANDLER)) (A7204 NIL)) (PUTPROP A7206
A7205 A7204))
|ILLEGAL-GO report method| D1
(P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 ILLEGAL-GO-TAG)
NIL
( 11 "GO to a non-existant tag: ~S.")
(LET* ((A7209 (QUOTE ILLEGAL-GO)) (A7208 (QUOTE %%CONDITION-REPORTER)) (A7207 (FUNCTION
|ILLEGAL-GO report method|))) (PUTPROP A7209 A7208 A7207))
ILLEGAL-RETURN-TAG D1
(L (0 OBJECT)) ����@�NIL
NIL
()
ILLEGAL-RETURN---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE ILLEGAL-RETURN) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ILLEGAL-RETURN D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :TAG 47 :--DUMMY-SLOT-- 36 ILLEGAL-RETURN)
()
type-expand-ILLEGAL-RETURN D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE ILLEGAL-RETURN))
(PUT (QUOTE ILLEGAL-RETURN) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ILLEGAL-RETURN))
(LET* ((A7211 (QUOTE ILLEGAL-RETURN)) (A7212 (QUOTE (CONTROL-ERROR)))) (PUT A7211 (QUOTE
%%%%INCLUDED-STRUCTURE) A7212))
(PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-ILLEGAL-RETURN))
(PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T)
(TAG NIL :READ-ONLY T))))
(PUTPROP (QUOTE ILLEGAL-RETURN) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (TAG)))
(FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-RETURN) (QUOTE CONTROL-ERROR))
(LET* ((A7215 (QUOTE ILLEGAL-RETURN)) (A7214 (QUOTE %%CONDITION-HANDLER)) (A7213 NIL)) (PUTPROP A7215
A7214 A7213))
|ILLEGAL-RETURN report method| D1
(P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 ILLEGAL-RETURN-TAG)
NIL
( 11 "RETURN to non-existant block: ~S.")
(LET* ((A7218 (QUOTE ILLEGAL-RETURN)) (A7217 (QUOTE %%CONDITION-REPORTER)) (A7216 (FUNCTION
|ILLEGAL-RETURN report method|))) (PUTPROP A7218 A7217 A7216))
ILLEGAL-THROW-TAG D1
(L (0 OBJECT)) ����@�NIL
NIL
()
ILLEGAL-THROW---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE ILLEGAL-THROW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ILLEGAL-THROW D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :TAG 47 :--DUMMY-SLOT-- 36 ILLEGAL-THROW)
()
type-expand-ILLEGAL-THROW D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE ILLEGAL-THROW))
(PUT (QUOTE ILLEGAL-THROW) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-ILLEGAL-THROW))
(LET* ((A7220 (QUOTE ILLEGAL-THROW)) (A7221 (QUOTE (CONTROL-ERROR)))) (PUT A7220 (QUOTE
%%%%INCLUDED-STRUCTURE) A7221))
(PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-ILLEGAL-THROW))
(PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
TAG NIL :READ-ONLY T))))
(PUTPROP (QUOTE ILLEGAL-THROW) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (TAG)))
(FIX-INHERITANCE-LINKS (QUOTE ILLEGAL-THROW) (QUOTE CONTROL-ERROR))
(LET* ((A7224 (QUOTE ILLEGAL-THROW)) (A7223 (QUOTE %%CONDITION-HANDLER)) (A7222 NIL)) (PUTPROP A7224
A7223 A7222))
|ILLEGAL-THROW report method| D1
(P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 ILLEGAL-THROW-TAG)
NIL
( 11 "Tag for THROW not found: ~S.")
(LET* ((A7227 (QUOTE ILLEGAL-THROW)) (A7226 (QUOTE %%CONDITION-REPORTER)) (A7225 (FUNCTION
|ILLEGAL-THROW report method|))) (PUTPROP A7227 A7226 A7225))
BAD-PROCEED-CASE-NAME D1
(L (0 OBJECT)) ����@�NIL
NIL
()
BAD-PROCEED-CASE---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE BAD-PROCEED-CASE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-BAD-PROCEED-CASE D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :NAME 47 :--DUMMY-SLOT-- 36 BAD-PROCEED-CASE)
()
type-expand-BAD-PROCEED-CASE D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE BAD-PROCEED-CASE))
(PUT (QUOTE BAD-PROCEED-CASE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-BAD-PROCEED-CASE))
(LET* ((A7229 (QUOTE BAD-PROCEED-CASE)) (A7230 (QUOTE (CONTROL-ERROR)))) (PUT A7229 (QUOTE
%%%%INCLUDED-STRUCTURE) A7230))
(PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-BAD-PROCEED-CASE))
(PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T
) (NAME NIL :READ-ONLY T))))
(PUTPROP (QUOTE BAD-PROCEED-CASE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (NAME)))
(FIX-INHERITANCE-LINKS (QUOTE BAD-PROCEED-CASE) (QUOTE CONTROL-ERROR))
(LET* ((A7233 (QUOTE BAD-PROCEED-CASE)) (A7232 (QUOTE %%CONDITION-HANDLER)) (A7231 NIL)) (PUTPROP
A7233 A7232 A7231))
|BAD-PROCEED-CASE report method| D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 BAD-PROCEED-CASE-NAME)
NIL
( 11 "Proceed case ~S is not currently active.")
(LET* ((A7236 (QUOTE BAD-PROCEED-CASE)) (A7235 (QUOTE %%CONDITION-REPORTER)) (A7234 (FUNCTION
|BAD-PROCEED-CASE report method|))) (PUTPROP A7236 A7235 A7234))
CALL-ERROR-CALLEE D1
(L (0 OBJECT)) ����@�NIL
NIL
()
CALL-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE CALL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CALL-ERROR D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :CALLEE 47 :--DUMMY-SLOT-- 36 CALL-ERROR)
()
type-expand-CALL-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE CALL-ERROR))
(PUT (QUOTE CALL-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-CALL-ERROR))
(LET* ((A7238 (QUOTE CALL-ERROR)) (A7239 (QUOTE (CONTROL-ERROR)))) (PUT A7238 (QUOTE
%%%%INCLUDED-STRUCTURE) A7239))
(PUTPROP (QUOTE CALL-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-CALL-ERROR))
(PUTPROP (QUOTE CALL-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE CALL-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
CALLEE NIL :READ-ONLY T))))
(PUTPROP (QUOTE CALL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (CALLEE)))
(FIX-INHERITANCE-LINKS (QUOTE CALL-ERROR) (QUOTE CONTROL-ERROR))
(LET* ((A7242 (QUOTE CALL-ERROR)) (A7241 (QUOTE %%CONDITION-HANDLER)) (A7240 NIL)) (PUTPROP A7242
A7241 A7240))
(LET* ((A7245 (QUOTE CALL-ERROR)) (A7244 (QUOTE %%CONDITION-REPORTER)) (A7243 NIL)) (PUTPROP A7245
A7244 A7243))
TOO-MANY-ARGUMENTS-ACTUAL D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TOO-MANY-ARGUMENTS-MAXIMUM D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TOO-MANY-ARGUMENTS-CALLEE D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TOO-MANY-ARGUMENTS---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE TOO-MANY-ARGUMENTS) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-TOO-MANY-ARGUMENTS D1
(L (0 -args-)) �¦ ��e�HkJdIó²I¿h‘
Hk»ºKdJó²L¿h¼Hk¾½NdMó²R¿h_¿Hk_¿_¿OdOó²P¿h_¿g��ILOOhag��ð•JkØa°±JlÔZ°£ag��ð•KkØa°®KlÔ[° ag��ð•NkØa°¨NlÔ^°šag��ð–OkØa°©OlÔ_°˜�NIL
(146 :ACTUAL 127 :MAXIMUM 108 :CALLEE 89 :--DUMMY-SLOT-- 72 TOO-MANY-ARGUMENTS)
()
type-expand-TOO-MANY-ARGUMENTS D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE TOO-MANY-ARGUMENTS))
(PUT (QUOTE TOO-MANY-ARGUMENTS) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-TOO-MANY-ARGUMENTS))
(LET* ((A7247 (QUOTE TOO-MANY-ARGUMENTS)) (A7248 (QUOTE (CALL-ERROR)))) (PUT A7247 (QUOTE
%%%%INCLUDED-STRUCTURE) A7248))
(PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-TOO-MANY-ARGUMENTS))
(PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY
T) (CALLEE NIL :READ-ONLY T) (MAXIMUM NIL :READ-ONLY T) (ACTUAL NIL :READ-ONLY T))))
(PUTPROP (QUOTE TOO-MANY-ARGUMENTS) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (ACTUAL MAXIMUM)))
(FIX-INHERITANCE-LINKS (QUOTE TOO-MANY-ARGUMENTS) (QUOTE CALL-ERROR))
(LET* ((A7251 (QUOTE TOO-MANY-ARGUMENTS)) (A7250 (QUOTE %%CONDITION-HANDLER)) (A7249 NIL)) (PUTPROP
A7251 A7250 A7249))
|TOO-MANY-ARGUMENTS report method| D1
(P 2 ACTUAL P 1 MAXIMUM P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) �+��@ ��@ ��@ ��IžJœio���HJI
��io���H ���(40 CL:FORMAT 30 CL:FORMAT 11 TOO-MANY-ARGUMENTS-ACTUAL 7 TOO-MANY-ARGUMENTS-MAXIMUM 3 TOO-MANY-ARGUMENTS-CALLEE)
NIL
( 36 "Too many arguments to ~A" 23 "Too many arguments to ~A:~%% ~D ~:*~[were~;was~:;were~] given but at most ~D ~:*~[are~;is~:;are~] accepted")
(LET* ((A7254 (QUOTE TOO-MANY-ARGUMENTS)) (A7253 (QUOTE %%CONDITION-REPORTER)) (A7252 (FUNCTION
|TOO-MANY-ARGUMENTS report method|))) (PUTPROP A7254 A7253 A7252))
TOO-FEW-ARGUMENTS-ACTUAL D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TOO-FEW-ARGUMENTS-MINIMUM D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TOO-FEW-ARGUMENTS-CALLEE D1
(L (0 OBJECT)) ����@�NIL
NIL
()
TOO-FEW-ARGUMENTS---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE TOO-FEW-ARGUMENTS) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-TOO-FEW-ARGUMENTS D1
(L (0 -args-)) �¦ ��e�HkJdIó²I¿h‘
Hk»ºKdJó²L¿h¼Hk¾½NdMó²R¿h_¿Hk_¿_¿OdOó²P¿h_¿g��ILOOhag��ð•JkØa°±JlÔZ°£ag��ð•KkØa°®KlÔ[° ag��ð•NkØa°¨NlÔ^°šag��ð–OkØa°©OlÔ_°˜�NIL
(146 :ACTUAL 127 :MINIMUM 108 :CALLEE 89 :--DUMMY-SLOT-- 72 TOO-FEW-ARGUMENTS)
()
type-expand-TOO-FEW-ARGUMENTS D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE TOO-FEW-ARGUMENTS))
(PUT (QUOTE TOO-FEW-ARGUMENTS) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-TOO-FEW-ARGUMENTS))
(LET* ((A7256 (QUOTE TOO-FEW-ARGUMENTS)) (A7257 (QUOTE (CALL-ERROR)))) (PUT A7256 (QUOTE
%%%%INCLUDED-STRUCTURE) A7257))
(PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-TOO-FEW-ARGUMENTS))
(PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY
T) (CALLEE NIL :READ-ONLY T) (MINIMUM NIL :READ-ONLY T) (ACTUAL NIL :READ-ONLY T))))
(PUTPROP (QUOTE TOO-FEW-ARGUMENTS) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (ACTUAL MINIMUM)))
(FIX-INHERITANCE-LINKS (QUOTE TOO-FEW-ARGUMENTS) (QUOTE CALL-ERROR))
(LET* ((A7260 (QUOTE TOO-FEW-ARGUMENTS)) (A7259 (QUOTE %%CONDITION-HANDLER)) (A7258 NIL)) (PUTPROP
A7260 A7259 A7258))
|TOO-FEW-ARGUMENTS report method| D1
(P 2 ACTUAL P 1 MINIMUM P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) �+��@ ��@ ��@ ��IžJœio���HJI
��io���H ���(40 CL:FORMAT 30 CL:FORMAT 11 TOO-FEW-ARGUMENTS-ACTUAL 7 TOO-FEW-ARGUMENTS-MINIMUM 3 TOO-FEW-ARGUMENTS-CALLEE)
NIL
( 36 "Too few arguments to ~A" 23 "Too few arguments to ~A:~%% ~D ~:*~[were~;was~:;were~] given but at least ~D ~:*~[are~;is~:;are~] necessary")
(LET* ((A7263 (QUOTE TOO-FEW-ARGUMENTS)) (A7262 (QUOTE %%CONDITION-REPORTER)) (A7261 (FUNCTION
|TOO-FEW-ARGUMENTS report method|))) (PUTPROP A7263 A7262 A7261))
INVALID-ARGUMENT-LIST-CALLEE D1
(L (0 OBJECT)) ����@�NIL
NIL
()
INVALID-ARGUMENT-LIST---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE INVALID-ARGUMENT-LIST) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-INVALID-ARGUMENT-LIST D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :CALLEE 47 :--DUMMY-SLOT-- 36 INVALID-ARGUMENT-LIST)
()
type-expand-INVALID-ARGUMENT-LIST D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE INVALID-ARGUMENT-LIST))
(PUT (QUOTE INVALID-ARGUMENT-LIST) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-INVALID-ARGUMENT-LIST))
(LET* ((A7265 (QUOTE INVALID-ARGUMENT-LIST)) (A7266 (QUOTE (CALL-ERROR)))) (PUT A7265 (QUOTE
%%%%INCLUDED-STRUCTURE) A7266))
(PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE
%%MAKE-INVALID-ARGUMENT-LIST))
(PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL
:READ-ONLY T) (CALLEE NIL :READ-ONLY T))))
(PUTPROP (QUOTE INVALID-ARGUMENT-LIST) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE INVALID-ARGUMENT-LIST) (QUOTE CALL-ERROR))
(LET* ((A7269 (QUOTE INVALID-ARGUMENT-LIST)) (A7268 (QUOTE %%CONDITION-HANDLER)) (A7267 NIL)) (PUTPROP
A7269 A7268 A7267))
|INVALID-ARGUMENT-LIST report method| D1
(P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 INVALID-ARGUMENT-LIST-CALLEE)
NIL
( 11 "~S has an invalid argument list")
(LET* ((A7272 (QUOTE INVALID-ARGUMENT-LIST)) (A7271 (QUOTE %%CONDITION-REPORTER)) (A7270 (FUNCTION
|INVALID-ARGUMENT-LIST report method|))) (PUTPROP A7272 A7271 A7270))
STREAM-ERROR-STREAM D1
(L (0 OBJECT)) ����@�NIL
NIL
()
STREAM-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE STREAM-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STREAM-ERROR D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :STREAM 47 :--DUMMY-SLOT-- 36 STREAM-ERROR)
()
type-expand-STREAM-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE STREAM-ERROR))
(PUT (QUOTE STREAM-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STREAM-ERROR))
(LET* ((A7274 (QUOTE STREAM-ERROR)) (A7275 (QUOTE (ERROR)))) (PUT A7274 (QUOTE %%%%INCLUDED-STRUCTURE)
A7275))
(PUTPROP (QUOTE STREAM-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-STREAM-ERROR))
(PUTPROP (QUOTE STREAM-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE STREAM-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
STREAM NIL :READ-ONLY T))))
(PUTPROP (QUOTE STREAM-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (STREAM)))
(FIX-INHERITANCE-LINKS (QUOTE STREAM-ERROR) (QUOTE ERROR))
(LET* ((A7278 (QUOTE STREAM-ERROR)) (A7277 (QUOTE %%CONDITION-HANDLER)) (A7276 NIL)) (PUTPROP A7278
A7277 A7276))
|STREAM-ERROR report method| D1
(P 0 STREAM I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@ ���io���H ���(15 CL:FORMAT 3 STREAM-ERROR-STREAM)
NIL
( 11 "Stream error on ~S.")
(LET* ((A7281 (QUOTE STREAM-ERROR)) (A7280 (QUOTE %%CONDITION-REPORTER)) (A7279 (FUNCTION
|STREAM-ERROR report method|))) (PUTPROP A7281 A7280 A7279))
READ-ERROR-STREAM D1
(L (0 OBJECT)) ����@�NIL
NIL
()
READ-ERROR---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE READ-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-READ-ERROR D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :STREAM 47 :--DUMMY-SLOT-- 36 READ-ERROR)
()
type-expand-READ-ERROR D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE READ-ERROR))
(PUT (QUOTE READ-ERROR) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-READ-ERROR))
(LET* ((A7283 (QUOTE READ-ERROR)) (A7284 (QUOTE (STREAM-ERROR)))) (PUT A7283 (QUOTE
%%%%INCLUDED-STRUCTURE) A7284))
(PUTPROP (QUOTE READ-ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-READ-ERROR))
(PUTPROP (QUOTE READ-ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE READ-ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
STREAM NIL :READ-ONLY T))))
(PUTPROP (QUOTE READ-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE READ-ERROR) (QUOTE STREAM-ERROR))
(LET* ((A7287 (QUOTE READ-ERROR)) (A7286 (QUOTE %%CONDITION-HANDLER)) (A7285 NIL)) (PUTPROP A7287
A7286 A7285))
(LET* ((A7290 (QUOTE READ-ERROR)) (A7289 (QUOTE %%CONDITION-REPORTER)) (A7288 NIL)) (PUTPROP A7290
A7289 A7288))
END-OF-FILE-STREAM D1
(L (0 OBJECT)) ����@�NIL
NIL
()
END-OF-FILE---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE END-OF-FILE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-END-OF-FILE D1
(L (0 -args-)) �S��e�HkJdIó² ¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(66 :STREAM 47 :--DUMMY-SLOT-- 36 END-OF-FILE)
()
type-expand-END-OF-FILE D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE END-OF-FILE))
(PUT (QUOTE END-OF-FILE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-END-OF-FILE))
(LET* ((A7292 (QUOTE END-OF-FILE)) (A7293 (QUOTE (READ-ERROR (STREAM NIL :READ-ONLY T))))) (PUT A7292
(QUOTE %%%%INCLUDED-STRUCTURE) A7293))
(PUTPROP (QUOTE END-OF-FILE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-END-OF-FILE))
(PUTPROP (QUOTE END-OF-FILE) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE END-OF-FILE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T) (
STREAM NIL :READ-ONLY T))))
(PUTPROP (QUOTE END-OF-FILE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE END-OF-FILE) (QUOTE READ-ERROR))
(LET* ((A7296 (QUOTE END-OF-FILE)) (A7295 (QUOTE %%CONDITION-HANDLER)) (A7294 NIL)) (PUTPROP A7296
A7295 A7294))
|END-OF-FILE report method| D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "End of file:~%% ~S")
(LET* ((A7299 (QUOTE END-OF-FILE)) (A7298 (QUOTE %%CONDITION-REPORTER)) (A7297 (FUNCTION
|END-OF-FILE report method|))) (PUTPROP A7299 A7298 A7297))
STORAGE-CONDITION---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE STORAGE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STORAGE-CONDITION D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 STORAGE-CONDITION)
()
type-expand-STORAGE-CONDITION D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE STORAGE-CONDITION))
(PUT (QUOTE STORAGE-CONDITION) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STORAGE-CONDITION))
(LET* ((A7301 (QUOTE STORAGE-CONDITION)) (A7302 (QUOTE (SERIOUS-CONDITION)))) (PUT A7301 (QUOTE
%%%%INCLUDED-STRUCTURE) A7302))
(PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-STORAGE-CONDITION))
(PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY
T))))
(PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE STORAGE-CONDITION) (QUOTE SERIOUS-CONDITION))
(LET* ((A7305 (QUOTE STORAGE-CONDITION)) (A7304 (QUOTE %%CONDITION-HANDLER)) (A7303 NIL)) (PUTPROP
A7305 A7304 A7303))
(LET* ((A7308 (QUOTE STORAGE-CONDITION)) (A7307 (QUOTE %%CONDITION-REPORTER)) (A7306 NIL)) (PUTPROP
A7308 A7307 A7306))
STACK-OVERFLOW---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE STACK-OVERFLOW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STACK-OVERFLOW D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 STACK-OVERFLOW)
()
type-expand-STACK-OVERFLOW D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE STACK-OVERFLOW))
(PUT (QUOTE STACK-OVERFLOW) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STACK-OVERFLOW))
(LET* ((A7310 (QUOTE STACK-OVERFLOW)) (A7311 (QUOTE (STORAGE-CONDITION)))) (PUT A7310 (QUOTE
%%%%INCLUDED-STRUCTURE) A7311))
(PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-STACK-OVERFLOW))
(PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY T))
))
(PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE STACK-OVERFLOW) (QUOTE STORAGE-CONDITION))
(LET* ((A7314 (QUOTE STACK-OVERFLOW)) (A7313 (QUOTE %%CONDITION-HANDLER)) (A7312 NIL)) (PUTPROP A7314
A7313 A7312))
|STACK-OVERFLOW report method| D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Stack overflow")
(LET* ((A7317 (QUOTE STACK-OVERFLOW)) (A7316 (QUOTE %%CONDITION-REPORTER)) (A7315 (FUNCTION
|STACK-OVERFLOW report method|))) (PUTPROP A7317 A7316 A7315))
STORAGE-EXHAUSTED---DUMMY-SLOT-- D1
(L (0 OBJECT)) ����@�NIL
NIL
()
(DEFPRINT (QUOTE STORAGE-EXHAUSTED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STORAGE-EXHAUSTED D1
(L (0 -args-)) �0��e�HkJdIó¿hg��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(31 :--DUMMY-SLOT-- 22 STORAGE-EXHAUSTED)
()
type-expand-STORAGE-EXHAUSTED D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE STORAGE-EXHAUSTED))
(PUT (QUOTE STORAGE-EXHAUSTED) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-STORAGE-EXHAUSTED))
(LET* ((A7319 (QUOTE STORAGE-EXHAUSTED)) (A7320 (QUOTE (STORAGE-CONDITION)))) (PUT A7319 (QUOTE
%%%%INCLUDED-STRUCTURE) A7320))
(PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-STORAGE-EXHAUSTED))
(PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((--DUMMY-SLOT-- NIL :READ-ONLY
T))))
(PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE STORAGE-EXHAUSTED) (QUOTE STORAGE-CONDITION))
(LET* ((A7323 (QUOTE STORAGE-EXHAUSTED)) (A7322 (QUOTE %%CONDITION-HANDLER)) (A7321 NIL)) (PUTPROP
A7323 A7322 A7321))
(LET* ((A7326 (QUOTE STORAGE-EXHAUSTED)) (A7325 (QUOTE %%CONDITION-REPORTER)) (A7324 NIL)) (PUTPROP
A7326 A7325 A7324))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *BREAK-ON-WARNINGS*)))
(OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL))
(LET* ((A7327 (QUOTE *BREAK-ON-WARNINGS*)) (A7328 (QUOTE VARIABLE)) (A7329
"If true, calls to WARN will cause a break as well as logging the warning.")) (PROGN (COND ((CL:FBOUNDP
(QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A7327 A7328 A7329))) A7329))
MAKE-CONDITION D1
(L (0 -args-)) �a
��e�ka1Hl2 NdMó²¿OºIg��
��j¼»J°5a_¿OµOh__¿NkÔ^°ÔO&_¿°ôdýLkØ\n�ñ–hl4
��¿µìLK�(88 \LISPERROR 32 GETPROP)
(29 STRUCTURE-CONSTRUCTOR)
()
(LET* ((A7330 (QUOTE MAKE-CONDITION)) (A7331 (QUOTE CL:FUNCTION)) (A7332
"Create a condition object of the specified type.")) (PROGN (COND ((CL:FBOUNDP (QUOTE
SET-DOCUMENTATION)) (SET-DOCUMENTATION A7330 A7331 A7332))) A7332))
SIGNAL D1
(L (0 -args-)) �R ��e�ka!Hl2MdLó²!¿NºIg��J ��[ ��Kdg��
��”¿K ��a_¿OµOh_¾MkÔ]°ÉO&_¿°ô�(50 DEBUG 44 FAKE-TYPEP-FOR-CONDITIONS 36 RAISE-SIGNAL 32 MAKE-INTO-CONDITION)
(41 SERIOUS-CONDITION 28 SIMPLE-CONDITION)
()
CL:ERROR D1
(L (0 -args-)) �B��e�kaHl2LdKó²¿MºIg��J �� �� ��a_¿NµOh^½LkÔ\°×O&¾°ö�(38 DEBUG 35 RAISE-SIGNAL 32 MAKE-INTO-CONDITION)
(28 SIMPLE-ERROR)
()
CERRORA0001A0002 D1
(L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 2 PROCEED-FORMAT-STRING F 3 ARGUMENTS) �(�g��liRS°dýIkØYn�ñ–hl4
��¿µìIH�(31 \LISPERROR)
(2 CL:FORMAT)
()
CERRORA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE7468 F 2 *PROCEED-CASES* F 3 CONDITION F 4 DATUM F 5 ARGUMENTS) �;��g��g��g��g��Qg��jg��hg��g��
��R�Tg��U ��c �� �� ���(54 \MVLIST 51 DEBUG 48 RAISE-SIGNAL 43 MAKE-INTO-CONDITION 30 MAKE-PROCEED-CASE)
(39 SIMPLE-ERROR 26 CERRORA0001A0002 23 :REPORT 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL)
()
CERRORA0003 D1
(F 0 CONDITION) ����P�NIL
NIL
()
CL:CERROR D1
(L (0 -args-) P 15 PROCEED-CASE7468 P 4 CONDITION P 3 ARGUMENTS P 2 DATUM P 1 PROCEED-FORMAT-STRING) �“��e�ka laºHl2OdOó²,¿O»h\hO g��
��]¾M_¿Ng��ð²)O ��a_ ¿OµO h__¿OkÔ_°¹O &_¿°òg��j_¿_¿O°dýOkØ_n�ñ–hl4
��¿µêOO�(136 \LISPERROR 67 CL:VALUES-LIST 46 \CATCH-FUNCALL)
(104 CERRORA0003 59 :NORMAL 43 CERRORA0001)
()
CL:WARN D1
(L (0 -args-) F 9 *ERROR-OUTPUT* F 10 *BREAK-ON-WARNINGS*) �… �e�ka!Hl2MdLó²¿NºIg��J ��[g��
��²"h° a_¿OµOh_¾MkÔ]°ÐO&_¿°ôi² o���g��g��g��g��Kg��g��
��¿K ��Wo���K �� ��¿W“K ��K�(129 CL:BREAK 121 CL:FORMAT 118 REPORT-CONDITION 108 RAISE-SIGNAL 103 CL:CERROR 39 FAKE-TYPEP-FOR-CONDITIONS 32 MAKE-INTO-CONDITION)
(99 WARNING 96 :DESIRED-TYPE 92 :VALUE 89 CONDITION 86 :NAME 83 TYPE-MISMATCH 36 WARNING 28 SIMPLE-WARNING)
( 114 "~&Warning: ~A~%%" 80 "Signal and report the condition anyway")
BREAKA0001A0002 D1
(L (1 STREAM 0 DATUM)) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Return from BREAK")
BREAKA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE7472 F 2 *PROCEED-CASES* F 3 CONDITION F 4 DATUM F 5 ARGUMENTS) �8��g��g��g��g��Qg��jg��hg��g��
��R�Tg��U ��c �� ���(51 \MVLIST 48 DEBUG 43 MAKE-INTO-CONDITION 30 MAKE-PROCEED-CASE)
(39 SIMPLE-CONDITION 26 BREAKA0001A0002 23 :REPORT 19 :TEST 15 :SELECTOR 11 :TAG 8 PROCEED 5 :NAME 2 :NORMAL)
()
BREAKA0003 D1
(F 0 CONDITION) ����P�NIL
NIL
()
CL:BREAK D1
(L (0 -args-) P 14 PROCEED-CASE7472 P 3 CONDITION P 2 ARGUMENTS P 1 DATUM) �”��e�kHñ”o���kaqHl2
OdOó²)¿Oºh[hO g��
��\½L¾Mg��ð²(N ��a_¿OµOh__¿OkÔ_°¼O&_¿°òg��j_¿_¿N°dýOkØ_n�ñ–hl4
��¿µêOO�(137 \LISPERROR 69 CL:VALUES-LIST 51 \CATCH-FUNCALL)
(106 BREAKA0003 62 :NORMAL 48 BREAKA0001)
( 11 "Break")
DEBUG D1
(L (0 -args-)) �J��e�kHñ”o���kaHl2LdKó²¿MZ¿Ig��J �� ��°ôa_¿NµOh^½LkÔ\°ØO&¾°ö�(45 ERRORX 42 MAKE-INTO-CONDITION)
(38 SIMPLE-CONDITION)
( 11 "Break")
PROCEED-CASE-REPORT D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-PROCEED-CASE-REPORT D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE PROCEED-CASE-REPORT) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS PROCEED-CASE-REPORT SETF-INVERSE setf-PROCEED-CASE-REPORT)
PROCEED-CASE-TEST D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-PROCEED-CASE-TEST D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE PROCEED-CASE-TEST) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS PROCEED-CASE-TEST SETF-INVERSE setf-PROCEED-CASE-TEST)
PROCEED-CASE-SELECTOR D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-PROCEED-CASE-SELECTOR D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE PROCEED-CASE-SELECTOR) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS PROCEED-CASE-SELECTOR SETF-INVERSE setf-PROCEED-CASE-SELECTOR)
PROCEED-CASE-TAG D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-PROCEED-CASE-TAG D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE PROCEED-CASE-TAG) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS PROCEED-CASE-TAG SETF-INVERSE setf-PROCEED-CASE-TAG)
PROCEED-CASE-NAME D1
(L (0 OBJECT)) ����@����NIL
(3 PROCEED-CASE)
()
setf-PROCEED-CASE-NAME D1
(L (1 VALUE 0 OBJECT)) �
���@��A�A�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE PROCEED-CASE-NAME) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS PROCEED-CASE-NAME SETF-INVERSE setf-PROCEED-CASE-NAME)
PROCEED-CASE-P D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
COPY-PROCEED-CASE D1
(L (0 OBJECT)) � ���`��@
���(6 NCREATE2)
(2 |PROCEED-CASETYPE#|)
()
(DEFPRINT (QUOTE PROCEED-CASE) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION %%PROCEED-CASE-PRINTER)
X STREAM 0) T)))
MAKE-PROCEED-CASE D1
(L (0 -args-)) �î��e�HkJdIó²s¿hÁ
Hk»ºKdJó²w¿h¼Hk¾½NdMó²~¿h_¿Hk_¿_¿OdOó²~¿h_¿Hk_¿_¿OdOó¢±�€¿g��_¿`�� dI�¿dL¿dO¿dO¿dO¿ag��ð•JkØa°‡JlÔZ±ÿyag��ð•KkØa°ƒKlÔ[±ÿuag��ð–NkØa±ÿ|NlÔ^±ÿmag��ð—OkØa±ÿ{OlÔ_±ÿiag��ð—OkØa±ÿ|OlÔ_±ÿf�NIL
(216 :REPORT 192 :TEST 171 :SELECTOR 151 :TAG 131 :NAME 97 |PROCEED-CASETYPE#| 91 %%PROCEED-CASE-DEFAULT-REPORTER)
()
type-expand-PROCEED-CASE D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE PROCEED-CASE))
(PUT (QUOTE PROCEED-CASE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-PROCEED-CASE))
(PUTPROP (QUOTE PROCEED-CASE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-PROCEED-CASE))
(PUTPROP (QUOTE PROCEED-CASE) (QUOTE %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS))
(PUTPROP (QUOTE PROCEED-CASE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (NAME TAG SELECTOR TEST (REPORT (
QUOTE %%PROCEED-CASE-DEFAULT-REPORTER)))))
(PUTPROP (QUOTE PROCEED-CASE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (REPORT TEST SELECTOR TAG NAME)))
(/DECLAREDATATYPE (QUOTE PROCEED-CASE) (QUOTE (POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((
PROCEED-CASE 0 POINTER) (PROCEED-CASE 2 POINTER) (PROCEED-CASE 4 POINTER) (PROCEED-CASE 6 POINTER) (
PROCEED-CASE 8 POINTER))) (QUOTE 10))
REAL-PROCEED-CASE-CONTINUATION D1
(L (0 OBJECT)) ����@��É
�NIL
(3 REAL-PROCEED-CASE)
()
setf-REAL-PROCEED-CASE-CONTINUATION D1
(L (1 VALUE 0 OBJECT)) �
���@��A
A�NIL
(3 REAL-PROCEED-CASE)
()
(REMPROP (QUOTE REAL-PROCEED-CASE-CONTINUATION) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS REAL-PROCEED-CASE-CONTINUATION SETF-INVERSE setf-REAL-PROCEED-CASE-CONTINUATION)
REAL-PROCEED-CASE-REPORT D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-REAL-PROCEED-CASE-REPORT D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE REAL-PROCEED-CASE-REPORT) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS REAL-PROCEED-CASE-REPORT SETF-INVERSE setf-REAL-PROCEED-CASE-REPORT)
REAL-PROCEED-CASE-TEST D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-REAL-PROCEED-CASE-TEST D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE REAL-PROCEED-CASE-TEST) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS REAL-PROCEED-CASE-TEST SETF-INVERSE setf-REAL-PROCEED-CASE-TEST)
REAL-PROCEED-CASE-SELECTOR D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-REAL-PROCEED-CASE-SELECTOR D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE REAL-PROCEED-CASE-SELECTOR) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS REAL-PROCEED-CASE-SELECTOR SETF-INVERSE setf-REAL-PROCEED-CASE-SELECTOR)
REAL-PROCEED-CASE-TAG D1
(L (0 OBJECT)) ����@���NIL
(3 PROCEED-CASE)
()
setf-REAL-PROCEED-CASE-TAG D1
(L (1 VALUE 0 OBJECT)) �
���@��AA�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE REAL-PROCEED-CASE-TAG) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS REAL-PROCEED-CASE-TAG SETF-INVERSE setf-REAL-PROCEED-CASE-TAG)
REAL-PROCEED-CASE-NAME D1
(L (0 OBJECT)) ����@����NIL
(3 PROCEED-CASE)
()
setf-REAL-PROCEED-CASE-NAME D1
(L (1 VALUE 0 OBJECT)) �
���@��A�A�NIL
(3 PROCEED-CASE)
()
(REMPROP (QUOTE REAL-PROCEED-CASE-NAME) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS REAL-PROCEED-CASE-NAME SETF-INVERSE setf-REAL-PROCEED-CASE-NAME)
REAL-PROCEED-CASE-P D1
(L (0 OBJECT)) ����@���NIL
(3 REAL-PROCEED-CASE)
()
COPY-REAL-PROCEED-CASE D1
(L (0 OBJECT)) � ���`��@
���(6 NCREATE2)
(2 |REAL-PROCEED-CASETYPE#|)
()
(DEFPRINT (QUOTE REAL-PROCEED-CASE) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION
%%PROCEED-CASE-PRINTER) X STREAM 0) T)))
MAKE-REAL-PROCEED-CASE D1
(L (0 -args-)) -��e�HkJdIó¢±�—¿hñHk»ºKdJó¢±�š¿h¼Hk¾½NdMó¢±� ¿h_¿Hk_¿_¿OdOó¢±�ž¿h_¿Hk_¿_¿OdOó¢±�Ÿ¿g��_¿Hk_ ¿_ ¿O dO ó¢±�ž¿h_ ¿`�� dI�¿dL¿dO¿dO¿dO¿dO
¿ag��ð–JkØa±ÿdJlÔZ±ÿSag��ð–KkØa±ÿaKlÔ[±ÿPag��ð–NkØa±ÿ[NlÔ^±ÿJag��ð—OkØa±ÿ\OlÔ_±ÿHag��ð—OkØa±ÿ]OlÔ_±ÿGag��ð—O kØa±ÿ\O lÔ_ ±ÿH�NIL
(279 :CONTINUATION 255 :REPORT 231 :TEST 210 :SELECTOR 189 :TAG 168 :NAME 128 |REAL-PROCEED-CASETYPE#| 99 %%PROCEED-CASE-DEFAULT-REPORTER)
()
type-expand-REAL-PROCEED-CASE D1
(L (0 $$TYPE-FORM)) ����o����NIL
NIL
( 3 (DATATYPE REAL-PROCEED-CASE))
(PUT (QUOTE REAL-PROCEED-CASE) (QUOTE TYPE-EXPANDER) (QUOTE type-expand-REAL-PROCEED-CASE))
(LET* ((A7344 (QUOTE REAL-PROCEED-CASE)) (A7345 (QUOTE (PROCEED-CASE)))) (PUT A7344 (QUOTE
%%%%INCLUDED-STRUCTURE) A7345))
(PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE MAKE-REAL-PROCEED-CASE))
(PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE %%STRUCTURE-CLASS) (QUOTE STRUCTURE-CLASS))
(PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE (NAME TAG SELECTOR TEST (REPORT
(QUOTE %%PROCEED-CASE-DEFAULT-REPORTER)) CONTINUATION)))
(PUTPROP (QUOTE REAL-PROCEED-CASE) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (CONTINUATION)))
(/DECLAREDATATYPE (QUOTE REAL-PROCEED-CASE) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER))
(QUOTE ((REAL-PROCEED-CASE 0 POINTER) (REAL-PROCEED-CASE 2 POINTER) (REAL-PROCEED-CASE 4 POINTER) (
REAL-PROCEED-CASE 6 POINTER) (REAL-PROCEED-CASE 8 POINTER) (REAL-PROCEED-CASE 10 POINTER))) NIL (QUOTE
PROCEED-CASE))
FIND-PROCEED-CASE D1
(L (1 CONDITION 0 DATUM) F 4 *PROCEED-CASES*) �X�@1HYµo���hg��g�� ��Ã��@T ´8@A
��´1@IÃ��´ TZµh[ ��@ð˜KA
��’KµðJ°çg��Ho��� ���(85 CHECK-TYPE-FAIL 66 TEST-PROCEED-CASE 58 PROCEED-CASE-NAME 36 TEST-PROCEED-CASE 21 CL:ERROR)
(77 DATUM 44 LITATOM 25 PROCEED-CASE 18 COMPUTE-PROCEED-CASES 15 FIND-PROCEED-CASE)
( 82 (OR NULL PROCEED-CASE CL:SYMBOL) 11 "~S is an invalid argument to ~S;~%% use ~S instead")
COMPUTE-PROCEED-CASESA0001 D1
(F 0 PC F 1 CONDITION) ����PQ
���(4 TEST-PROCEED-CASE)
NIL
()
COMPUTE-PROCEED-CASES D1
(P 4 PC I 0 CONDITION F 5 *PROCEED-CASES*) �/�UAHµI¼g��g��
��‘h€i©L»Jµ KhZ¹HX°ÞK&º°ø�(20 \CATCH-FUNCALL)
(17 COMPUTE-PROCEED-CASESA0001 14 SKIP-PROCEED-CASE)
()
INVOKE-PROCEED-CASE D1
(L (0 -args-)) 7��e�kaqlaºHl2
OdOó²Q¿O»IJ
��\¢±g�� ��g�� ��–g�� ��¿LdÃ��¢±�¿L��ÉL��É
JIlð²0K �� ��
��a_¿OµOh__¿OkÔ_°”O&_¿°òL��É� ��²ÉL��É�ÁÉ�g��'k¾½JK°dýNkØ^n�ñ–hl4
��¿µìNM°šÃ��´aL��ÉL��ÉJIlð³DL��É� ��²9L��É�ÁÉ�g��'k_¿_¿JK°dýOkØ_n�ñ–hl4
��¿µêOO€K ��
��g��g��I ���(308 CL:ERROR 297 \DO-THROW 294 \MVLIST 279 \LISPERROR 231 CL:FBOUNDP 189 \LISPERROR 147 CL:FBOUNDP 104 \DO-THROW 101 \MVLIST 98 CL:VALUES-LIST 61 BREAKRESETFN 54 BOUNDP 47 BOUNDP 36 FIND-PROCEED-CASE)
(304 :NAME 301 BAD-PROCEED-CASE 246 %%PROCEED-ARG-COLLECTOR 237 PROCEED-CASE 226 PROCEED-CASE 212 PROCEED-CASE 206 PROCEED-CASE 200 PROCEED-CASE 162 %%PROCEED-ARG-COLLECTOR 153 REAL-PROCEED-CASE 142 REAL-PROCEED-CASE 82 REAL-PROCEED-CASE 76 REAL-PROCEED-CASE 67 REAL-PROCEED-CASE 58 LEAVING 51 \BREAKRESETEXPR 44 BREAKRESETVALS)
()
(LET* ((A7351 (QUOTE ABORT)) (A7350 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7349 (QUOTE TRUE))) (PUTPROP
A7351 A7350 A7349))
ABORT-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Abort")
(LET* ((A7352 (QUOTE ABORT)) (A7353 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7354 (QUOTE
DEFAULT-PROCEED-REPORTER)) (A7355 (QUOTE ABORT-proceed-reporter))) (PUTPROP A7352 A7353 A7355))
(LET* ((A7356 (QUOTE ABORT)) (A7357 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7359 (FUNCTION (CL:LAMBDA (
&OPTIONAL CONDITION) (LIST))))) (PUTPROP A7356 A7357 A7359))
ABORTA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE7476) ���@c�g��h ��
���(12 \DO-THROW 9 \MVLIST)
(5 CONDITION-CASE7478)
()
ABORTA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) ���g��g��Q�g��R
�� ���(21 \MVLIST 18 INVOKE-PROCEED-CASE)
(14 ABORT 5 ABORTA0001A0002 2 BAD-PROCEED-CASE)
()
ABORT D1
(P 0 CONDITION-CASE7476 I 0 CONDITION) ��� g��g��
��¹H‘hI ���(20 CL:VALUES-LIST 11 \CATCH-FUNCALL)
(8 ABORTA0001 5 CONDITION-CASE7478)
()
(LET* ((A7366 (QUOTE PROCEED)) (A7365 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7364 (QUOTE TRUE))) (PUTPROP
A7366 A7365 A7364))
PROCEED-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Proceed with no special action")
(LET* ((A7367 (QUOTE PROCEED)) (A7368 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7369 (QUOTE
DEFAULT-PROCEED-REPORTER)) (A7370 (QUOTE PROCEED-proceed-reporter))) (PUTPROP A7367 A7368 A7370))
(LET* ((A7371 (QUOTE PROCEED)) (A7372 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7374 (FUNCTION (CL:LAMBDA (
&OPTIONAL CONDITION) (LIST))))) (PUTPROP A7371 A7372 A7374))
PROCEEDA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE7480) ���@c�g��h ��
���(12 \DO-THROW 9 \MVLIST)
(5 CONDITION-CASE7482)
()
PROCEEDA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) ���g��g��Q�g��R
�� ���(21 \MVLIST 18 INVOKE-PROCEED-CASE)
(14 PROCEED 5 PROCEEDA0001A0002 2 BAD-PROCEED-CASE)
()
PROCEED D1
(P 0 CONDITION-CASE7480 I 0 CONDITION) ��� g��g��
��¹H‘hI ���(20 CL:VALUES-LIST 11 \CATCH-FUNCALL)
(8 PROCEEDA0001 5 CONDITION-CASE7482)
()
(LET* ((A7381 (QUOTE USE-VALUE)) (A7380 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7379 (QUOTE TRUE))) (PUTPROP
A7381 A7380 A7379))
USE-VALUE-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Use a different value")
(LET* ((A7382 (QUOTE USE-VALUE)) (A7383 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7384 (QUOTE
DEFAULT-PROCEED-REPORTER)) (A7385 (QUOTE USE-VALUE-proceed-reporter))) (PUTPROP A7382 A7383 A7385))
(LET* ((A7386 (QUOTE USE-VALUE)) (A7387 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7389 (FUNCTION (CL:LAMBDA (
&OPTIONAL CONDITION (VALUE (PROGN (CL:FORMAT *QUERY-IO* "Enter a new value: ") (EVAL (CL:READ
*QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A7386 A7387 A7389))
USE-VALUEA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE7484) ���@c�g��h ��
���(12 \DO-THROW 9 \MVLIST)
(5 CONDITION-CASE7486)
()
USE-VALUEA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) ���g��g��Q�g��RS �� ���(22 \MVLIST 19 INVOKE-PROCEED-CASE)
(14 USE-VALUE 5 USE-VALUEA0001A0002 2 BAD-PROCEED-CASE)
()
USE-VALUE D1
(L (0 -args-) P 4 CONDITION-CASE7484 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) �@�e�kHñ‘hkalHñ²Uo���
��¿U �� ��‚lag��g��
��ºL‘hJ ���(61 CL:VALUES-LIST 52 \CATCH-FUNCALL 36 EVAL 33 CL:READ 28 CL:FORMAT)
(49 USE-VALUEA0001 46 CONDITION-CASE7486)
( 25 "Enter a new value: ")
(LET* ((A7396 (QUOTE STORE-VALUE)) (A7395 (QUOTE %%DEFAULT-PROCEED-TEST)) (A7394 (QUOTE TRUE))) (
PUTPROP A7396 A7395 A7394))
STORE-VALUE-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 CL:WRITE-STRING)
NIL
( 3 "Store a new value and use it")
(LET* ((A7397 (QUOTE STORE-VALUE)) (A7398 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A7399 (QUOTE
DEFAULT-PROCEED-REPORTER)) (A7400 (QUOTE STORE-VALUE-proceed-reporter))) (PUTPROP A7397 A7398 A7400))
(LET* ((A7401 (QUOTE STORE-VALUE)) (A7402 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A7404 (FUNCTION (CL:LAMBDA
(&OPTIONAL CONDITION (VALUE (PROGN (CL:FORMAT *QUERY-IO* "Enter a value to store: ") (CL:EVAL (CL:READ
*QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A7401 A7402 A7404))
STORE-VALUEA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE7488) ���@c�g��h ��
���(12 \DO-THROW 9 \MVLIST)
(5 CONDITION-CASE7490)
()
STORE-VALUEA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) ���g��g��Q�g��RS �� ���(22 \MVLIST 19 INVOKE-PROCEED-CASE)
(14 STORE-VALUE 5 STORE-VALUEA0001A0002 2 BAD-PROCEED-CASE)
()
STORE-VALUE D1
(L (0 -args-) P 4 CONDITION-CASE7488 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) �@�e�kHñ‘hkalHñ²Uo���
��¿U �� ��‚lag��g��
��ºL‘hJ ���(61 CL:VALUES-LIST 52 \CATCH-FUNCALL 36 CL:EVAL 33 CL:READ 28 CL:FORMAT)
(49 STORE-VALUEA0001 46 CONDITION-CASE7490)
( 25 "Enter a value to store: ")
SIMPLE-FORMAT D1
(L (0 -args-) F 9 *STANDARD-OUTPUT*) �N �e�ka!Hl2MdLó²¿NºIið’W¹J[d³ a_¿OµOh_¾MkÔ]°×O&_¿°ôI
��¿K°Ö�(71 CL:PRINT)
NIL
()
(MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE CL:FORMAT))
(PUTPROPS ERROR-RUNTIME FILETYPE CL:COMPILE-FILE)
(PUTPROPS ERROR-RUNTIME COPYRIGHT ("Xerox Corporation" 1986))
NIL