(FILECREATED "10-Oct-86 17:52:56" ("compiled on " {ERIS}SOURCES>CL-ERROR.;6) " 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 17:52:09" {ERIS}SOURCES>CL-ERROR.;6 37274 changes to: (FUNCTIONS SPLIT-PROCEED-CLAUSES) previous date: " 5-Oct-86 18:20:52" {ERIS}SOURCES>CL-ERROR.;5) (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-REPORT-FUNCTION MAKE-ENCAPSULATION NORMALIZE-SLOT-DESCRIPTIONS EXTRACT-CONDITION-BINDINGS NORMALIZE-CONDITION-CLAUSES MASSAGE-CATCH-CONDITION-CLAUSES SPLIT-PROCEED-CLAUSES PROCESS-PROCEED-KEYWORDS CHECK-*CASE-SELECTOR COLLECT-CASE-SELECTORS NO-PROCEED-TEST %%PREFIX-SYMBOL %%SUFFIX-SYMBOL PROCEED-ARG-COLLECTOR)) (COMS (* ;; "User-visible forms.") (FUNCTIONS DEFINE-CONDITION CHECK-TYPE ETYPECASE CTYPECASE ECASE CCASE CL:ASSERT HANDLER-BIND CONDITION-BIND CONDITION-CASE REAL-CONDITION-CASE IGNORE-ERRORS 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 (26Q QUOTE 22Q CONDITION-TYPEP) () expand-CONDITION-TYPECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) P 3 VAL F 4 %%CONDITION-TYPES-REAL) 6@!H¹HºT—gIJgKIhhggJ h(56Q CL:MAPCAR 15Q GENTEMP) (52Q expand-CONDITION-TYPECASEA0001 47Q COND 35Q LET 25Q TYPECASE) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-TYPECASE) (QUOTE expand-CONDITION-TYPECASE)) expand-CONDITION-BLOCK D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!H¹HºggIhJNIL (20Q QUOTE 15Q 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 (23Q QUOTE 20Q 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 (10Q GET) ( 15Q ((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 (35Q GENSYM 22Q 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 (15Q WITH-GENSYMS) ( 21Q (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&º°ø(24Q KEYWORDP 17Q VALUES) NIL () MAKE-REPORT-FUNCTION D1 (L (2 ENCAPSULATION 1 BOUND-VAR 0 DATUM)) W@HYd ²¿goog@oh•IÃ´gAoB¡@ˆgB@hhgHo(124Q CHECK-TYPE-FAIL 11Q CL:STRINGP) (114Q DATUM 76Q LET 61Q LAMBDA 54Q LISTP 32Q WRITE-STRING 17Q LAMBDA) ( 121Q (OR STRING LIST) 66Q (*STANDARD-OUTPUT*) 37Q (STREAM) 27Q (DECLARE (IGNORE DATUM)) 23Q (DATUM STREAM)) MAKE-ENCAPSULATIONA0001 D1 (L (0 SLOT) F 0 CONDITION-TYPE) @Pgo@ oh(22Q %%SUFFIX-SYMBOL 17Q CONCATENATE 14Q SYMBOL-NAME) (4 STRING) ( 26Q (CONDITION) 10Q "-") MAKE-ENCAPSULATION D1 (L (1 SLOT-NAMES) I 0 CONDITION-TYPE) ,gA 1H°dkg¹J‘h€i”Ih[‚JI&ºµæK(6 CL:REMOVE) (22Q MAKE-ENCAPSULATIONA0001 2 --DUMMY-SLOT--) () NORMALIZE-SLOT-DESCRIPTIONS D1 (L (0 SLOTS)) J@@°@d[d²#d kôš¿Ko °KgiKƒo¸I‘h€i”HhZ‚IH&¹µÁJ(34Q \APPEND2 20Q LENGTH) (45Q :READ-ONLY) ( 61Q (NIL :READ-ONLY T) 31Q (NIL :READONLY T)) EXTRACT-CONDITION-BINDINGS D1 (L (0 CLAUSES)) 2@@°(d»ggKhKh¸I‘h€i”HhZ‚IH&¹µÙJNIL (16Q QUOTE 13Q CONS) () NORMALIZE-CONDITION-CLAUSESA0001 D1 (L (0 CLAUSE)) b@Hd—dÃ²D¿Hgð˜oH 0H°(dYlð”I@‡oH ºK‘h€i”Jh\‚KJ&»µÙLÃ“@hoH (137Q CL:ERROR 71Q CL:ERROR 35Q CL:ERROR) (122Q LITATOM 23Q QUOTE 13Q LISTP) ( 133Q "Bad condition spec ~s. Should be symbol or list of symbols." 65Q "Bad condition spec ~s. Should be list of unquoted symbols." 31Q "Bad condition spec ~s. Should be unquoted.") NORMALIZE-CONDITION-CLAUSES D1 (L (0 CLAUSES)) g@ (6 MAPCAN) (2 NORMALIZE-CONDITION-CLAUSESA0001) () MASSAGE-CATCH-CONDITION-CLAUSES D1 (L (1 INIT-VALUE 0 CLAUSES)) Cp@°9d^½N¼N»L£MK°MgLAhLKh¸I‘h€i”HhZ‚IH&¹µÈJNIL (34Q 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Ô_¿±þû(200Q WARN 137Q CL:ERROR 65Q \MVLIST 62Q PROCESS-PROCEED-KEYWORDS 30Q VALUES 25Q REVERSE 21Q REVERSE) (361Q CL:LAMBDA 356Q FUNCTION 326Q CL:FUNCTION 323Q :REPORT 314Q CL:FUNCTION 306Q :TEST 301Q :SELECTOR 275Q :TAG 265Q QUOTE 262Q :NAME 257Q MAKE-PROCEED-CASE 230Q QUOTE 225Q DEFAULT-PROCEED-REPORT 222Q FUNCALL 213Q CL:LAMBDA 161Q %%DEFAULT-PROCEED-TEST 116Q TRUE) ( 244Q (PC STREAM) 217Q (PC STREAM) 173Q "No test specified for proceed type ~A: may be undefined." 132Q "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(263Q VALUES 244Q CERROR 225Q MAKE-REPORT-FUNCTION 215Q CL:ERROR 170Q CL:ERROR 106Q CL:ERROR 61Q CL:ERROR 11Q \MVLIST 6 STRIP-KEYWORDS) (222Q PROCEED-CASE 200Q :REPORT 153Q :REPORT-FUNCTION 127Q QUOTE 124Q C 121Q CONDITION-TYPEP 112Q CL:LAMBDA 71Q :CONDITION 44Q :TEST) ( 237Q "Illegal keyword ~S in proceed case ~S." 233Q "Ignore key/value pair" 211Q "Duplicate report form specified for proceed type ~S." 164Q "Duplicate report form specified for proceed type ~S." 116Q (C) 102Q "Duplicate test form specified for proceed type ~S." 55Q "Duplicate test form specified for proceed type ~S.") CHECK-*CASE-SELECTOR D1 (L (1 NAME 0 SELECTOR)) @ið§@dgð™¿o@A(24Q CL:ERROR) (10Q OTHERWISE) ( 17Q "~A not allowed in the ~A form.") COLLECT-CASE-SELECTORSA0001 D1 (L (0 CLAUSE) F 0 NAME) *@d²¿Pdgð¥dgð’¿i¿h•@ @P h(45Q CHECK-*CASE-SELECTOR 36Q COPY-LIST) (21Q CCASE 13Q ECASE) () COLLECT-CASE-SELECTORS D1 (L (0 CLAUSES) I 1 NAME) g@ (6 MAPCAN) (2 COLLECT-CASE-SELECTORSA0001) () 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)) Ao (7 FORMAT) NIL ( 4 "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)) Ao (7 FORMAT) NIL ( 4 "Make TRUE the default test") NO-PROCEED-TESTA0001A0006 D1 (L (0 C) F 0 ONCE F 1 NAME) @ Qð´Pšgh ic(23Q \DO-THROW 20Q \MVLIST 3 NO-PROCEED-TEST-NAME) (14Q SKIP-PROCEED-CASE) () NO-PROCEED-TESTA0001 D1 (P 1 *CONDITION-HANDLER-BINDINGS* P 0 *PROCEED-CASES* F 2 PROCEED-CASE0453 F 3 *PROCEED-CASES* F 4 *CONDITION-HANDLER-BINDINGS* F 5 NAME) agghgRgjgggg gggRgkgggg SggTggU (134Q \MVLIST 130Q CL:ERROR 74Q MAKE-PROCEED-CASE 36Q MAKE-PROCEED-CASE) (124Q :NAME 121Q NO-PROCEED-TEST 110Q NO-PROCEED-TESTA0001A0006 105Q NO-PROCEED-TEST 70Q NO-PROCEED-TESTA0001A0005 65Q :REPORT 62Q NO-PROCEED-TESTA0001A0004 57Q :TEST 53Q :SELECTOR 47Q :TAG 44Q PROCEED 41Q :NAME 32Q NO-PROCEED-TESTA0001A0003 27Q :REPORT 24Q NO-PROCEED-TESTA0001A0002 21Q :TEST 15Q :SELECTOR 11Q :TAG 5 :NAME 2 :NORMAL) () NO-PROCEED-TESTA0007 D1 NIL gNIL (2 FALSE) () NO-PROCEED-TESTA0008 D1 (F 2 NAME) Rg ¹HgI(22Q PUTPROP 11Q SYMBOL-FUNCTION) (16Q %%DEFAULT-PROCEED-TEST 6 TRUE) () NO-PROCEED-TEST D1 (P 6 PROCEED-CASE0453 P 0 ONCE I 0 NAME) U`hhNg YºI»Jdgð•¿K j:“g‡Jk:´gj½¼K°dýMkØ]nñ—o ¿µëML(114Q LISPERROR 42Q VALUES-LIST 17Q \CATCH-FUNCALL) (62Q NO-PROCEED-TESTA0008 51Q NO-PROCEED-TESTA0007 33Q :NORMAL 14Q NO-PROCEED-TESTA0001) ( 111Q "TOO MANY ARGUMENTS") %%PREFIX-SYMBOL D1 (L (1 SYMBOL 0 PREFIX)) g@A A (21Q INTERN 16Q SYMBOL-PACKAGE 12Q CONCATENATE 7 SYMBOL-NAME) (2 STRING) () %%SUFFIX-SYMBOL D1 (L (1 SUFFIX 0 SYMBOL)) g@ A@ (21Q INTERN 16Q SYMBOL-PACKAGE 12Q CONCATENATE 6 SYMBOL-NAME) (2 STRING) () expand-PROCEED-ARG-COLLECTOR D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHoNIL (10Q GET) ( 15Q ((QUOTE %%PROCEED-ARG-COLLECTOR))) (SETF-MACRO-FUNCTION (QUOTE PROCEED-ARG-COLLECTOR) (QUOTE expand-PROCEED-ARG-COLLECTOR)) expand-DEFINE-CONDITIONA0001 D1 (L (0 X)) @d NIL NIL () expand-DEFINE-CONDITION D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM) F 51Q %%CONDITION-TYPES-REAL) u)@ ñ0@¹HºH[¼K½ggWR”oƒogoJ 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¿µ‚±ÿ9gWR“g‚gJO&O JLð³ggJhgLhhh€hO*´1Jo _¿gggOhhgO*hhhO_*¿gggJhhgO*hhO(´1Jo _¿gggOhhgO(hhhO_(¿gggJhhgO(hhgJhh hgoggggJhogIhhhhgJhh(1461Q \APPEND2 1456Q \APPEND2 1452Q \APPEND2 1332Q %%SUFFIX-SYMBOL 1212Q %%SUFFIX-SYMBOL 1101Q CERROR 1020Q CL:ERROR 765Q CL:ERROR 740Q MAKE-REPORT-FUNCTION 724Q CL:ERROR 665Q CL:ERROR 570Q MAKE-ENCAPSULATION 565Q \NCONC2 257Q CL:MEMBER 230Q SLOT-LIST 142Q SLOT-LIST 126Q NORMALIZE-SLOT-DESCRIPTIONS 111Q \MVLIST 106Q STRIP-KEYWORDS 77Q \APPEND2 64Q %%PREFIX-SYMBOL 4 REMOVE-COMMENTS) (1551Q QUOTE 1525Q QUOTE 1512Q QUOTE 1507Q \DEFINE-TYPE-SAVE-DEFN 1504Q FILEPKGFLG 1501Q AND 1472Q EVAL-WHEN 1440Q QUOTE 1424Q QUOTE 1412Q QUOTE 1407Q CONDITION-REPORTER 1404Q SETF 1361Q CL:FUNCTION 1346Q QUOTE 1343Q SYMBOL-FUNCTION 1340Q SETF 1304Q QUOTE 1272Q QUOTE 1267Q CONDITION-HANDLER 1264Q SETF 1241Q CL:FUNCTION 1226Q QUOTE 1223Q SYMBOL-FUNCTION 1220Q SETF 1161Q QUOTE 1152Q QUOTE 1147Q FIX-INHERITANCE-LINKS 1127Q DEFSTRUCT 1123Q MDEFSTRUCT 1115Q PROGN 1076Q DEFINE-CONDITION 1042Q LET 1025Q LAMBDA 1002Q :HANDLE 747Q :HANDLER-FUNCTION 733Q CONDITION 705Q :REPORT 647Q :REPORT-FUNCTION 627Q :CONC-NAME 520Q expand-DEFINE-CONDITIONA0001 437Q expand-DEFINE-CONDITIONA0001 254Q expand-DEFINE-CONDITIONA0001 251Q :KEY 170Q :INCLUDE 54Q :CONSTRUCTOR 35Q WITHOUT-FILEPKG 32Q PROGN) ( 1522Q (QUOTE STRUCTURES) 1476Q (CL:EVAL) 1327Q " report method" 1207Q " default handler" 1071Q "Illegal keyword ~S in ~S." 1065Q "Skip key-value pair" 1031Q (CONDITION) 1014Q "Handler already specified for ~S." 761Q "Handler already specified for ~S." 720Q "Report function already specified for ~S." 661Q "Report function already specified for ~S." 73Q ((:COPIER NIL) (:PREDICATE NIL)) 60Q "%%MAKE-" 51Q ((:TYPE LIST) :NAMED) 44Q ((:PRINT-FUNCTION %%PRINT-CONDITION))) (SETF-MACRO-FUNCTION (QUOTE DEFINE-CONDITION) (QUOTE expand-DEFINE-CONDITION)) (ADDTOVAR PRETTYPRINTMACROS (DEFINE-CONDITION . PPRINT-DEFINER)) (LET* ((A0388 (QUOTE DEFINE-CONDITION)) (A0389 (QUOTE CL:FUNCTION)) (A0390 "Defines a new condition type")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0388 A0389 A0390))) A0390)) expand-CHECK-TYPE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ˜@AH¹HZ»Jd¼o o o gNgOgMIhhggMgKhhgNMhhgIgigIhMgKhLhhgOhhhh(47Q GENSYM 40Q GENSYM 31Q GENSYM) (202Q GO 157Q QUOTE 147Q QUOTE 143Q CHECK-TYPE-FAIL 137Q SETF 122Q RETURN-FROM 107Q QUOTE 103Q TYPEP 100Q CL:WHEN 66Q LET 61Q TAGBODY 55Q CL:BLOCK) ( 44Q "CHECK-TYPE" 35Q "CHECK-TYPE" 26Q "CHECK-TYPE") (SETF-MACRO-FUNCTION (QUOTE CHECK-TYPE) (QUOTE expand-CHECK-TYPE)) expand-ETYPECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) [@AH¹Hºo »gJg ¼gKIhhgKJighgIhKgLhohh h(122Q \APPEND2 34Q COLLECT-CASE-SELECTORS 21Q GENSYM) (75Q QUOTE 65Q QUOTE 61Q CHECK-TYPE-FAIL 53Q TYPECASE 41Q LET 31Q ETYPECASE 25Q OR) ( 105Q (NIL) 16Q "ETYPECASE") (SETF-MACRO-FUNCTION (QUOTE ETYPECASE) (QUOTE expand-ETYPECASE)) expand-CTYPECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) “@1H¹HºgJg »o o o gMgNgLIhhgMgLJigIgigIhLgKhohgNhhh hhhh(176Q \APPEND2 53Q GENSYM 44Q GENSYM 35Q GENSYM 24Q COLLECT-CASE-SELECTORS) (161Q GO 135Q QUOTE 125Q QUOTE 121Q CHECK-TYPE-FAIL 115Q SETF 107Q TYPECASE 103Q RETURN-FROM 71Q LET 65Q TAGBODY 61Q CL:BLOCK 21Q CTYPECASE 15Q OR) ( 145Q (NIL) 50Q "CTYPECASE" 41Q "CTYPECASE" 32Q "CTYPECASE") (SETF-MACRO-FUNCTION (QUOTE CTYPECASE) (QUOTE expand-CTYPECASE)) expand-ECASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) [@AH¹Hºo »Jg \²:gKIhhgKJighgIhKgLhhhh ho(115Q \APPEND2 31Q COLLECT-CASE-SELECTORS 21Q GENSYM) (73Q QUOTE 63Q QUOTE 57Q ECASE-FAIL 51Q CASE 37Q LET 26Q ECASE) ( 130Q (CL:ERROR "Empty case statement.") 16Q "ECASE") (SETF-MACRO-FUNCTION (QUOTE ECASE) (QUOTE expand-ECASE)) expand-CCASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ˜@1H¹HZg [‘h€i—o ¿o o o gMgNgLIhhgMgLJigIgigIhLgKhhhgNhhh hhhh(203Q \APPEND2 63Q GENSYM 54Q GENSYM 45Q GENSYM 35Q CL:ERROR 20Q COLLECT-CASE-SELECTORS) (166Q GO 145Q QUOTE 135Q QUOTE 131Q ECASE-FAIL 125Q SETF 117Q CASE 113Q RETURN-FROM 101Q LET 75Q TAGBODY 71Q CL:BLOCK 15Q CCASE) ( 60Q "CCASE" 51Q "CCASE" 42Q "CCASE" 32Q "Empty CCASE.") (SETF-MACRO-FUNCTION (QUOTE CCASE) (QUOTE expand-CCASE)) expand-CL:ASSERT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) { @aH¹HZd»J\d½L¾KŸK‘h€i˜oK ¿o o o gOgOgIgOohgMNgOhhh(77Q GENSYM 70Q GENSYM 61Q GENSYM 51Q CL:ERROR) (151Q GO 142Q ASSERT-FAIL 123Q RETURN-FROM 117Q CL:WHEN 112Q TAGBODY 105Q CL:BLOCK) ( 131Q ((VALUES)) 74Q "ASSERT" 65Q "ASSERT" 56Q "ASSERT" 45Q "~S should be a list of places.") (SETF-MACRO-FUNCTION (QUOTE CL:ASSERT) (QUOTE expand-CL:ASSERT)) expand-HANDLER-BIND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) -@!H¹HºgggI o hhJ(41Q \APPEND2 32Q EXTRACT-CONDITION-BINDINGS 27Q NORMALIZE-CONDITION-CLAUSES) (23Q LIST* 20Q *CONDITION-HANDLER-BINDINGS* 15Q LET) ( 36Q (*CONDITION-HANDLER-BINDINGS*)) (SETF-MACRO-FUNCTION (QUOTE HANDLER-BIND) (QUOTE expand-HANDLER-BIND)) (LET* ((A0408 (QUOTE HANDLER-BIND)) (A0409 (QUOTE CL:FUNCTION)) (A0410 "Eval forms under temporary new condition handlers.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION )) (SET-DOCUMENTATION A0408 A0409 A0410))) A0410)) expand-CONDITION-BIND D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @!H¹HºgIJNIL (15Q HANDLER-BIND) () (SETF-MACRO-FUNCTION (QUOTE CONDITION-BIND) (QUOTE expand-CONDITION-BIND)) (LET* ((A0413 (QUOTE CONDITION-BIND)) (A0414 (QUOTE CL:FUNCTION)) (A0415 "Eval forms under temporary new condition handlers; synonym for HANDLER-BIND")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0413 A0414 A0415))) A0415)) 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(311Q \APPEND2 264Q MASSAGE-CATCH-CONDITION-CLAUSES 246Q MASSAGE-CATCH-CONDITION-CLAUSES 236Q LENGTH 166Q CL:MAPCAR 55Q NORMALIZE-CONDITION-CLAUSES 46Q GENSYM 37Q GENSYM 30Q GENSYM 21Q GENSYM) (316Q VALUES-LIST 270Q CL:ERROR 256Q CONDITION-TYPECASE 231Q CL:IF 200Q MULTIPLE-VALUE-LIST 162Q CAR 157Q HANDLER-BIND 133Q CONDITION-RETURN 121Q SETF 112Q CL:LAMBDA 107Q FUNCTION 102Q LET 76Q CONDITION-BLOCK 64Q LET*) ( 274Q "Bug in condition-case!~&Unexpected condition: ~S." 126Q (C) 116Q (C) 71Q (NIL) 43Q "CONDITION-CASE" 34Q "CONDITION-CASE" 25Q "CONDITION-CASE" 16Q "CONDITION-CASE") (SETF-MACRO-FUNCTION (QUOTE CONDITION-CASE) (QUOTE expand-CONDITION-CASE)) (LET* ((A0418 (QUOTE CONDITION-CASE)) (A0419 (QUOTE CL:FUNCTION)) (A0420 "Eval form under temporary condition handlers that return alternate values.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0418 A0419 A0420))) A0420)) 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(205Q \APPEND2 46Q GENSYM 37Q GENSYM 30Q GENSYM 21Q GENSYM) (304Q RETURN-FROM 166Q IGNORE 163Q DECLARE 151Q CL:LAMBDA 146Q CL:FUNCTION 143Q VALUES 136Q RETURN-FROM 127Q CL:LAMBDA 124Q CL:FUNCTION 75Q HANDLER-BIND 70Q CL:BLOCK 61Q MULTIPLE-VALUE-CALL 54Q CL:BLOCK) ( 65Q (CL:FUNCTION FUNCALL) 43Q "CONDITION-CASE" 34Q "CONDITION-CASE" 25Q "CONDITION-CASE" 16Q "CONDITION-CASE") (SETF-MACRO-FUNCTION (QUOTE REAL-CONDITION-CASE) (QUOTE expand-REAL-CONDITION-CASE)) expand-IGNORE-ERRORS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ggHoNIL (12Q PROGN 7 CONDITION-CASE) ( 20Q ((CL:ERROR (CONDITION) NIL))) (SETF-MACRO-FUNCTION (QUOTE IGNORE-ERRORS) (QUOTE expand-IGNORE-ERRORS)) (LET* ((A0424 (QUOTE IGNORE-ERRORS)) (A0425 (QUOTE CL:FUNCTION)) (A0426 "Eval forms with handler for any condition of type ERROR.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0424 A0425 A0426))) A0426)) expand-PROCEED-CASE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) À @QH¹Hºo o o JO [¼K½L¡IgNOgOohgOgggggLo hhgIhhhhhggNogOhgM k:”M†gNMOhhh(236Q LENGTH 145Q \APPEND2 53Q \MVLIST 50Q SPLIT-PROCEED-CLAUSES 37Q GENSYM 30Q GENSYM 21Q GENSYM) (251Q CASE 232Q CL:APPLY 222Q VALUES-LIST 210Q EQ 205Q CL:IF 156Q MULTIPLE-VALUE-LIST 135Q LIST* 132Q *PROCEED-CASES* 127Q LET 124Q :NORMAL 121Q CONS 114Q CATCH 100Q LET 71Q DESTRUCTURING-BIND) ( 215Q (:NORMAL) 142Q (*PROCEED-CASES*) 106Q ((LIST NIL)) 34Q "PROCEED-CASE" 25Q "PROCEED-CASE" 16Q "PROCEED-CASE") (SETF-MACRO-FUNCTION (QUOTE PROCEED-CASE) (QUOTE expand-PROCEED-CASE)) (LET* ((A0429 (QUOTE PROCEED-CASE)) (A0430 (QUOTE CL:FUNCTION)) (A0431 "Eval forms, establishing a place to proceed from errors.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0429 A0430 A0431))) A0431)) expand-DEFINE-PROCEED-FUNCTIONA0001 D1 (L (0 X)) @dlðNIL NIL () expand-DEFINE-PROCEED-FUNCTION D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) Á@ ±@¹HºH»ggJK __¿O__¿O_1O°$dkg_¿O‘h€i–Oh_„OO&_¿µÝO¼O‘h€i•g_¿O‘h€i•g_¿gO´-Jo ½gggMhhgOhhhM_¿gggJhhgOhhO´-Jo ¾gggNhhgOhhhN_¿gggJhhgOhhgggJhhggggOgLhhhgJggOgggJhgLohh hgoggggJhogIhhhhgJhh(577Q \APPEND2 573Q \APPEND2 330Q %%SUFFIX-SYMBOL 214Q %%SUFFIX-SYMBOL 35Q \MVLIST 32Q PROCESS-PROCEED-KEYWORDS 4 REMOVE-COMMENTS) (665Q QUOTE 641Q QUOTE 626Q QUOTE 623Q \DEFINE-TYPE-SAVE-DEFN 620Q FILEPKGFLG 615Q AND 606Q EVAL-WHEN 545Q CONDITION 536Q QUOTE 533Q INVOKE-PROCEED-CASE 530Q CONDITION-CASE 521Q CONDITION 516Q &OPTIONAL 512Q DEFUN 472Q LIST 463Q CONDITION 460Q &OPTIONAL 455Q CL:LAMBDA 452Q CL:FUNCTION 440Q QUOTE 435Q PROCEED-ARG-COLLECTOR 432Q SETF 416Q QUOTE 404Q QUOTE 401Q DEFAULT-PROCEED-REPORT 376Q SETF 354Q CL:FUNCTION 342Q QUOTE 337Q SYMBOL-FUNCTION 334Q SETF 302Q QUOTE 270Q QUOTE 265Q DEFAULT-PROCEED-TEST 262Q SETF 240Q CL:FUNCTION 226Q QUOTE 223Q SYMBOL-FUNCTION 220Q SETF 177Q PROGN 171Q DEFAULT-PROCEED-REPORTER 154Q TRUE 77Q expand-DEFINE-PROCEED-FUNCTIONA0001 25Q WITHOUT-FILEPKG 22Q PROGN) ( 636Q (QUOTE FUNCTIONS) 612Q (CL:EVAL) 555Q ((BAD-PROCEED-CASE NIL NIL)) 325Q "-proceed-reporter" 211Q "-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 (34Q :REPORT 25Q ABORT 20Q PROGN 15Q PROCEED-CASE) ( 41Q (:TEST TRUE (VALUES NIL CONDITION)) 31Q (CONDITION)) (SETF-MACRO-FUNCTION (QUOTE CATCH-ABORT) (QUOTE expand-CATCH-ABORT)) (PUTPROPS CL-ERROR FILETYPE COMPILE-FILE) (PUTPROPS CL-ERROR COPYRIGHT ("Xerox Corporation" 1986)) NIL