(FILECREATED "10-Oct-86 19:09:52" ("compiled on " {ERIS}<LISPCORE>SOURCES>ERROR-RUNTIME.;5) 
" 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp  1-Oct-86 ..." dated " 1-Oct-86 21:24:44")
(FILECREATED "10-Oct-86 19:09:13" {ERIS}<LISPCORE>SOURCES>ERROR-RUNTIME.;5 29889 changes to: (
STRUCTURES TOO-MANY-ARGUMENTS TOO-FEW-ARGUMENTS INVALID-ARGUMENT-LIST) (VARS ERROR-RUNTIMECOMS) 
previous date: " 3-Oct-86 20:07:45" {ERIS}<LISPCORE>SOURCES>ERROR-RUNTIME.;4)
(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 
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 CL:ERROR OLD-INTERLISP-ERROR 
SIMPLE-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.") (VARIABLES *BREAK-ON-WARNINGS*) (FUNCTIONS MAKE-CONDITION SIGNAL CL:ERROR CERROR 
WARN CL:BREAK DEBUG) (STRUCTURES 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 FORMAT)))) (PROP FILETYPE ERROR-RUNTIME)))
expand-CONDITION-TYPEP D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ���@!H
¹H
ºg��IJh�NIL
(16Q 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
(16Q 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
(10Q 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
���(21Q FAKE-SUBTYPEP-FOR-CONDITIONS)
NIL
()
FAKE-SUBTYPEP-FOR-CONDITIONS D1
(L (1 T2 0 T1)) �#���@‘h€i³@dAð’®iŠg��
��b�°êh´ii
���(40Q VALUES 24Q GETPROP)
(21Q %%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
(10Q GETPROP)
( 15Q ((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
(10Q GETPROP)
( 15Q ((QUOTE %%CONDITION-REPORTER)))
(SETF-MACRO-FUNCTION (QUOTE CONDITION-REPORTER) (QUOTE expand-CONDITION-REPORTER))
%%PRINT-CONDITION D1
(L (2 LEVEL 1 STREAM 0 CONDITION) F 1 *PRINT-ESCAPE* F 2 *READTABLE*) �9
�Q²1Ao���R��Ê
�H
´jHó‘h€i´lHÑ@	��@Ò@Ó
��@A
���(66Q REPORT-CONDITION 60Q FORMAT 50Q TYPE-OF)
(13Q READTABLEP)
( 7 "~c<Condition ~S @ ~O,~O>")
REPORT-CONDITIONA0001A0002 D1
(F 0 STREAM) ��
��P	���(3 CLOSE)
NIL
()
REPORT-CONDITIONA0001 D1
(NAME ERRORSET F 0 RESETVARSLST F 1 STREAM F 2 CONDITION F 3 RESETY F 4 REPORTER) ���g��hhhPc�¿RQlT¿Q	��ci�(30Q GET-OUTPUT-STREAM-STRING)
(2 REPORT-CONDITIONA0001A0002)
()
REPORT-CONDITION D1
(P 4 RESETY P 3 LISPXHIST P 2 STREAM P 1 REPORTER I 1 STREAM I 0 CONDITION F 6 LISPXHIST F 7 RESETVARSLST) �b�@	��
�Hg��
��

H¨o���@
��I²3A–@AlI��
V!Wo���g��
��‘h‚g��]
��M“��LHg��
��Xg��
��¹°²�(135Q GETPROP 126Q GETPROP 114Q ERROR! 107Q RESETRESTORE 75Q REPORT-CONDITIONA0001 52Q MAKE-STRING-OUTPUT-STREAM 32Q CL:BREAK 15Q GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS)
(132Q %%CONDITION-REPORTER 123Q %%CONDITION-PARENT 103Q ERROR 72Q INTERNAL 12Q %%CONDITION-REPORTER)
( 67Q (REPORT-CONDITIONA0001) 26Q "No report function found for ~S.")
expand-CONDITION-PARENT D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) �
��@

�g��Ho����NIL
(10Q GETPROP)
( 15Q ((QUOTE %%CONDITION-PARENT)))
(SETF-MACRO-FUNCTION (QUOTE CONDITION-PARENT) (QUOTE expand-CONDITION-PARENT))
(PROCLAIM (QUOTE (SPECIAL *CONDITION-HANDLER-BINDINGS*)))
(OR (BOUNDP (QUOTE *CONDITION-HANDLER-BINDINGS*)) (SETQ *CONDITION-HANDLER-BINDINGS* NIL))
(LET* ((A1938 (QUOTE *CONDITION-HANDLER-BINDINGS*)) (A1939 (QUOTE VARIABLE)) (A1940 
"Condition handler binding stack")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (
SET-DOCUMENTATION A1938 A1939 A1940))) A1940))
(PROCLAIM (QUOTE (SPECIAL *PROCEED-CASES*)))
(OR (BOUNDP (QUOTE *PROCEED-CASES*)) (SETQ *PROCEED-CASES* NIL))
(LET* ((A1941 (QUOTE *PROCEED-CASES*)) (A1942 (QUOTE VARIABLE)) (A1943 "Active proceed case stack")) (
PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1941 A1942 A1943))) A1943))
CHECK-TYPE-FAILA0001A0002 D1
(L (0 CONDITION) F 0 PROCEEDABLE) ��
�
P´	@g��
���(11Q FAKE-TYPEP-FOR-CONDITIONS)
(6 TYPE-MISMATCH)
()
CHECK-TYPE-FAILA0001A0003 D1
(L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) ��
�io���P���(10Q FORMAT)
NIL
( 4 "Change the value of ~A")
CHECK-TYPE-FAILA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE2280 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
	��	���(77Q \MVLIST 74Q CL:ERROR 40Q MAKE-PROCEED-CASE)
