(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "17-Oct-86 17:32:49" ("compiled on " {ERIS}LISP>CL-ERROR.;14) "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:30:10" {ERIS}LISP>CL-ERROR.;14 34983 changes to%: (FUNCTIONS DEFINE-CONDITION IGNORE-ERRORS WITH-GENSYMS CL:CHECK-TYPE HANDLER-BIND PROCEED-ARG-COLLECTOR PROCEED-CASE REAL-PROCEED-CASE CONDITION-TYPECASE WITH-ERR-LOOP-VARS MAKE-FAKE-REPORT-FUNCTION MAKE-REPORT-FUNCTION NORMALIZE-CONDITION-CLAUSES PROCEED-CASE-FROM-CLAUSE COLLECT-CASE-SELECTORS NO-PROCEED-TEST CL:ETYPECASE CONDITION-CASE REAL-CONDITION-CASE) (VARS CL-ERRORCOMS) previous date%: "16-Oct-86 17:34:09" {ERIS}LISP>CL-ERROR.;13) (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) #@!H¹HºIið‘@gSgIhhJNIL (22 QUOTE 18 CONDITION-TYPEP) () expand-CONDITION-TYPECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) P 3 VAL) ,@!H¹HºgKIhhggJ 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)) @!H¹HºggIhJNIL (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)) @!H¹HdºggIhJhNIL (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 CL: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)) B@AH¹HZ»J¼g0I° dgKhh½N‘h€i•Mh_‚NM&¾µá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)) @!H¹HºgoIJNIL (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)) 7@1Hbµ I@ ‘h€i³ñ@@h»JµKhZ¹@°ÖK&º°ø(20 CL:KEYWORDP 15 CL:VALUES) NIL () MAKE-FAKE-REPORT-FUNCTION D1 (L (2 ENCAPSULATION 1 BOUND-VAR 0 DATUM)) W@HYd ²¿goog@oh•IÃ´gAoB¡@ˆ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 CL: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@oh•IÃ´gAoB›gBA@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 CL: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 °0d[@goK oh¸I‘h€i”HhZ‚IH&¹µÑJ(32 %%SUFFIX-SYMBOL 29 CL:CONCATENATE 26 CL:SYMBOL-NAME 9 CL:REMOVE) (18 CL:STRING 5 --DUMMY-SLOT--) ( 36 (CONDITION) 22 "-") NORMALIZE-SLOT-DESCRIPTIONS D1 (L (0 SLOTS)) J@@°@d[d²#d kôš¿Ko °KgiKƒo¸I‘h€i”HhZ‚IH&¹µÁJ(28 \APPEND2 16 LENGTH) (37 :READ-ONLY) ( 49 (NIL :READ-ONLY T) 25 (NIL :READONLY T)) EXTRACT-CONDITION-BINDINGS D1 (L (0 CLAUSES)) 2@@°(d»ggKhKh¸I‘h€i”HhZ‚IH&¹µÙJNIL (14 QUOTE 11 CONS) () NORMALIZE-CONDITION-CLAUSES D1 (L (0 CLAUSES)) ‚ `@°pd]\d—dÃ²H¿Lgð•o°F0L°-d[lð”KM‡oL ¾O‘h€i•Nh_ƒON&_¿µÔOÃ“Mh‡oL X–IµHZY¿µ‘J YH°ó(123 LAST 104 CL:ERROR 59 CL:ERROR) (91 LITATOM 24 QUOTE 16 LISTP) ( 100 "Bad condition spec ~s. Should be symbol or list of symbols." 55 "Bad condition spec ~s. Should be list of unquoted symbols." 30 "Bad condition spec ~s. Should be unquoted.") MASSAGE-CATCH-CONDITION-CLAUSES D1 (L (1 INIT-VALUE 0 CLAUSES)) Cp@°9d^½N¼N»L£MK°MgLAhLKh¸I‘h€i”HhZ‚IH&¹µÈJNIL (28 LET) () SPLIT-PROCEED-CLAUSES D1 (L (1 TAG 0 CLAUSES)) @jOµH I ___¿O_¿OO ^½N\»LºO³M‘h€i“g½K‘h€i²XoO °LM‘h€i²OÁÉg'‘h€i™oO ¿K‘h€i²&gogggOhhoh[¿gggOhgAgOgM´ gMhggKhhH¸OggOJhhI¹O_¿OkÔ_¿±þû(128 CL:WARN 95 CL:ERROR 53 \MVLIST 50 PROCESS-PROCEED-KEYWORDS 24 CL:VALUES 21 REVERSE 17 REVERSE) (241 CL:LAMBDA 238 FUNCTION 214 FUNCTION 211 :REPORT 204 FUNCTION 198 :TEST 193 :SELECTOR 189 :TAG 181 QUOTE 178 :NAME 175 MAKE-PROCEED-CASE 152 QUOTE 149 DEFAULT-PROCEED-REPORT 146 CL:FUNCALL 139 CL:LAMBDA 113 %%DEFAULT-PROCEED-TEST 78 TRUE) ( 164 (PC STREAM) 143 (PC STREAM) 123 "No test specified for proceed type ~A: may be undefined." 90 "Unnamed proceed cases must have a report method: ~S") PROCEED-CASE-FROM-CLAUSE D1 (L (2 DUMMY 1 TAG 0 CLAUSE)) á @H¹HºH»IK \½L^_¿N_¿I³M‘h€i“g½O‘h€i²Vo@ °KM‘h€i²IÁÉg'‘h€i˜oI ¿O‘h€i²&gogggIhhoh_¿gggIhgAggggJµBhOhgM´ gMhggOhh(98 CL:WARN 67 CL:ERROR 22 \MVLIST 19 PROCESS-PROCEED-KEYWORDS) (205 FUNCTION 202 :REPORT 195 FUNCTION 189 :TEST 172 &OPTIONAL 169 CL:LAMBDA 166 FUNCTION 163 :CONTINUATION 159 :TAG 152 QUOTE 149 :NAME 146 MAKE-REAL-PROCEED-CASE 123 QUOTE 120 DEFAULT-PROCEED-REPORT 117 CL:FUNCALL 110 CL:LAMBDA 84 %%DEFAULT-PROCEED-TEST 50 TRUE) ( 134 (PC STREAM) 114 (PC STREAM) 94 "No test specified for proceed type ~A: may be undefined." 63 "Unnamed proceed cases must have a report method: ~S") PROCESS-PROCEED-KEYWORDS D1 (L (1 ARG 0 NAME)) ¶€A Z»J¼K±•d_¾O½NdgðŸ¿H˜o@ ¿MX°pgð²,H˜o@ ¿gogggMhhhX°@NdgðŸ¿I˜o@ ¿MY°)gð²I˜o@ ¿Mg YŒooN@¿µ‚±ÿjHIL(179 CL:VALUES 164 CL:CERROR 149 MAKE-REPORT-FUNCTION 141 CL:ERROR 120 CL:ERROR 70 CL:ERROR 49 CL:ERROR 9 \MVLIST 6 STRIP-KEYWORDS) (146 PROCEED-CASE 128 :REPORT 107 :REPORT-FUNCTION 87 QUOTE 84 C 81 CONDITION-TYPEP 74 CL:LAMBDA 57 :CONDITION 36 :TEST) ( 159 "Illegal keyword ~S in proceed case ~S." 155 "Ignore key/value pair" 137 "Duplicate report form specified for proceed type ~S." 116 "Duplicate report form specified for proceed type ~S." 78 (C) 66 "Duplicate test form specified for proceed type ~S." 45 "Duplicate test form specified for proceed type ~S.") CHECK-*CASE-SELECTOR D1 (L (1 NAME 0 SELECTOR)) @ið§@dgð™¿o@A(20 CL:ERROR) (8 OTHERWISE) ( 15 "~A not allowed in the ~A form.") COLLECT-CASE-SELECTORS D1 (L (1 NAME 0 CLAUSES)) B@@°0d[d²¿Agð¥Agð•K ‡KA hX–IµHZY¿µÑJ YH°ó(59 LAST 38 CHECK-*CASE-SELECTOR 31 CL:COPY-LIST) (24 CL:CCASE 18 CL:ECASE) () NO-PROCEED-TESTA0001A0002 D1 (L (0 C)) @g (6 FAKE-TYPEP-FOR-CONDITIONS) (3 NO-PROCEED-TEST) () NO-PROCEED-TESTA0001A0003 D1 (L (1 STREAM 0 DATUM)) oA (7 CL:WRITE-STRING) NIL ( 3 "Use FALSE for the test") NO-PROCEED-TESTA0001A0004 D1 (L (0 C)) @g (6 FAKE-TYPEP-FOR-CONDITIONS) (3 NO-PROCEED-TEST) () NO-PROCEED-TESTA0001A0005 D1 (L (1 STREAM 0 DATUM)) oA (7 CL:WRITE-STRING) NIL ( 3 "Make TRUE the default test") NO-PROCEED-TESTA0001A0006 D1 (L (0 C) F 0 ONCE F 1 NAME) @ Qð´Pšgh ic(19 \DO-THROW 16 \MVLIST 3 NO-PROCEED-TEST-NAME) (12 SKIP-PROCEED-CASE) () NO-PROCEED-TESTA0001 D1 (P 1 *CONDITION-HANDLER-BINDINGS* P 0 *PROCEED-CASES* F 2 PROCEED-CASE6286 F 3 *PROCEED-CASES* F 4 *CONDITION-HANDLER-BINDINGS* F 5 NAME) agghgRgjgggg gggRgkgggg SggTggU (92 \MVLIST 88 CL:ERROR 60 MAKE-PROCEED-CASE 30 MAKE-PROCEED-CASE) (84 :NAME 81 NO-PROCEED-TEST 72 NO-PROCEED-TESTA0001A0006 69 NO-PROCEED-TEST 56 NO-PROCEED-TESTA0001A0005 53 :REPORT 50 NO-PROCEED-TESTA0001A0004 47 :TEST 43 :SELECTOR 39 :TAG 36 PROCEED 33 :NAME 26 NO-PROCEED-TESTA0001A0003 23 :REPORT 20 NO-PROCEED-TESTA0001A0002 17 :TEST 13 :SELECTOR 9 :TAG 5 :NAME 2 :NORMAL) () NO-PROCEED-TESTA0007 D1 NIL gNIL (2 FALSE) () NO-PROCEED-TESTA0008 D1 (F 0 NAME) Pgg(9 PUTPROP) (6 TRUE 3 %%DEFAULT-PROCEED-TEST) () NO-PROCEED-TEST D1 (P 6 PROCEED-CASE6286 P 0 ONCE I 0 NAME) T`hhNg YºI»Jdgð•¿K j:“g‡Jk:´gj½¼K°dýMkØ]nñ–hl4 ¿µìML(75 \LISPERROR 34 CL:VALUES-LIST 15 \CATCH-FUNCALL) (50 NO-PROCEED-TESTA0008 41 NO-PROCEED-TESTA0007 27 :NORMAL 12 NO-PROCEED-TESTA0001) () %%PREFIX-SYMBOL D1 (L (1 CL:SYMBOL 0 PREFIX)) g@A A (17 CL:INTERN 14 CL:SYMBOL-PACKAGE 10 CL:CONCATENATE 7 CL:SYMBOL-NAME) (2 CL:STRING) () %%SUFFIX-SYMBOL D1 (L (1 SUFFIX 0 CL:SYMBOL)) g@ A@ (17 CL:INTERN 14 CL:SYMBOL-PACKAGE 10 CL:CONCATENATE 6 CL:SYMBOL-NAME) (2 CL:STRING) () expand-PROCEED-ARG-COLLECTOR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (8 CL:GET) ( 13 ((QUOTE %%PROCEED-ARG-COLLECTOR))) (SETF-MACRO-FUNCTION (QUOTE PROCEED-ARG-COLLECTOR) (QUOTE expand-PROCEED-ARG-COLLECTOR)) (LET* ((A6199 (QUOTE PROCEED-ARG-COLLECTOR)) (A6200 (QUOTE CL:FUNCTION)) (A6201 "Function that collects user-specified optional args (excluding the condition) for a named proceed case." )) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6199 A6200 A6201))) A6201) ) expand-DEFINE-CONDITIONA0001 D1 (L (0 X)) @d NIL NIL () expand-DEFINE-CONDITION D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) n)@ ñ0@¹HºH[¼K½ggogoJ ho 1M _$_"¿O$ _ ¿LJð³7L _¿O AO.µ3O0_¿gLOO&_&¿O A O8µKO:_ ¿JL 1$OB±ž_6Ogg‘h€i³O6_4¿O2µO4h_2_0¿O._.° O4&_2¿°ó_@_¿O^µh²°$O:‘h€i¢N°òN°éO@_>¿O<µO>h_<_:¿O8_8±ÿ|O>&_<¿°òdkg_D¿OF‘h€i–ODh_H„OFOD&_F¿µÝOHO 1(OJ°$dkg_L¿ON‘h€i–OLh_P„ONOL&_N¿µÝOP _,¿O"±Æd___¿O_¿Odgðš¿OO&_&± gð²O(šoJ ±ŒO_(±…Odgð²¿O(™oJ °mOgO,_(°_gð²O*™oJ °LO_*°FOgð².O*™oJ °1goO,¢OŠgO,Ohh_*ooOg¿µ‚±ÿ9ggJO&O JLð³ggJhgLhhh€hO*´1Jo _¿gggOhhgO*hhhO_*¿gggJhhO*´ gO*hhO(´1Jo _¿gggOhhgO(hhhO_(¿gggJhhO(´ gO(hhgJhh hgoggggJhogIhhhhgJhh(810 \APPEND2 807 \APPEND2 803 \APPEND2 719 %%SUFFIX-SYMBOL 635 %%SUFFIX-SYMBOL 569 CL:CERROR 520 CL:ERROR 493 CL:ERROR 472 MAKE-FAKE-REPORT-FUNCTION 460 CL:ERROR 429 CL:ERROR 368 MAKE-ENCAPSULATION 365 \NCONC2 167 CL:MEMBER 144 SLOT-LIST 90 SLOT-LIST 78 NORMALIZE-SLOT-DESCRIPTIONS 65 \MVLIST 62 STRIP-KEYWORDS 55 \APPEND2 44 %%PREFIX-SYMBOL 4 REMOVE-COMMENTS) (866 QUOTE 846 QUOTE 835 QUOTE 832 \DEFINE-TYPE-SAVE-DEFN 829 FILEPKGFLG 826 AND 819 CL:EVAL-WHEN 793 QUOTE 781 FUNCTION 767 QUOTE 764 CONDITION-REPORTER 761 CL:SETF 742 FUNCTION 731 QUOTE 728 CL:SYMBOL-FUNCTION 725 CL:SETF 697 FUNCTION 683 QUOTE 680 CONDITION-HANDLER 677 CL:SETF 658 FUNCTION 647 QUOTE 644 CL:SYMBOL-FUNCTION 641 CL:SETF 610 QUOTE 603 QUOTE 600 FIX-INHERITANCE-LINKS 584 DEFSTRUCT 581 PROGN 566 DEFINE-CONDITION 538 LET 525 LAMBDA 506 :HANDLE 479 :HANDLER-FUNCTION 467 CONDITION 445 :REPORT 415 :REPORT-FUNCTION 399 :CONC-NAME 328 expand-DEFINE-CONDITIONA0001 279 expand-DEFINE-CONDITIONA0001 164 expand-DEFINE-CONDITIONA0001 161 :KEY 112 :INCLUDE 36 :CONSTRUCTOR 29 WITHOUT-FILEPKG 26 PROGN) ( 843 (QUOTE STRUCTURES) 823 (CL:EVAL) 716 " report method" 632 " default handler" 561 "Illegal keyword ~S in ~S." 557 "Skip key-value pair" 529 (CONDITION) 516 "Handler already specified for ~S." 489 "Handler already specified for ~S." 456 "Report function already specified for ~S." 425 "Report function already specified for ~S." 51 ((:COPIER NIL) (:PREDICATE NIL)) 40 "%%MAKE-" 33 ((:TYPE LIST) :NAMED)) (SETF-MACRO-FUNCTION (QUOTE DEFINE-CONDITION) (QUOTE expand-DEFINE-CONDITION)) (ADDTOVAR PRETTYPRINTMACROS (DEFINE-CONDITION . PPRINT-DEFINER)) (LET* ((A6208 (QUOTE DEFINE-CONDITION)) (A6209 (QUOTE CL:FUNCTION)) (A6210 "Defines a new condition type")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) ( SET-DOCUMENTATION A6208 A6209 A6210))) A6210)) CL::expand-CHECK-TYPE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) –@AH¹HZ»Jd¼o o o gNgOgMIhhggMgKhhgNhhgIgigIhMgKhLhhgOhhhh(39 GENSYM 32 GENSYM 25 GENSYM) (128 GO 109 QUOTE 101 QUOTE 97 CHECK-TYPE-FAIL 93 CL:SETF 82 CL:RETURN-FROM 71 QUOTE 67 TYPEP 64 CL:WHEN 54 LET 49 CL:TAGBODY 45 CL:BLOCK) ( 36 "CHECK-TYPE" 29 "CHECK-TYPE" 22 "CHECK-TYPE") (SETF-MACRO-FUNCTION (QUOTE CL:CHECK-TYPE) (QUOTE CL::expand-CHECK-TYPE)) CL::expand-ETYPECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) [@AH¹Hºo »gJg ¼gKIhhgKJighgIhKgLhohh h(82 \APPEND2 28 COLLECT-CASE-SELECTORS 17 GENSYM) (61 QUOTE 53 QUOTE 49 CHECK-TYPE-FAIL 43 CL:TYPECASE 33 LET 25 CL:ETYPECASE 21 OR) ( 69 (NIL) 14 "ETYPECASE") (SETF-MACRO-FUNCTION (QUOTE CL:ETYPECASE) (QUOTE CL::expand-ETYPECASE)) expand-CTYPECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) “@1H¹HºgJg »o o o gMgNgLIhhgMgLJigIgigIhLgKhohgNhhh hhhh(126 \APPEND2 43 GENSYM 36 GENSYM 29 GENSYM 20 COLLECT-CASE-SELECTORS) (113 GO 93 QUOTE 85 QUOTE 81 CHECK-TYPE-FAIL 77 CL:SETF 71 CL:TYPECASE 67 CL:RETURN-FROM 57 LET 53 CL:TAGBODY 49 CL:BLOCK 17 CTYPECASE 13 OR) ( 101 (NIL) 40 "CTYPECASE" 33 "CTYPECASE" 26 "CTYPECASE") (SETF-MACRO-FUNCTION (QUOTE CTYPECASE) (QUOTE expand-CTYPECASE)) CL::expand-ECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) [@AH¹Hºo »Jg \²:gKIhhgKJighgIhKgLhhhh ho(77 \APPEND2 25 COLLECT-CASE-SELECTORS 17 GENSYM) (59 QUOTE 51 QUOTE 47 ECASE-FAIL 41 CASE 31 LET 22 CL:ECASE) ( 88 (CL:ERROR "Empty case statement.") 14 "ECASE") (SETF-MACRO-FUNCTION (QUOTE CL:ECASE) (QUOTE CL::expand-ECASE)) CL::expand-CCASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ˜@1H¹HZg [‘h€i—o ¿o o o gMgNgLIhhgMgLJigIgigIhLgKhhhgNhhh hhhh(131 \APPEND2 51 GENSYM 44 GENSYM 37 GENSYM 29 CL:ERROR 16 COLLECT-CASE-SELECTORS) (118 GO 101 QUOTE 93 QUOTE 89 ECASE-FAIL 85 CL:SETF 79 CASE 75 CL:RETURN-FROM 65 LET 61 CL:TAGBODY 57 CL:BLOCK 13 CL:CCASE) ( 48 "CCASE" 41 "CCASE" 34 "CCASE" 26 "Empty CCASE.") (SETF-MACRO-FUNCTION (QUOTE CL:CCASE) (QUOTE CL::expand-CCASE)) CL::expand-ASSERT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) { @aH¹HZd»J\d½L¾KŸK‘h€i˜oK ¿o o o gOgOgIgOohgMNgOhhh(63 GENSYM 56 GENSYM 49 GENSYM 41 CL:ERROR) (105 GO 98 ASSERT-FAIL 83 CL:RETURN-FROM 79 CL:WHEN 74 CL:TAGBODY 69 CL:BLOCK) ( 89 ((CL:VALUES)) 60 "ASSERT" 53 "ASSERT" 46 "ASSERT" 37 "~S should be a list of places.") (SETF-MACRO-FUNCTION (QUOTE CL:ASSERT) (QUOTE CL::expand-ASSERT)) expand-HANDLER-BIND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) -@!H¹HºgggI o hhJ(33 \APPEND2 26 EXTRACT-CONDITION-BINDINGS 23 NORMALIZE-CONDITION-CLAUSES) (19 LIST* 16 *CONDITION-HANDLER-BINDINGS* 13 LET) ( 30 (*CONDITION-HANDLER-BINDINGS*)) (SETF-MACRO-FUNCTION (QUOTE HANDLER-BIND) (QUOTE expand-HANDLER-BIND)) (LET* ((A6228 (QUOTE HANDLER-BIND)) (A6229 (QUOTE CL:FUNCTION)) (A6230 "Eval forms under temporary new condition handlers.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6228 A6229 A6230))) A6230)) expand-CONDITION-BIND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!H¹HºgIJNIL (13 HANDLER-BIND) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-BIND) (QUOTE expand-CONDITION-BIND)) (LET* ((A6233 (QUOTE CONDITION-BIND)) (A6234 (QUOTE CL:FUNCTION)) (A6235 "Eval forms under temporary new condition handlers; synonym for HANDLER-BIND")) (PROGN (COND (( CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6233 A6234 A6235))) A6235)) expand-CONDITION-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) Þ@1H¹Hºo o o o J [¡IgLoMgNgOggogLogNhhhhhggK OhhgIhhhhhhgLK k:™KL °"gLKL igoLhhh gMhhh(201 \APPEND2 180 MASSAGE-CATCH-CONDITION-CLAUSES 166 MASSAGE-CATCH-CONDITION-CLAUSES 158 LENGTH 118 CL:MAPCAR 45 NORMALIZE-CONDITION-CLAUSES 38 GENSYM 31 GENSYM 24 GENSYM 17 GENSYM) (206 CL:VALUES-LIST 184 CL:ERROR 174 CONDITION-TYPECASE 153 CL:IF 128 CL:MULTIPLE-VALUE-LIST 114 CAR 111 HANDLER-BIND 91 CONDITION-RETURN 81 CL:SETF 74 CL:LAMBDA 71 FUNCTION 66 LET 62 CONDITION-BLOCK 52 LET*) ( 188 "Bug in condition-case!~&Unexpected condition: ~S." 86 (C) 78 (C) 57 (NIL) 35 "CONDITION-CASE" 28 "CONDITION-CASE" 21 "CONDITION-CASE" 14 "CONDITION-CASE") (SETF-MACRO-FUNCTION (QUOTE CONDITION-CASE) (QUOTE expand-CONDITION-CASE)) (LET* ((A6238 (QUOTE CONDITION-CASE)) (A6239 (QUOTE CL:FUNCTION)) (A6240 "Eval form under condition handlers that provide alternate continuations.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6238 A6239 A6240))) A6240)) expand-REAL-CONDITION-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) Þ@aH¹Hºo o o o gOgogOg0 J°zd^½N¼N»MggOhgOgggLµ;OhggOhhhK hOhhhhh_¿O•h„h°Úi–Oh_„OO&_¿µ‡OgOIhhhhh(133 \APPEND2 38 GENSYM 31 GENSYM 24 GENSYM 17 GENSYM) (196 CL:RETURN-FROM 118 IGNORE 115 DECLARE 105 CL:LAMBDA 102 FUNCTION 99 CL:VALUES 94 CL:RETURN-FROM 87 CL:LAMBDA 84 FUNCTION 61 HANDLER-BIND 56 CL:BLOCK 49 CL:MULTIPLE-VALUE-CALL 44 CL:BLOCK) ( 53 (QUOTE CL:FUNCALL) 35 "CONDITION-CASE" 28 "CONDITION-CASE" 21 "CONDITION-CASE" 14 "CONDITION-CASE") (SETF-MACRO-FUNCTION (QUOTE REAL-CONDITION-CASE) (QUOTE expand-REAL-CONDITION-CASE)) (LET* ((A6243 (QUOTE REAL-CONDITION-CASE)) (A6244 (QUOTE CL:FUNCTION)) (A6245 "Eval form under condition handlers that provide alternate continuations.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6243 A6244 A6245))) A6245)) expand-IGNORE-ERRORS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ggHoNIL (10 PROGN 7 CONDITION-CASE) ( 16 ((ERROR (CONDITION) NIL))) (SETF-MACRO-FUNCTION (QUOTE IGNORE-ERRORS) (QUOTE expand-IGNORE-ERRORS)) (LET* ((A6247 (QUOTE IGNORE-ERRORS)) (A6248 (QUOTE CL:FUNCTION)) (A6249 "Eval forms with handler for any condition of type ERROR.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6247 A6248 A6249))) A6249)) expand-PROCEED-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) À @QH¹Hºo o o JO [¼K½L¡IgNOgOohgOgggggLo hhgIhhhhhggNogOhgM k:”M†gNMOhhh(158 LENGTH 101 \APPEND2 43 \MVLIST 40 SPLIT-PROCEED-CLAUSES 31 GENSYM 24 GENSYM 17 GENSYM) (169 CASE 154 CL:APPLY 146 CL:VALUES-LIST 136 EQ 133 CL:IF 110 CL:MULTIPLE-VALUE-LIST 93 LIST* 90 *PROCEED-CASES* 87 LET 84 :NORMAL 81 CONS 76 CL:CATCH 64 LET 57 DESTRUCTURING-BIND) ( 141 (:NORMAL) 98 (*PROCEED-CASES*) 70 ((LIST NIL)) 28 "PROCEED-CASE" 21 "PROCEED-CASE" 14 "PROCEED-CASE") (SETF-MACRO-FUNCTION (QUOTE PROCEED-CASE) (QUOTE expand-PROCEED-CASE)) (LET* ((A6252 (QUOTE PROCEED-CASE)) (A6253 (QUOTE CL:FUNCTION)) (A6254 "Eval forms, establishing a place to proceed from errors.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6252 A6253 A6254))) A6254)) expand-REAL-PROCEED-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @±H¹Hºo o o gOgOogg0J±dOOO$__¿O_¿O_¿OO _¾O]¼M»O³N‘h€i“g¾L‘h€i²XoO$ °LN‘h€i²OÁÉg'‘h€i™oO ¿L‘h€i²&gogggOhhoh\¿gggOhgO&ggggOµO(hKhgN´ gNhggLhh_¿O ‘h€i–Oh_"„O O&_ ¿µ‚±þîO"o hhgogOgOIhhhhh(349 \APPEND2 180 CL:WARN 147 CL:ERROR 103 \MVLIST 100 PROCESS-PROCEED-KEYWORDS 31 GENSYM 24 GENSYM 17 GENSYM) (371 CL:RETURN-FROM 366 CL:CATCH 359 CL:MULTIPLE-VALUE-CALL 289 CL:FUNCTION 286 :REPORT 279 CL:FUNCTION 273 :TEST 255 &OPTIONAL 252 CL:LAMBDA 249 CL:FUNCTION 246 :CONTINUATION 241 :TAG 233 QUOTE 230 :NAME 227 MAKE-REAL-PROCEED-CASE 204 QUOTE 201 DEFAULT-PROCEED-REPORT 198 CL:FUNCALL 191 CL:LAMBDA 165 %%DEFAULT-PROCEED-TEST 130 TRUE 55 LIST* 52 *PROCEED-CASES* 42 LET* 37 CL:BLOCK) ( 363 (QUOTE CL:FUNCALL) 346 (*PROCEED-CASES*) 216 (PC STREAM) 195 (PC STREAM) 175 "No test specified for proceed type ~A: may be undefined." 142 "Unnamed proceed cases must have a report method: ~S" 48 ((LIST NIL)) 28 "PROCEED-CASE" 21 "PROCEED-CASE" 14 "PROCEED-CASE") (SETF-MACRO-FUNCTION (QUOTE REAL-PROCEED-CASE) (QUOTE expand-REAL-PROCEED-CASE)) (LET* ((A6257 (QUOTE REAL-PROCEED-CASE)) (A6258 (QUOTE CL:FUNCTION)) (A6259 "Eval forms, establishing a place to proceed from errors.")) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A6257 A6258 A6259))) A6259)) expand-DEFINE-PROCEED-FUNCTION D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) Ã@ ±@¹HºH»ggJK __¿O__¿O_¿0O°%ddlð _¿O‘h€i–Oh_„OO&_¿µÜO¼O‘h€i•g_¿O‘h€i•g_¿gO´-Jo ½gggMhhgOhhhM_¿gggJhhgOhhO´-Jo ¾gggNhhgOhhhN_¿gggJhhgOhhgggJhhggggOgLhhhgJggOgggJhgLohh hgoggggJhogIhhhhgJhh(385 \APPEND2 381 \APPEND2 218 %%SUFFIX-SYMBOL 142 %%SUFFIX-SYMBOL 29 \MVLIST 26 PROCESS-PROCEED-KEYWORDS 4 REMOVE-COMMENTS) (439 QUOTE 419 QUOTE 408 QUOTE 405 \DEFINE-TYPE-SAVE-DEFN 402 FILEPKGFLG 399 AND 392 CL:EVAL-WHEN 359 CONDITION 352 QUOTE 349 INVOKE-PROCEED-CASE 346 CONDITION-CASE 339 CONDITION 336 &OPTIONAL 332 DEFUN 316 LIST 309 CONDITION 306 &OPTIONAL 303 CL:LAMBDA 300 FUNCTION 290 QUOTE 287 PROCEED-ARG-COLLECTOR 284 CL:SETF 272 QUOTE 262 QUOTE 259 DEFAULT-PROCEED-REPORT 256 CL:SETF 238 FUNCTION 228 QUOTE 225 CL:SYMBOL-FUNCTION 222 CL:SETF 196 QUOTE 186 QUOTE 183 DEFAULT-PROCEED-TEST 180 CL:SETF 162 FUNCTION 152 QUOTE 149 CL:SYMBOL-FUNCTION 146 CL:SETF 129 PROGN 123 DEFAULT-PROCEED-REPORTER 110 TRUE 21 WITHOUT-FILEPKG 18 PROGN) ( 416 (QUOTE FUNCTIONS) 396 (CL:EVAL) 367 ((BAD-PROCEED-CASE NIL NIL)) 215 "-proceed-reporter" 139 "-proceed-test") (SETF-MACRO-FUNCTION (QUOTE DEFINE-PROCEED-FUNCTION) (QUOTE expand-DEFINE-PROCEED-FUNCTION)) (ADDTOVAR PRETTYPRINTMACROS (DEFINE-PROCEED-FUNCTION . PPRINT-DEFINER)) expand-CATCH-ABORT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ,@!H¹HºggJgogIohNIL (28 :REPORT 21 ABORT 16 PROGN 13 PROCEED-CASE) ( 33 (:TEST TRUE (CL:VALUES NIL CONDITION)) 25 (CONDITION)) (SETF-MACRO-FUNCTION (QUOTE CATCH-ABORT) (QUOTE expand-CATCH-ABORT)) (PUTPROPS CL-ERROR FILETYPE CL:COMPILE-FILE) (PUTPROPS CL-ERROR COPYRIGHT ("Xerox Corporation" 1986)) NIL