(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "21-Oct-86 13:02:00" ("compiled on " {eris}sources>cl-error.\;9) "21-Oct-86 04:13:01" "COMPILE-FILEd" |in| "Xerox Lisp 21-Oct-86 ..." |dated| "21-Oct-86 04:48:43") (filecreated "21-Oct-86 13:01:09" {eris}sources>cl-error.\;9 35366 |changes| |to:| ( functions define-proceed-function) |previous| |date:| "17-Oct-86 17:30:10" {eris}sources>cl-error.\;8) (rpaqq cl-errorcoms ((coms (* |;;| "Temporary bootstrapping stuff. Anything in here gets changed once CL starts working.") (functions condition-typecase condition-block condition-return)) (coms (* |;;| "Internal stuff.") (export ( variables %condition-types-real)) (functions default-proceed-report) (functions with-gensyms with-err-loop-vars strip-keywords make-fake-report-function make-report-function make-encapsulation normalize-slot-descriptions extract-condition-bindings normalize-condition-clauses massage-catch-condition-clauses split-proceed-clauses proceed-case-from-clause process-proceed-keywords check-*case-selector collect-case-selectors no-proceed-test %prefix-symbol %suffix-symbol proceed-arg-collector)) (coms (* |;;| "User-visible forms. These should all be external symbols. Any others should be internal.") (functions define-condition cl:check-type cl:etypecase ctypecase cl:ecase cl:ccase cl:assert handler-bind condition-bind condition-case real-condition-case ignore-errors proceed-case real-proceed-case define-proceed-function catch-abort)) (prop filetype cl-error) (declare\: donteval@load doeval@compile dontcopy compilervars (addvars (nlama) (nlaml) (lama))))) |expand-CONDITION-TYPECASEA0001| d1 (l (0 clause) f 3 val) #@!HHIi@gSgIhhJnil (22 quote 18 condition-typep) () |expand-CONDITION-TYPECASE| d1 (l (1 $$macro-environment 0 $$macro-form) p 3 val) ,@!HHgKIhhggJ h(36 cl:mapcar 13 cl:gensym) (32 |expand-CONDITION-TYPECASEA0001| 29 cond 19 let) () (setf-macro-function (quote condition-typecase) (quote |expand-CONDITION-TYPECASE|)) |expand-CONDITION-BLOCK| d1 (l (1 $$macro-environment 0 $$macro-form)) @!HHggIhJnil (16 quote 13 cl:catch) () (setf-macro-function (quote condition-block) (quote |expand-CONDITION-BLOCK|)) |expand-CONDITION-RETURN| d1 (l (1 $$macro-environment 0 $$macro-form)) @!HHdggIhJhnil (19 quote 16 cl:throw) () (setf-macro-function (quote condition-return) (quote |expand-CONDITION-RETURN|)) (setq %condition-types-real nil) (puthash (quote %condition-types-real) (quote (constant %condition-types-real)) compvarmacrohash) |expand-DEFAULT-PROCEED-REPORT| d1 (l (1 $$macro-environment 0 $$macro-form)) @gHonil (8 get) ( 13 ((quote %default-proceed-report) (quote default-proceed-reporter))) (setf-macro-function (quote default-proceed-report) (quote |expand-DEFAULT-PROCEED-REPORT|)) |expand-WITH-GENSYMS| d1 (l (1 $$macro-environment 0 $$macro-form)) >@AHHZJg0IdgKhhNMh_M&OLnil (29 gensym 18 let) () (setf-macro-function (quote with-gensyms) (quote |expand-WITH-GENSYMS|)) |expand-WITH-ERR-LOOP-VARS| d1 (l (1 $$macro-environment 0 $$macro-form)) @!HHgoIJnil (13 with-gensyms) ( 17 (val block-name again)) (setf-macro-function (quote with-err-loop-vars) (quote |expand-WITH-ERR-LOOP-VARS|)) strip-keywords d1 (l (0 args)) 3@1Hb@d I@ @hJ KhZ@K&(22 cl:values 14 cl:keywordp) nil () make-fake-report-function d1 (l (2 encapsulation 1 bound-var 0 datum)) W@HYd goog@ohIgAoB@gB@hhgHo (84 check-type-fail 9 cl:stringp) (76 datum 62 let 49 lambda 44 listp 26 cl:write-string 15 lambda) ( 81 (or string list) 54 (*standard-output*) 31 (stream) 23 (declare (ignore datum)) 19 (datum stream)) make-report-function d1 (l (2 type-name 1 bound-var 0 datum)) Y@HYd goog@ohIgAoBgBA@h@hgHo (86 check-type-fail 9 cl:stringp) (78 datum 60 with 49 lambda 44 listp 26 cl:write-string 15 lambda) ( 83 (or string list) 54 (*standard-output*) 31 (stream) 23 (declare (ignore datum)) 19 (datum stream)) make-encapsulation d1 (l (1 slot-names 0 condition-type)) <@gA ,d[@goK ohIHhZH&J(32 %suffix-symbol 29 cl:concatenate 26 cl:symbol-name 9 cl:remove) (18 string 5 --dummy-slot--) ( 36 (condition) 22 "-") normalize-slot-descriptions d1 (l (0 slots)) F@@_O^h O:NNO>_