(67Q :MESSAGE 63Q :DESIRED-TYPE 57Q :VALUE 53Q :NAME 50Q TYPE-MISMATCH 34Q CHECK-TYPE-FAILA0001A0003 31Q :REPORT 26Q CHECK-TYPE-FAILA0001A0002 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q 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-CASE2280 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�(75Q \LISPERROR 40Q VALUES-LIST 14Q \CATCH-FUNCALL)
(44Q CHECK-TYPE-FAILA0004 32Q :NORMAL 11Q CHECK-TYPE-FAILA0001)
()
ECASE-FAILA0001A0002 D1
(L (0 CONDITION) F 0 PROCEEDABLE) �
�
�
o���	��P�(6 CL:DECLARE)
NIL
( 3 (IGNORE CONDITION))
ECASE-FAILA0001A0003 D1
(L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 0 PLACE) ��
�io���P���(10Q FORMAT)
NIL
( 4 "Change the value of ~A")
ECASE-FAILA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE2284 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
��	���(67Q \MVLIST 64Q CL:ERROR 40Q MAKE-PROCEED-CASE)
(34Q ECASE-FAILA0001A0003 31Q :REPORT 26Q ECASE-FAILA0001A0002 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q STORE-VALUE 5 :NAME 2 :NORMAL)
( 57Q "~#[wrong~;not ~S~;neither ~S nor ~S~:;not~@{~#[~; or~] ~S~^,~}~]" 51Q "The value of ~S, ~S,~&is ~?.")
ECASE-FAILA0004 D1
(L (1 V 0 IGNORE)) ����A�NIL
NIL
()
ECASE-FAIL D1
(P 0 PROCEED-CASE2284 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�(75Q \LISPERROR 40Q VALUES-LIST 14Q \CATCH-FUNCALL)
(44Q ECASE-FAILA0004 32Q :NORMAL 11Q ECASE-FAILA0001)
()
ASSERT-FAILA0001A0002 D1
(L (1 STREAM 0 DATUM)) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Re-test assertion")
ASSERT-FAILA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE2288 F 2 *PROCEED-CASES* F 3 STRING F 4 ARGS) �:
��g��g��g��g��Qg��jg��hg��g��
��R
�g��g��Sg��T
��	���(65Q \MVLIST 62Q CL:ERROR 36Q MAKE-PROCEED-CASE)
(55Q :FORMAT-ARGUMENTS 51Q :FORMAT-STRING 46Q ASSERTION-FAILED 32Q ASSERT-FAILA0001A0002 27Q :REPORT 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL)
()
ASSERT-FAILA0003 D1
NIL �����h�NIL
NIL
()
ASSERT-FAIL D1
(L (0 -args-) P 15Q PROCEED-CASE2288 P 2 ARGS P 1 STRING) �‡��e
�kaaHl2OdOó²(¿Oºhh

Og��
��[
¼K½Lg��ð²(M	��a_¿OµOh__¿OkÔ_°½O&_¿°òg��j_¿¾M°d
ýOkØ_n�ñ–hl4
��¿µêON�(175Q \LISPERROR 73Q VALUES-LIST 51Q \CATCH-FUNCALL)
(140Q ASSERT-FAILA0003 64Q :NORMAL 46Q 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������(151Q CHECK-TYPE-FAIL 135Q MAKE-CONDITION 116Q CL:STRINGP 112Q CL:ERROR 73Q \LISPERROR 34Q FAKE-SUBTYPEP-FOR-CONDITIONS 7 FAKE-TYPEP-FOR-CONDITIONS)
(141Q DATUM 130Q :FORMAT-ARGUMENTS 124Q :FORMAT-STRING 41Q MAKE-CONDITION 31Q CONDITION 22Q LITATOM 4 CONDITION)
( 146Q (OR SYMBOL STRING) 106Q "~S is not a condition type.")
RAISE-SIGNAL D1
(L (0 C) P 3 *CONDITION-HANDLER-BINDINGS* F 4 *CONDITION-HANDLER-BINDINGS*) �*
�
T!HY
ºI²@J

��šI
@kJI°å@	��@�(46Q DEFAULT-HANDLE-CONDITION 21Q FAKE-TYPEP-FOR-CONDITIONS)
NIL
()
DEFAULT-HANDLE-CONDITION D1
(L (0 CONDITION)) �#��
@	��
Hd g��
��Y”@kI¿Hg��
��X°è�(36Q GETPROP 20Q GETPROP 3 FAKE-TYPE-OF-FOR-CONDITIONS)
(33Q %%CONDITION-PARENT 15Q %%CONDITION-HANDLER)
()
DEFAULT-PROCEED-REPORTER D1
(L (1 STREAM 0 PC)) ����Ao���@	�����(13Q FORMAT 10Q 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��¿°¿�(122Q PUTPROP 111Q DREMOVE 70Q PUTPROP 50Q PUTPROP 37Q ADJOIN 34Q GETPROP 6 GETPROP)
(116Q %%CONDITION-CHILDREN 100Q %%CONDITION-CHILDREN 63Q %%CONDITION-PARENT 44Q %%CONDITION-CHILDREN 31Q %%CONDITION-CHILDREN 3 %%CONDITION-PARENT)
()
expand-DEFAULT-PROCEED-TEST D1
(L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) �
��@

�g��Ho����NIL
(10Q GETPROP)
( 15Q ((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 WRITE-STRING)
NIL
( 3 "Assume proceed case is enabled")
TEST-PROCEED-CASEA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE2310 F 2 *PROCEED-CASES* F 3 PC) �8
��g��g��g��g��Qg��jg��g��	��g��g��
��R
�o���S
��	���(63Q \MVLIST 60Q CL:ERROR 43Q MAKE-PROCEED-CASE 31Q SYMBOL-FUNCTION)
(37Q TEST-PROCEED-CASEA0001A0002 34Q :REPORT 26Q TRUE 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL)
( 54Q "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-CASE2310 I 0 PC) �m��`@	��X³@	��´@	��g��
��µ	@	��	��X´AkHh
Ng��
��Y
ºI»Jg��ð”K	��g��j½¼K°d
ýMkØ]n�ñ–hl4
��¿µìML�(144Q \LISPERROR 107Q VALUES-LIST 66Q \CATCH-FUNCALL 42Q NO-PROCEED-TEST 37Q PROCEED-CASE-NAME 31Q GETPROP 23Q PROCEED-CASE-NAME 15Q PROCEED-CASE-NAME 6 PROCEED-CASE-TEST)
(113Q TEST-PROCEED-CASEA0003 101Q :NORMAL 63Q TEST-PROCEED-CASEA0001 26Q %%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ó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :--DUMMY-SLOT-- 26Q 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* ((A1960 (QUOTE CONDITION)) (A1959 (QUOTE %%CONDITION-HANDLER)) (A1958 (QUOTE NIL))) (PUTPROP 
A1960 A1959 A1958))
CONDITION% report% method D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Condition ~S occurred.")
(LET* ((A1963 (QUOTE CONDITION)) (A1962 (QUOTE %%CONDITION-REPORTER)) (A1961 (QUOTE 
CONDITION% report% method))) (PUTPROP A1963 A1962 A1961))
SIMPLE-CONDITION-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
SIMPLE-CONDITION-FORMAT-STRING D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE SIMPLE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SIMPLE-CONDITION D1
(L (0 -args-)) �S��e
�HkJdIó²¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-CONDITION)
()
(LET* ((A1964 (QUOTE SIMPLE-CONDITION)) (A1965 (QUOTE (CONDITION)))) (PUT A1964 (QUOTE 
%%%%INCLUDED-STRUCTURE) A1965))
(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 ((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* ((A1968 (QUOTE SIMPLE-CONDITION)) (A1967 (QUOTE %%CONDITION-HANDLER)) (A1966 (QUOTE NIL))) (
PUTPROP A1968 A1967 A1966))
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�(51Q \LISPERROR 7 SIMPLE-CONDITION-FORMAT-ARGUMENTS 3 SIMPLE-CONDITION-FORMAT-STRING)
(15Q FORMAT)
()
(LET* ((A1971 (QUOTE SIMPLE-CONDITION)) (A1970 (QUOTE %%CONDITION-REPORTER)) (A1969 (QUOTE 
SIMPLE-CONDITION% report% method))) (PUTPROP A1971 A1970 A1969))
(DEFPRINT (QUOTE WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-WARNING D1
NIL �����g��h�NIL
(2 WARNING)
()
(LET* ((A1972 (QUOTE WARNING)) (A1973 (QUOTE (CONDITION)))) (PUT A1972 (QUOTE %%%%INCLUDED-STRUCTURE) 
A1973))
(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 NIL))
(PUTPROP (QUOTE WARNING) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE WARNING) (QUOTE CONDITION))
(LET* ((A1976 (QUOTE WARNING)) (A1975 (QUOTE %%CONDITION-HANDLER)) (A1974 (QUOTE NIL))) (PUTPROP A1976
 A1975 A1974))
(LET* ((A1979 (QUOTE WARNING)) (A1978 (QUOTE %%CONDITION-REPORTER)) (A1977 (QUOTE NIL))) (PUTPROP 
A1979 A1978 A1977))
SIMPLE-WARNING-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
SIMPLE-WARNING-FORMAT-STRING D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE SIMPLE-WARNING) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SIMPLE-WARNING D1
(L (0 -args-)) �S��e
�HkJdIó²¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-WARNING)
()
(LET* ((A1980 (QUOTE SIMPLE-WARNING)) (A1981 (QUOTE (WARNING)))) (PUT A1980 (QUOTE 
%%%%INCLUDED-STRUCTURE) A1981))
(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 ((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* ((A1984 (QUOTE SIMPLE-WARNING)) (A1983 (QUOTE %%CONDITION-HANDLER)) (A1982 (QUOTE NIL))) (
PUTPROP A1984 A1983 A1982))
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�(51Q \LISPERROR 7 SIMPLE-WARNING-FORMAT-ARGUMENTS 3 SIMPLE-WARNING-FORMAT-STRING)
(15Q FORMAT)
()
(LET* ((A1987 (QUOTE SIMPLE-WARNING)) (A1986 (QUOTE %%CONDITION-REPORTER)) (A1985 (QUOTE 
SIMPLE-WARNING% report% method))) (PUTPROP A1987 A1986 A1985))
OLD-BREAK1-LIST D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE OLD-BREAK1) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-OLD-BREAK1 D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :LIST 26Q OLD-BREAK1)
()
(LET* ((A1988 (QUOTE OLD-BREAK1)) (A1989 (QUOTE (CONDITION)))) (PUT A1988 (QUOTE 
%%%%INCLUDED-STRUCTURE) A1989))
(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 ((LIST NIL :READ-ONLY T))))
(PUTPROP (QUOTE OLD-BREAK1) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (LIST)))
(FIX-INHERITANCE-LINKS (QUOTE OLD-BREAK1) (QUOTE CONDITION))
(LET* ((A1992 (QUOTE OLD-BREAK1)) (A1991 (QUOTE %%CONDITION-HANDLER)) (A1990 (QUOTE NIL))) (PUTPROP 
A1992 A1991 A1990))
OLD-BREAK1% report% method D1
(P 5 MESS3 P 4 MESS2 P 3 A2313 P 2 MESS1 P 1 A2312 P 0 LIST I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@	��QHY
ºI[
¼K
½JLM���(31Q ERRORMESS1 3 OLD-BREAK1-LIST)
NIL
()
(LET* ((A1995 (QUOTE OLD-BREAK1)) (A1994 (QUOTE %%CONDITION-REPORTER)) (A1993 (QUOTE 
OLD-BREAK1% report% method))) (PUTPROP A1995 A1994 A1993))
(DEFPRINT (QUOTE SERIOUS-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SERIOUS-CONDITION D1
NIL �����g��h�NIL
(2 SERIOUS-CONDITION)
()
(LET* ((A1996 (QUOTE SERIOUS-CONDITION)) (A1997 (QUOTE (CONDITION)))) (PUT A1996 (QUOTE 
%%%%INCLUDED-STRUCTURE) A1997))
(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 NIL))
(PUTPROP (QUOTE SERIOUS-CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE SERIOUS-CONDITION) (QUOTE CONDITION))
(LET* ((A2000 (QUOTE SERIOUS-CONDITION)) (A1999 (QUOTE %%CONDITION-HANDLER)) (A1998 (QUOTE NIL))) (
PUTPROP A2000 A1999 A1998))
SERIOUS-CONDITION% report% method D1
(I 1 *STANDARD-OUTPUT* I 0 CONDITION) ����io���@	�����(13Q FORMAT 10Q FAKE-TYPE-OF-FOR-CONDITIONS)
NIL
( 4 "Serious condition ~S occurred.")
(LET* ((A2003 (QUOTE SERIOUS-CONDITION)) (A2002 (QUOTE %%CONDITION-REPORTER)) (A2001 (QUOTE 
SERIOUS-CONDITION% report% method))) (PUTPROP A2003 A2002 A2001))
(DEFPRINT (QUOTE CL:ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CL:ERROR D1
NIL �����g��h�NIL
(2 CL:ERROR)
()
(LET* ((A2004 (QUOTE CL:ERROR)) (A2005 (QUOTE (SERIOUS-CONDITION)))) (PUT A2004 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2005))
(PUTPROP (QUOTE CL:ERROR) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%MAKE-CL:ERROR))
(PUTPROP (QUOTE CL:ERROR) (QUOTE %%STRUCTURE-CLASS) (QUOTE LIST-CLASS))
(PUTPROP (QUOTE CL:ERROR) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE NIL))
(PUTPROP (QUOTE CL:ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE CL:ERROR) (QUOTE SERIOUS-CONDITION))
(LET* ((A2008 (QUOTE CL:ERROR)) (A2007 (QUOTE %%CONDITION-HANDLER)) (A2006 (QUOTE NIL))) (PUTPROP 
A2008 A2007 A2006))
(LET* ((A2011 (QUOTE CL:ERROR)) (A2010 (QUOTE %%CONDITION-REPORTER)) (A2009 (QUOTE NIL))) (PUTPROP 
A2011 A2010 A2009))
OLD-INTERLISP-ERROR-MESSAGE D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
OLD-INTERLISP-ERROR-NUMBER D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE OLD-INTERLISP-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-OLD-INTERLISP-ERROR D1
(L (0 -args-)) �S��e
�HkJdIó²¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(102Q :MESSAGE 57Q :NUMBER 44Q OLD-INTERLISP-ERROR)
()
(LET* ((A2012 (QUOTE OLD-INTERLISP-ERROR)) (A2013 (QUOTE (CL:ERROR)))) (PUT A2012 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2013))
(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 ((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 CL:ERROR))
(LET* ((A2016 (QUOTE OLD-INTERLISP-ERROR)) (A2015 (QUOTE %%CONDITION-HANDLER)) (A2014 (QUOTE NIL))) (
PUTPROP A2016 A2015 A2014))
OLD-INTERLISP-ERROR% report% method D1
(P 4 MESS2 P 3 MESS1 P 2 A2314 P 1 MESSAGE P 0 NUMBER I 1 *STANDARD-OUTPUT* I 0 CONDITION) �/��@	��@	��
Hdlð²¿I!J
»J¼KLg����Ih	���(54Q ERRORM 44Q ERRORMESS1 7 OLD-INTERLISP-ERROR-MESSAGE 3 OLD-INTERLISP-ERROR-NUMBER)
(41Q ERROR)
()
(LET* ((A2019 (QUOTE OLD-INTERLISP-ERROR)) (A2018 (QUOTE %%CONDITION-REPORTER)) (A2017 (QUOTE 
OLD-INTERLISP-ERROR% report% method))) (PUTPROP A2019 A2018 A2017))
SIMPLE-ERROR-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
SIMPLE-ERROR-FORMAT-STRING D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE SIMPLE-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-SIMPLE-ERROR D1
(L (0 -args-)) �S��e
�HkJdIó²¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q SIMPLE-ERROR)
()
(LET* ((A2020 (QUOTE SIMPLE-ERROR)) (A2021 (QUOTE (CL:ERROR)))) (PUT A2020 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2021))
(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 ((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 CL:ERROR))
(LET* ((A2024 (QUOTE SIMPLE-ERROR)) (A2023 (QUOTE %%CONDITION-HANDLER)) (A2022 (QUOTE NIL))) (PUTPROP 
A2024 A2023 A2022))
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�(51Q \LISPERROR 7 SIMPLE-ERROR-FORMAT-ARGUMENTS 3 SIMPLE-ERROR-FORMAT-STRING)
(15Q FORMAT)
()
(LET* ((A2027 (QUOTE SIMPLE-ERROR)) (A2026 (QUOTE %%CONDITION-REPORTER)) (A2025 (QUOTE 
SIMPLE-ERROR% report% method))) (PUTPROP A2027 A2026 A2025))
ASSERTION-FAILED-FORMAT-ARGUMENTS D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
ASSERTION-FAILED-FORMAT-STRING D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE ASSERTION-FAILED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ASSERTION-FAILED D1
(L (0 -args-)) �S��e
�HkJdIó²¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(102Q :FORMAT-ARGUMENTS 57Q :FORMAT-STRING 44Q ASSERTION-FAILED)
()
(LET* ((A2028 (QUOTE ASSERTION-FAILED)) (A2029 (QUOTE (SIMPLE-ERROR)))) (PUT A2028 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2029))
(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 ((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* ((A2032 (QUOTE ASSERTION-FAILED)) (A2031 (QUOTE %%CONDITION-HANDLER)) (A2030 (QUOTE NIL))) (
PUTPROP A2032 A2031 A2030))
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�(57Q \LISPERROR 7 ASSERTION-FAILED-FORMAT-ARGUMENTS 3 ASSERTION-FAILED-FORMAT-STRING)
(15Q FORMAT)
( 31Q "Assertion failed.")
(LET* ((A2035 (QUOTE ASSERTION-FAILED)) (A2034 (QUOTE %%CONDITION-REPORTER)) (A2033 (QUOTE 
ASSERTION-FAILED% report% method))) (PUTPROP A2035 A2034 A2033))
CELL-ERROR-NAME D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE CELL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CELL-ERROR D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :NAME 26Q CELL-ERROR)
()
(LET* ((A2036 (QUOTE CELL-ERROR)) (A2037 (QUOTE (CL:ERROR)))) (PUT A2036 (QUOTE %%%%INCLUDED-STRUCTURE
) A2037))
(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 ((NAME NIL :READ-ONLY T))))
(PUTPROP (QUOTE CELL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (NAME)))
(FIX-INHERITANCE-LINKS (QUOTE CELL-ERROR) (QUOTE CL:ERROR))
(LET* ((A2040 (QUOTE CELL-ERROR)) (A2039 (QUOTE %%CONDITION-HANDLER)) (A2038 (QUOTE NIL))) (PUTPROP 
A2040 A2039 A2038))
(LET* ((A2043 (QUOTE CELL-ERROR)) (A2042 (QUOTE %%CONDITION-REPORTER)) (A2041 (QUOTE NIL))) (PUTPROP 
A2043 A2042 A2041))
UNBOUND-VARIABLE-NAME D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE UNBOUND-VARIABLE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-UNBOUND-VARIABLE D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :NAME 26Q UNBOUND-VARIABLE)
()
(LET* ((A2044 (QUOTE UNBOUND-VARIABLE)) (A2045 (QUOTE (CELL-ERROR)))) (PUT A2044 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2045))
(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 ((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* ((A2048 (QUOTE UNBOUND-VARIABLE)) (A2047 (QUOTE %%CONDITION-HANDLER)) (A2046 (QUOTE NIL))) (
PUTPROP A2048 A2047 A2046))
UNBOUND-VARIABLE% report% method D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 UNBOUND-VARIABLE-NAME)
NIL
( 13Q "Unbound variable: ~S.")
(LET* ((A2051 (QUOTE UNBOUND-VARIABLE)) (A2050 (QUOTE %%CONDITION-REPORTER)) (A2049 (QUOTE 
UNBOUND-VARIABLE% report% method))) (PUTPROP A2051 A2050 A2049))
UNDEFINED-FUNCTION-NAME D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE UNDEFINED-FUNCTION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-UNDEFINED-FUNCTION D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :NAME 26Q UNDEFINED-FUNCTION)
()
(LET* ((A2052 (QUOTE UNDEFINED-FUNCTION)) (A2053 (QUOTE (CELL-ERROR)))) (PUT A2052 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2053))
(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 ((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* ((A2056 (QUOTE UNDEFINED-FUNCTION)) (A2055 (QUOTE %%CONDITION-HANDLER)) (A2054 (QUOTE NIL))) (
PUTPROP A2056 A2055 A2054))
UNDEFINED-FUNCTION% report% method D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 UNDEFINED-FUNCTION-NAME)
NIL
( 13Q "Undefined function: ~S.")
(LET* ((A2059 (QUOTE UNDEFINED-FUNCTION)) (A2058 (QUOTE %%CONDITION-REPORTER)) (A2057 (QUOTE 
UNDEFINED-FUNCTION% report% method))) (PUTPROP A2059 A2058 A2057))
NO-PROCEED-TEST-NAME D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE NO-PROCEED-TEST) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-NO-PROCEED-TEST D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :NAME 26Q NO-PROCEED-TEST)
()
(LET* ((A2060 (QUOTE NO-PROCEED-TEST)) (A2061 (QUOTE (UNDEFINED-FUNCTION)))) (PUT A2060 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2061))
(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 ((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* ((A2064 (QUOTE NO-PROCEED-TEST)) (A2063 (QUOTE %%CONDITION-HANDLER)) (A2062 (QUOTE NIL))) (
PUTPROP A2064 A2063 A2062))
NO-PROCEED-TEST% report% method D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 NO-PROCEED-TEST-NAME)
NIL
( 13Q "No test specified for proceed case: ~S.")
(LET* ((A2067 (QUOTE NO-PROCEED-TEST)) (A2066 (QUOTE %%CONDITION-REPORTER)) (A2065 (QUOTE 
NO-PROCEED-TEST% report% method))) (PUTPROP A2067 A2066 A2065))
INDEX-BOUNDS-ERROR-INDEX D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
INDEX-BOUNDS-ERROR-NAME D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE INDEX-BOUNDS-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-INDEX-BOUNDS-ERROR D1
(L (0 -args-)) �S��e
�HkJdIó²¿h1Hk»ºKdJó²"¿h¼g��ILhag��ð•JkØa°ÛJlÔZ°Íag��ð•KkØa°ØKlÔ[°Ê�NIL
(102Q :INDEX 57Q :NAME 44Q INDEX-BOUNDS-ERROR)
()
(LET* ((A2068 (QUOTE INDEX-BOUNDS-ERROR)) (A2069 (QUOTE (CELL-ERROR)))) (PUT A2068 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2069))
(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 ((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* ((A2072 (QUOTE INDEX-BOUNDS-ERROR)) (A2071 (QUOTE %%CONDITION-HANDLER)) (A2070 (QUOTE NIL))) (
PUTPROP A2072 A2071 A2070))
INDEX-BOUNDS-ERROR% report% method D1
(P 1 INDEX P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) ���@	��@	��
io���I���(23Q FORMAT 7 INDEX-BOUNDS-ERROR-INDEX 3 INDEX-BOUNDS-ERROR-NAME)
NIL
( 17Q "Index out of bounds: ~D.")
(LET* ((A2075 (QUOTE INDEX-BOUNDS-ERROR)) (A2074 (QUOTE %%CONDITION-REPORTER)) (A2073 (QUOTE 
INDEX-BOUNDS-ERROR% report% method))) (PUTPROP A2075 A2074 A2073))
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
()
(DEFPRINT (QUOTE TYPE-MISMATCH) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-TYPE-MISMATCH 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
(222Q :MESSAGE 177Q :DESIRED-TYPE 154Q :VALUE 131Q :NAME 110Q TYPE-MISMATCH)
()
(LET* ((A2076 (QUOTE TYPE-MISMATCH)) (A2077 (QUOTE (CELL-ERROR)))) (PUT A2076 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2077))
(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 ((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* ((A2080 (QUOTE TYPE-MISMATCH)) (A2079 (QUOTE %%CONDITION-HANDLER)) (A2078 (QUOTE NIL))) (PUTPROP
 A2080 A2079 A2078))
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	��
���(44Q FORMAT 40Q PRETTY-TYPE-NAME 17Q TYPE-MISMATCH-MESSAGE 13Q TYPE-MISMATCH-DESIRED-TYPE 7 TYPE-MISMATCH-VALUE 3 TYPE-MISMATCH-NAME)
NIL
( 27Q "The value of ~A, ~A, is not ~A.")
(LET* ((A2083 (QUOTE TYPE-MISMATCH)) (A2082 (QUOTE %%CONDITION-REPORTER)) (A2081 (QUOTE 
TYPE-MISMATCH% report% method))) (PUTPROP A2083 A2082 A2081))
(DEFPRINT (QUOTE CONTROL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CONTROL-ERROR D1
NIL �����g��h�NIL
(2 CONTROL-ERROR)
()
(LET* ((A2084 (QUOTE CONTROL-ERROR)) (A2085 (QUOTE (CL:ERROR)))) (PUT A2084 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2085))
(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 NIL))
(PUTPROP (QUOTE CONTROL-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE CONTROL-ERROR) (QUOTE CL:ERROR))
(LET* ((A2088 (QUOTE CONTROL-ERROR)) (A2087 (QUOTE %%CONDITION-HANDLER)) (A2086 (QUOTE NIL))) (PUTPROP
 A2088 A2087 A2086))
(LET* ((A2091 (QUOTE CONTROL-ERROR)) (A2090 (QUOTE %%CONDITION-REPORTER)) (A2089 (QUOTE NIL))) (
PUTPROP A2091 A2090 A2089))
ILLEGAL-GO-TAG D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE ILLEGAL-GO) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ILLEGAL-GO D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :TAG 26Q ILLEGAL-GO)
()
(LET* ((A2092 (QUOTE ILLEGAL-GO)) (A2093 (QUOTE (CONTROL-ERROR)))) (PUT A2092 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2093))
(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 ((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* ((A2096 (QUOTE ILLEGAL-GO)) (A2095 (QUOTE %%CONDITION-HANDLER)) (A2094 (QUOTE NIL))) (PUTPROP 
A2096 A2095 A2094))
ILLEGAL-GO% report% method D1
(P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 ILLEGAL-GO-TAG)
NIL
( 13Q "GO to a non-existant tag: ~S.")
(LET* ((A2099 (QUOTE ILLEGAL-GO)) (A2098 (QUOTE %%CONDITION-REPORTER)) (A2097 (QUOTE 
ILLEGAL-GO% report% method))) (PUTPROP A2099 A2098 A2097))
ILLEGAL-RETURN-TAG D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE ILLEGAL-RETURN) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ILLEGAL-RETURN D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :TAG 26Q ILLEGAL-RETURN)
()
(LET* ((A2100 (QUOTE ILLEGAL-RETURN)) (A2101 (QUOTE (CONTROL-ERROR)))) (PUT A2100 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2101))
(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 ((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* ((A2104 (QUOTE ILLEGAL-RETURN)) (A2103 (QUOTE %%CONDITION-HANDLER)) (A2102 (QUOTE NIL))) (
PUTPROP A2104 A2103 A2102))
ILLEGAL-RETURN% report% method D1
(P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 ILLEGAL-RETURN-TAG)
NIL
( 13Q "RETURN to non-existant block: ~S.")
(LET* ((A2107 (QUOTE ILLEGAL-RETURN)) (A2106 (QUOTE %%CONDITION-REPORTER)) (A2105 (QUOTE 
ILLEGAL-RETURN% report% method))) (PUTPROP A2107 A2106 A2105))
ILLEGAL-THROW-TAG D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE ILLEGAL-THROW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-ILLEGAL-THROW D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :TAG 26Q ILLEGAL-THROW)
()
(LET* ((A2108 (QUOTE ILLEGAL-THROW)) (A2109 (QUOTE (CONTROL-ERROR)))) (PUT A2108 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2109))
(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 ((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* ((A2112 (QUOTE ILLEGAL-THROW)) (A2111 (QUOTE %%CONDITION-HANDLER)) (A2110 (QUOTE NIL))) (PUTPROP
 A2112 A2111 A2110))
ILLEGAL-THROW% report% method D1
(P 0 TAG I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 ILLEGAL-THROW-TAG)
NIL
( 13Q "Tag for THROW not found: ~S.")
(LET* ((A2115 (QUOTE ILLEGAL-THROW)) (A2114 (QUOTE %%CONDITION-REPORTER)) (A2113 (QUOTE 
ILLEGAL-THROW% report% method))) (PUTPROP A2115 A2114 A2113))
BAD-PROCEED-CASE-NAME D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE BAD-PROCEED-CASE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-BAD-PROCEED-CASE D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :NAME 26Q BAD-PROCEED-CASE)
()
(LET* ((A2116 (QUOTE BAD-PROCEED-CASE)) (A2117 (QUOTE (CONTROL-ERROR)))) (PUT A2116 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2117))
(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 ((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* ((A2120 (QUOTE BAD-PROCEED-CASE)) (A2119 (QUOTE %%CONDITION-HANDLER)) (A2118 (QUOTE NIL))) (
PUTPROP A2120 A2119 A2118))
BAD-PROCEED-CASE% report% method D1
(P 0 NAME I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 BAD-PROCEED-CASE-NAME)
NIL
( 13Q "Proceed case ~S is not currently active.")
(LET* ((A2123 (QUOTE BAD-PROCEED-CASE)) (A2122 (QUOTE %%CONDITION-REPORTER)) (A2121 (QUOTE 
BAD-PROCEED-CASE% report% method))) (PUTPROP A2123 A2122 A2121))
CALL-ERROR-CALLEE D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE CALL-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-CALL-ERROR D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :CALLEE 26Q CALL-ERROR)
()
(LET* ((A2124 (QUOTE CALL-ERROR)) (A2125 (QUOTE (CONTROL-ERROR)))) (PUT A2124 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2125))
(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 ((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* ((A2128 (QUOTE CALL-ERROR)) (A2127 (QUOTE %%CONDITION-HANDLER)) (A2126 (QUOTE NIL))) (PUTPROP 
A2128 A2127 A2126))
(LET* ((A2131 (QUOTE CALL-ERROR)) (A2130 (QUOTE %%CONDITION-REPORTER)) (A2129 (QUOTE NIL))) (PUTPROP 
A2131 A2130 A2129))
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
()
(DEFPRINT (QUOTE TOO-MANY-ARGUMENTS) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-TOO-MANY-ARGUMENTS 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
(147Q :ACTUAL 124Q :MAXIMUM 101Q :CALLEE 63Q TOO-MANY-ARGUMENTS)
()
(LET* ((A2132 (QUOTE TOO-MANY-ARGUMENTS)) (A2133 (QUOTE (CALL-ERROR)))) (PUT A2132 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2133))
(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 ((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* ((A2136 (QUOTE TOO-MANY-ARGUMENTS)) (A2135 (QUOTE %%CONDITION-HANDLER)) (A2134 (QUOTE NIL))) (
PUTPROP A2136 A2135 A2134))
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���(50Q FORMAT 36Q FORMAT 13Q TOO-MANY-ARGUMENTS-ACTUAL 7 TOO-MANY-ARGUMENTS-MAXIMUM 3 TOO-MANY-ARGUMENTS-CALLEE)
NIL
( 44Q "Too many arguments to ~A" 27Q "Too many arguments to ~A:~%%   ~D ~:*~[were~;was~:;were~] given but at most ~D ~:*~[are~;is~:;are~] accepted")
(LET* ((A2139 (QUOTE TOO-MANY-ARGUMENTS)) (A2138 (QUOTE %%CONDITION-REPORTER)) (A2137 (QUOTE 
TOO-MANY-ARGUMENTS% report% method))) (PUTPROP A2139 A2138 A2137))
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
()
(DEFPRINT (QUOTE TOO-FEW-ARGUMENTS) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-TOO-FEW-ARGUMENTS 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
(147Q :ACTUAL 124Q :MINIMUM 101Q :CALLEE 63Q TOO-FEW-ARGUMENTS)
()
(LET* ((A2140 (QUOTE TOO-FEW-ARGUMENTS)) (A2141 (QUOTE (CALL-ERROR)))) (PUT A2140 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2141))
(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 ((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* ((A2144 (QUOTE TOO-FEW-ARGUMENTS)) (A2143 (QUOTE %%CONDITION-HANDLER)) (A2142 (QUOTE NIL))) (
PUTPROP A2144 A2143 A2142))
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���(50Q FORMAT 36Q FORMAT 13Q TOO-FEW-ARGUMENTS-ACTUAL 7 TOO-FEW-ARGUMENTS-MINIMUM 3 TOO-FEW-ARGUMENTS-CALLEE)
NIL
( 44Q "Too few arguments to ~A" 27Q "Too few arguments to ~A:~%%   ~D ~:*~[were~;was~:;were~] given but at least ~D ~:*~[are~;is~:;are~] necessary")
(LET* ((A2147 (QUOTE TOO-FEW-ARGUMENTS)) (A2146 (QUOTE %%CONDITION-REPORTER)) (A2145 (QUOTE 
TOO-FEW-ARGUMENTS% report% method))) (PUTPROP A2147 A2146 A2145))
INVALID-ARGUMENT-LIST-CALLEE D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE INVALID-ARGUMENT-LIST) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-INVALID-ARGUMENT-LIST D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :CALLEE 26Q INVALID-ARGUMENT-LIST)
()
(LET* ((A2148 (QUOTE INVALID-ARGUMENT-LIST)) (A2149 (QUOTE (CALL-ERROR)))) (PUT A2148 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2149))
(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 ((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* ((A2152 (QUOTE INVALID-ARGUMENT-LIST)) (A2151 (QUOTE %%CONDITION-HANDLER)) (A2150 (QUOTE NIL))) 
(PUTPROP A2152 A2151 A2150))
INVALID-ARGUMENT-LIST% report% method D1
(P 0 CALLEE I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 INVALID-ARGUMENT-LIST-CALLEE)
NIL
( 13Q "~S has an invalid argument list")
(LET* ((A2155 (QUOTE INVALID-ARGUMENT-LIST)) (A2154 (QUOTE %%CONDITION-REPORTER)) (A2153 (QUOTE 
INVALID-ARGUMENT-LIST% report% method))) (PUTPROP A2155 A2154 A2153))
STREAM-ERROR-STREAM D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE STREAM-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STREAM-ERROR D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :STREAM 26Q STREAM-ERROR)
()
(LET* ((A2156 (QUOTE STREAM-ERROR)) (A2157 (QUOTE (CL:ERROR)))) (PUT A2156 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2157))
(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 ((STREAM NIL :READ-ONLY T))))
(PUTPROP (QUOTE STREAM-ERROR) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE (STREAM)))
(FIX-INHERITANCE-LINKS (QUOTE STREAM-ERROR) (QUOTE CL:ERROR))
(LET* ((A2160 (QUOTE STREAM-ERROR)) (A2159 (QUOTE %%CONDITION-HANDLER)) (A2158 (QUOTE NIL))) (PUTPROP 
A2160 A2159 A2158))
STREAM-ERROR% report% method D1
(P 0 STREAM I 1 *STANDARD-OUTPUT* I 0 CONDITION) �
��@	��
�io���H���(17Q FORMAT 3 STREAM-ERROR-STREAM)
NIL
( 13Q "Stream error on ~S.")
(LET* ((A2163 (QUOTE STREAM-ERROR)) (A2162 (QUOTE %%CONDITION-REPORTER)) (A2161 (QUOTE 
STREAM-ERROR% report% method))) (PUTPROP A2163 A2162 A2161))
READ-ERROR-STREAM D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE READ-ERROR) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-READ-ERROR D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :STREAM 26Q READ-ERROR)
()
(LET* ((A2164 (QUOTE READ-ERROR)) (A2165 (QUOTE (STREAM-ERROR)))) (PUT A2164 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2165))
(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 ((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* ((A2168 (QUOTE READ-ERROR)) (A2167 (QUOTE %%CONDITION-HANDLER)) (A2166 (QUOTE NIL))) (PUTPROP 
A2168 A2167 A2166))
(LET* ((A2171 (QUOTE READ-ERROR)) (A2170 (QUOTE %%CONDITION-REPORTER)) (A2169 (QUOTE NIL))) (PUTPROP 
A2171 A2170 A2169))
END-OF-FILE-STREAM D1
(L (0 OBJECT)) ����
@
�NIL
NIL
()
(DEFPRINT (QUOTE END-OF-FILE) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-END-OF-FILE D1
(L (0 -args-)) �0��e
�HkJdIó¿h

g��Ihag��ð•JkØa°êJlÔZ°Ý�NIL
(37Q :STREAM 26Q END-OF-FILE)
()
(LET* ((A2172 (QUOTE END-OF-FILE)) (A2173 (QUOTE (READ-ERROR (STREAM NIL :READ-ONLY T))))) (PUT A2172 
(QUOTE %%%%INCLUDED-STRUCTURE) A2173))
(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 ((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* ((A2176 (QUOTE END-OF-FILE)) (A2175 (QUOTE %%CONDITION-HANDLER)) (A2174 (QUOTE NIL))) (PUTPROP 
A2176 A2175 A2174))
END-OF-FILE% report% method D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "End of file:~%%    ~S")
(LET* ((A2179 (QUOTE END-OF-FILE)) (A2178 (QUOTE %%CONDITION-REPORTER)) (A2177 (QUOTE 
END-OF-FILE% report% method))) (PUTPROP A2179 A2178 A2177))
(DEFPRINT (QUOTE STORAGE-CONDITION) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STORAGE-CONDITION D1
NIL �����g��h�NIL
(2 STORAGE-CONDITION)
()
(LET* ((A2180 (QUOTE STORAGE-CONDITION)) (A2181 (QUOTE (SERIOUS-CONDITION)))) (PUT A2180 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2181))
(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 NIL))
(PUTPROP (QUOTE STORAGE-CONDITION) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE STORAGE-CONDITION) (QUOTE SERIOUS-CONDITION))
(LET* ((A2184 (QUOTE STORAGE-CONDITION)) (A2183 (QUOTE %%CONDITION-HANDLER)) (A2182 (QUOTE NIL))) (
PUTPROP A2184 A2183 A2182))
(LET* ((A2187 (QUOTE STORAGE-CONDITION)) (A2186 (QUOTE %%CONDITION-REPORTER)) (A2185 (QUOTE NIL))) (
PUTPROP A2187 A2186 A2185))
(DEFPRINT (QUOTE STACK-OVERFLOW) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STACK-OVERFLOW D1
NIL �����g��h�NIL
(2 STACK-OVERFLOW)
()
(LET* ((A2188 (QUOTE STACK-OVERFLOW)) (A2189 (QUOTE (STORAGE-CONDITION)))) (PUT A2188 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2189))
(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 NIL))
(PUTPROP (QUOTE STACK-OVERFLOW) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE STACK-OVERFLOW) (QUOTE STORAGE-CONDITION))
(LET* ((A2192 (QUOTE STACK-OVERFLOW)) (A2191 (QUOTE %%CONDITION-HANDLER)) (A2190 (QUOTE NIL))) (
PUTPROP A2192 A2191 A2190))
STACK-OVERFLOW% report% method D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Stack overflow")
(LET* ((A2195 (QUOTE STACK-OVERFLOW)) (A2194 (QUOTE %%CONDITION-REPORTER)) (A2193 (QUOTE 
STACK-OVERFLOW% report% method))) (PUTPROP A2195 A2194 A2193))
(DEFPRINT (QUOTE STORAGE-EXHAUSTED) (FUNCTION \DEFPRINT.DEFSTRUCT.DEFAULT))
%%MAKE-STORAGE-EXHAUSTED D1
NIL �����g��h�NIL
(2 STORAGE-EXHAUSTED)
()
(LET* ((A2196 (QUOTE STORAGE-EXHAUSTED)) (A2197 (QUOTE (STORAGE-CONDITION)))) (PUT A2196 (QUOTE 
%%%%INCLUDED-STRUCTURE) A2197))
(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 NIL))
(PUTPROP (QUOTE STORAGE-EXHAUSTED) (QUOTE %%LOCAL-SLOT-NAMES) (QUOTE NIL))
(FIX-INHERITANCE-LINKS (QUOTE STORAGE-EXHAUSTED) (QUOTE STORAGE-CONDITION))
(LET* ((A2200 (QUOTE STORAGE-EXHAUSTED)) (A2199 (QUOTE %%CONDITION-HANDLER)) (A2198 (QUOTE NIL))) (
PUTPROP A2200 A2199 A2198))
(LET* ((A2203 (QUOTE STORAGE-EXHAUSTED)) (A2202 (QUOTE %%CONDITION-REPORTER)) (A2201 (QUOTE NIL))) (
PUTPROP A2203 A2202 A2201))
(PROCLAIM (QUOTE (SPECIAL *BREAK-ON-WARNINGS*)))
(OR (BOUNDP (QUOTE *BREAK-ON-WARNINGS*)) (SETQ *BREAK-ON-WARNINGS* NIL))
(LET* ((A2204 (QUOTE *BREAK-ON-WARNINGS*)) (A2205 (QUOTE VARIABLE)) (A2206 
"If true, calls to WARN will cause a break as well as logging the warning.")) (PROGN (COND ((FBOUNDP (
QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A2204 A2205 A2206))) A2206))
MAKE-CONDITION D1
(L (0 -args-)) �a
��e
�ka1Hl2	NdMó²¿OºIg��
��j¼»J°5a_¿OµOh__¿NkÔ^°ÔO&_¿°ôd
ýLkØ\n�ñ–hl4
��¿µìLK�(130Q \LISPERROR 40Q GETPROP)
(35Q STRUCTURE-CONSTRUCTOR)
()
SIGNAL D1
(L (0 -args-)) �R	��e
�ka!Hl2MdLó²!¿NºIg��J��[	��Kdg��
��”¿K	��a_¿OµOh_¾MkÔ]°ÉO&_¿°ô�(62Q DEBUG 54Q FAKE-TYPEP-FOR-CONDITIONS 44Q RAISE-SIGNAL 40Q MAKE-INTO-CONDITION)
(51Q SERIOUS-CONDITION 34Q SIMPLE-CONDITION)
()
CL:ERROR D1
(L (0 -args-)) �B��e
�kaHl2LdKó²¿MºIg��J��	��	��a_¿NµOh^½LkÔ\°×O&¾°ö�(46Q DEBUG 43Q RAISE-SIGNAL 40Q MAKE-INTO-CONDITION)
(34Q SIMPLE-ERROR)
()
CERRORA0001A0002 D1
(L (0 PROCEED-CASE) I 1 *STANDARD-OUTPUT* F 2 PROCEED-FORMAT-STRING F 3 ARGUMENTS) �(�g��l
iRS°d
ýIkØYn�ñ–hl4
��¿µìIH�(37Q \LISPERROR)
(2 FORMAT)
()
CERRORA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE2317 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	��	��	���(66Q \MVLIST 63Q DEBUG 60Q RAISE-SIGNAL 53Q MAKE-INTO-CONDITION 36Q MAKE-PROCEED-CASE)
(47Q SIMPLE-ERROR 32Q CERRORA0001A0002 27Q :REPORT 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL)
()
CERRORA0003 D1
(F 0 CONDITION) ��
��P�NIL
NIL
()
CERROR D1
(L (0 -args-) P 17Q PROCEED-CASE2317 P 4 CONDITION P 3 ARGUMENTS P 2 DATUM P 1 PROCEED-FORMAT-STRING) �“��e
�ka	laºHl2OdOó²,¿O»h\h
Og��
��]
¾M_¿Ng��ð²)O	��a_¿OµOh__¿OkÔ_°¹O&_¿°òg��j_¿_¿O°d
ýOkØ_n�ñ–hl4
��¿µêOO�(210Q \LISPERROR 103Q VALUES-LIST 56Q \CATCH-FUNCALL)
(150Q CERRORA0003 73Q :NORMAL 53Q CERRORA0001)
()
WARN D1
(L (0 -args-) F 11Q *ERROR-OUTPUT* F 12Q *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�(201Q CL:BREAK 171Q FORMAT 166Q REPORT-CONDITION 154Q RAISE-SIGNAL 147Q CERROR 47Q FAKE-TYPEP-FOR-CONDITIONS 40Q MAKE-INTO-CONDITION)
(143Q WARNING 140Q :DESIRED-TYPE 134Q :VALUE 131Q CONDITION 126Q :NAME 123Q TYPE-MISMATCH 44Q WARNING 34Q SIMPLE-WARNING)
( 162Q "~&Warning: ~A~%%" 120Q "Signal and report the condition anyway")
CL:BREAKA0001A0002 D1
(L (1 STREAM 0 DATUM)) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Return from BREAK")
CL:BREAKA0001 D1
(P 0 *PROCEED-CASES* F 1 PROCEED-CASE2321 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	��	���(63Q \MVLIST 60Q DEBUG 53Q MAKE-INTO-CONDITION 36Q MAKE-PROCEED-CASE)
(47Q SIMPLE-CONDITION 32Q CL:BREAKA0001A0002 27Q :REPORT 23Q :TEST 17Q :SELECTOR 13Q :TAG 10Q PROCEED 5 :NAME 2 :NORMAL)
()
CL:BREAKA0003 D1
(F 0 CONDITION) ��
��P�NIL
NIL
()
CL:BREAK D1
(L (0 -args-) P 16Q PROCEED-CASE2321 P 3 CONDITION P 2 ARGUMENTS P 1 DATUM) �”��e
�kHñ”o���kaqHl2
OdOó²)¿Oºh[h
Og��
��\
½L¾Mg��ð²(N	��a_¿OµOh__¿OkÔ_°¼O&_¿°òg��j_¿_¿N°d
ýOkØ_n�ñ–hl4
��¿µêOO�(211Q \LISPERROR 105Q VALUES-LIST 63Q \CATCH-FUNCALL)
(152Q CL:BREAKA0003 76Q :NORMAL 60Q CL:BREAKA0001)
( 13Q "Break")
DEBUG D1
(L (0 -args-)) �J��e
�kHñ”o���kaHl2LdKó²¿MZ¿Ig��J��	��°ôa_¿NµOh^½LkÔ\°ØO&¾°ö�(55Q ERRORX 52Q MAKE-INTO-CONDITION)
(46Q SIMPLE-CONDITION)
( 13Q "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 (CL:LAMBDA (PC STREAM 
LEVEL) (CL:IF *PRINT-ESCAPE* (DEFAULT-STRUCTURE-PRINTER PC STREAM LEVEL) (FUNCALL (PROCEED-CASE-REPORT
 PC) PC STREAM)) T)) X STREAM 0) T)))
MAKE-PROCEED-CASEA0001 D1
(L (1 STREAM 0 PC)) ����@Al@	��ÁÉ�g��g�����(24Q GETF 7 PROCEED-CASE-NAME)
(21Q DEFAULT-PROCEED-REPORTER 16Q %%DEFAULT-PROCEED-REPORT)
()
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
(330Q :REPORT 300Q :TEST 253Q :SELECTOR 227Q :TAG 203Q :NAME 141Q PROCEED-CASETYPE# 133Q MAKE-PROCEED-CASEA0001)
()
(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 (
CL:FUNCTION (LAMBDA (PC STREAM) (FUNCALL (DEFAULT-PROCEED-REPORT (PROCEED-CASE-NAME PC)) PC STREAM))))
)))
(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))
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������(125Q CHECK-TYPE-FAIL 102Q TEST-PROCEED-CASE 72Q PROCEED-CASE-NAME 44Q TEST-PROCEED-CASE 25Q CL:ERROR)
(115Q DATUM 54Q LITATOM 31Q PROCEED-CASE 22Q COMPUTE-PROCEED-CASES 17Q FIND-PROCEED-CASE)
( 122Q (OR NULL PROCEED-CASE SYMBOL) 13Q "~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&º°ø�(24Q \CATCH-FUNCALL)
(21Q COMPUTE-PROCEED-CASESA0001 16Q SKIP-PROCEED-CASE)
()
INVOKE-PROCEED-CASE D1
(L (0 -args-)) �½��e
�kaQlaºHl2OdOó²@¿O»IJ
��\¢±�Šg��	��g��	��–g��	��¿L	��L	��JIlð²-K	��
��a_¿OµOh__¿OkÔ_°¥O&_¿°òL	��	��²ÎL	��ÁÉ�g��'k¾½JK°d
ýNkØ^n�ñ–hl4
��¿µìNM°¡g��g��I���(272Q CL:ERROR 250Q \LISPERROR 206Q PROCEED-CASE-NAME 200Q FBOUNDP 175Q PROCEED-CASE-NAME 127Q \DO-THROW 124Q \MVLIST 106Q PROCEED-CASE-SELECTOR 102Q PROCEED-CASE-TAG 75Q BREAKRESETFN 66Q BOUNDP 57Q BOUNDP 44Q FIND-PROCEED-CASE)
(266Q :NAME 263Q BAD-PROCEED-CASE 215Q %%PROCEED-ARG-COLLECTOR 72Q LEAVING 63Q \BREAKRESETEXPR 54Q BREAKRESETVALS)
()
(LET* ((A2219 (QUOTE ABORT)) (A2218 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2217 (QUOTE TRUE))) (PUTPROP 
A2219 A2218 A2217))
ABORT-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Abort")
(LET* ((A2220 (QUOTE ABORT)) (A2221 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2222 (QUOTE 
DEFAULT-PROCEED-REPORTER)) (A2223 (QUOTE ABORT-proceed-reporter))) (PUTPROP A2220 A2221 A2223))
(LET* ((A2224 (QUOTE ABORT)) (A2225 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2227 (CL:FUNCTION (CL:LAMBDA (
&OPTIONAL CONDITION) (LIST))))) (PUTPROP A2224 A2225 A2227))
ABORTA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE2325) ��
�
@c�g��h	��
���(14Q \DO-THROW 11Q \MVLIST)
(5 CONDITION-CASE2327)
()
ABORTA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) �
��g��g��Q
�g��R
��	���(25Q \MVLIST 22Q INVOKE-PROCEED-CASE)
(16Q ABORT 5 ABORTA0001A0002 2 BAD-PROCEED-CASE)
()
ABORT D1
(P 0 CONDITION-CASE2325 I 0 CONDITION) ���
 
g��g��
��¹H‘hI	���(24Q VALUES-LIST 13Q \CATCH-FUNCALL)
(10Q ABORTA0001 5 CONDITION-CASE2327)
()
(LET* ((A2234 (QUOTE PROCEED)) (A2233 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2232 (QUOTE TRUE))) (PUTPROP 
A2234 A2233 A2232))
PROCEED-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Proceed with no special action")
(LET* ((A2235 (QUOTE PROCEED)) (A2236 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2237 (QUOTE 
DEFAULT-PROCEED-REPORTER)) (A2238 (QUOTE PROCEED-proceed-reporter))) (PUTPROP A2235 A2236 A2238))
(LET* ((A2239 (QUOTE PROCEED)) (A2240 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2242 (CL:FUNCTION (CL:LAMBDA 
(&OPTIONAL CONDITION) (LIST))))) (PUTPROP A2239 A2240 A2242))
PROCEEDA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE2329) ��
�
@c�g��h	��
���(14Q \DO-THROW 11Q \MVLIST)
(5 CONDITION-CASE2331)
()
PROCEEDA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION) �
��g��g��Q
�g��R
��	���(25Q \MVLIST 22Q INVOKE-PROCEED-CASE)
(16Q PROCEED 5 PROCEEDA0001A0002 2 BAD-PROCEED-CASE)
()
PROCEED D1
(P 0 CONDITION-CASE2329 I 0 CONDITION) ���
 
g��g��
��¹H‘hI	���(24Q VALUES-LIST 13Q \CATCH-FUNCALL)
(10Q PROCEEDA0001 5 CONDITION-CASE2331)
()
(LET* ((A2249 (QUOTE USE-VALUE)) (A2248 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2247 (QUOTE TRUE))) (PUTPROP
 A2249 A2248 A2247))
USE-VALUE-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Use a different value")
(LET* ((A2250 (QUOTE USE-VALUE)) (A2251 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2252 (QUOTE 
DEFAULT-PROCEED-REPORTER)) (A2253 (QUOTE USE-VALUE-proceed-reporter))) (PUTPROP A2250 A2251 A2253))
(LET* ((A2254 (QUOTE USE-VALUE)) (A2255 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2257 (CL:FUNCTION (
CL:LAMBDA (&OPTIONAL CONDITION (VALUE (PROGN (FORMAT *QUERY-IO* "Enter a new value: ") (EVAL (CL:READ 
*QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A2254 A2255 A2257))
USE-VALUEA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE2333) ��
�
@c�g��h	��
���(14Q \DO-THROW 11Q \MVLIST)
(5 CONDITION-CASE2335)
()
USE-VALUEA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) �
��g��g��Q
�g��RS��	���(26Q \MVLIST 23Q INVOKE-PROCEED-CASE)
(16Q USE-VALUE 5 USE-VALUEA0001A0002 2 BAD-PROCEED-CASE)
()
USE-VALUE D1
(L (0 -args-) P 4 CONDITION-CASE2333 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) �@
�e
�kHñ‘hkalHñ²Uo���
��¿U	��	��‚lag��g��
��ºL‘hJ	���(75Q VALUES-LIST 64Q \CATCH-FUNCALL 44Q EVAL 41Q CL:READ 34Q FORMAT)
(61Q USE-VALUEA0001 56Q CONDITION-CASE2335)
( 31Q "Enter a new value: ")
(LET* ((A2264 (QUOTE STORE-VALUE)) (A2263 (QUOTE %%DEFAULT-PROCEED-TEST)) (A2262 (QUOTE TRUE))) (
PUTPROP A2264 A2263 A2262))
STORE-VALUE-proceed-reporter D1
(I 1 STREAM I 0 DATUM) �
���o���A
���(7 WRITE-STRING)
NIL
( 3 "Store a new value and use it")
(LET* ((A2265 (QUOTE STORE-VALUE)) (A2266 (QUOTE %%DEFAULT-PROCEED-REPORT)) (A2267 (QUOTE 
DEFAULT-PROCEED-REPORTER)) (A2268 (QUOTE STORE-VALUE-proceed-reporter))) (PUTPROP A2265 A2266 A2268))
(LET* ((A2269 (QUOTE STORE-VALUE)) (A2270 (QUOTE %%PROCEED-ARG-COLLECTOR)) (A2272 (CL:FUNCTION (
CL:LAMBDA (&OPTIONAL CONDITION (VALUE (PROGN (FORMAT *QUERY-IO* "Enter a value to store: ") (CL:EVAL (
CL:READ *QUERY-IO*))))) (LIST VALUE))))) (PUTPROP A2269 A2270 A2272))
STORE-VALUEA0001A0002 D1
(L (0 C) F 0 CONDITION-CASE2337) ��
�
@c�g��h	��
���(14Q \DO-THROW 11Q \MVLIST)
(5 CONDITION-CASE2339)
()
STORE-VALUEA0001 D1
(P 0 *CONDITION-HANDLER-BINDINGS* F 1 *CONDITION-HANDLER-BINDINGS* F 2 CONDITION F 3 VALUE) �
��g��g��Q
�g��RS��	���(26Q \MVLIST 23Q INVOKE-PROCEED-CASE)
(16Q STORE-VALUE 5 STORE-VALUEA0001A0002 2 BAD-PROCEED-CASE)
()
STORE-VALUE D1
(L (0 -args-) P 4 CONDITION-CASE2337 P 3 VALUE P 1 CONDITION F 5 *QUERY-IO*) �@
�e
�kHñ‘hkalHñ²Uo���
��¿U	��	��‚lag��g��
��ºL‘hJ	���(75Q VALUES-LIST 64Q \CATCH-FUNCALL 44Q CL:EVAL 41Q CL:READ 34Q FORMAT)
(61Q STORE-VALUEA0001 56Q CONDITION-CASE2339)
( 31Q "Enter a value to store: ")
SIMPLE-FORMAT D1
(L (0 -args-) F 11Q *STANDARD-OUTPUT*) �N	
�e
�ka!Hl2MdLó²¿NºIið’W¹J[d³ a_¿OµOh_¾MkÔ]°×O&_¿°ô
I
��¿K°Ö�(107Q CL:PRINT)
NIL
()
(MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE FORMAT))
(PUTPROPS ERROR-RUNTIME FILETYPE COMPILE-FILE)
(PUTPROPS ERROR-RUNTIME COPYRIGHT ("Xerox Corporation" 1986))
NIL