(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 15:50:48" ("compiled on " |{DSK}sources>LLERROR.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "16-May-90 19:17:05" |{DSK}local>lde>lispcore>sources>LLERROR.;2| 1461 |changes| |to:| (VARS LLERRORCOMS) |previous| |date:| "15-Jan-88 16:30:33" |{DSK}local>lde>lispcore>sources>LLERROR.;1|) (RPAQQ LLERRORCOMS ((FUNCTIONS SIMPLE-FORMAT) (P (MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE CL:FORMAT))) ( STRUCTURES PROCEED-CASE) (VARIABLES SI::NLSETQ-PROCEED-CASE) (PROP FILETYPE LLERROR))) SIMPLE-FORMAT :D8 (L (0 |-args-|) F 9 *STANDARD-OUTPUT*) N eka!Hl2MLóŸNºIið’W¹J[d³!Ma_¿OµOh_¾MkÔ]°ÙO&_¿°ôI ¿K°Ó(71 CL:PRINT) NIL () (MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE CL:FORMAT)) (CL::SET-PARSED-STRUCTURE (QUOTE PROCEED-CASE) T (QUOTE (CL::PS PROCEED-CASE MAKE-PROCEED-CASE (NAME TAG SELECTOR TEST REPORT CONDITIONS::INTERACTIVE-FN CL:FUNCTION) CL::DATATYPE NIL CONDITIONS:RESTART "%PROCEED-CASE-" (MAKE-PROCEED-CASE) PROCEED-CASE-P CONDITIONS::%RESTART-PRINTER COPY-PROCEED-CASE NIL 0 NIL ((NAME NIL T NIL (PROCEED-CASE 0 POINTER) %PROCEED-CASE-NAME) (TAG NIL T NIL (PROCEED-CASE 2 POINTER) %PROCEED-CASE-TAG) (SELECTOR NIL T NIL (PROCEED-CASE 4 POINTER) %PROCEED-CASE-SELECTOR) (TEST NIL T NIL (PROCEED-CASE 6 POINTER) %PROCEED-CASE-TEST) (REPORT (QUOTE CONDITIONS::%RESTART-DEFAULT-REPORTER ) T NIL (PROCEED-CASE 8 POINTER) %PROCEED-CASE-REPORT) (CONDITIONS::INTERACTIVE-FN NIL T NIL ( PROCEED-CASE 10 POINTER) %PROCEED-CASE-INTERACTIVE-FN) (CL:FUNCTION NIL T NIL (PROCEED-CASE 12 POINTER ) %PROCEED-CASE-FUNCTION)) NIL NIL (POINTER POINTER POINTER POINTER POINTER POINTER POINTER) NIL ( :ACCESSOR :PREDICATE) NIL NIL NIL))) (SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PROCEED-CASE) (QUOTE (POINTER POINTER 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) (PROCEED-CASE 10 POINTER) (PROCEED-CASE 12 POINTER))) 14 (QUOTE CONDITIONS:RESTART)) (PUTPROP (QUOTE PROCEED-CASE) (QUOTE :TYPE-EXPANDER) (QUOTE CL::TYPE-EXPAND-STRUCTURE)) PROCEED-CASE-P :D8 (L (0 CL::OBJECT)) @ÃNIL (5 PROCEED-CASE) () (CL::ESTABLISH-PREDICATE (QUOTE PROCEED-CASE)) %PROCEED-CASE-NAME :D8 (L (0 PROCEED-CASE)) @ÉNIL (5 PROCEED-CASE) () %PROCEED-CASE-TAG :D8 (L (0 PROCEED-CASE)) @ÉNIL (5 PROCEED-CASE) () %PROCEED-CASE-SELECTOR :D8 (L (0 PROCEED-CASE)) @ÉNIL (5 PROCEED-CASE) () %PROCEED-CASE-TEST :D8 (L (0 PROCEED-CASE)) @ÉNIL (5 PROCEED-CASE) () %PROCEED-CASE-REPORT :D8 (L (0 PROCEED-CASE)) @ÉNIL (5 PROCEED-CASE) () %PROCEED-CASE-INTERACTIVE-FN :D8 (L (0 PROCEED-CASE)) @É NIL (5 PROCEED-CASE) () %PROCEED-CASE-FUNCTION :D8 (L (0 PROCEED-CASE)) @É NIL (5 PROCEED-CASE) () (CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PROCEED-CASE)) MAKE-PROCEED-CASE :D8 (L (0 |-args-|)) ½eiñÀHk»ºKJó¢±öhY¼i½Hk_¿¾OdNó¢±ù¿h]_¿i_¿Hk_¿_¿OdOó¢±÷¿h__¿i_¿Hk_¿_¿OdOó¢±ô¿h__ ¿Hk_$¿_"¿O$dO"ó¢±õ¿g_&¿i_(¿Hk_,¿_*¿O,dO*ó¢±ð¿h_(_.¿i_0¿Hk_4¿_2¿O4dO2ó¢±í¿h_0_6¿`_8¿I•O8L¿M–O8O¿O–O8O¿O–O8O ¿O8O&O(–O8O. ¿O0•O8O6 O8Kdagð¦lÔ[±þùkØa±þûagð—OkØa±ÿOlÔ_±þìagð—OkØa±ÿOlÔ_±þíagð—OkØa±ÿOlÔ_±þðagð—O$kØa±ÿO$lÔ_$±þïagð—O,kØa±ÿ O,lÔ_,±þôagð—O4kØa±ÿ O4lÔ_4±þ÷NIL (423 :FUNCTION 397 :INTERACTIVE-FN 371 :REPORT 345 :TEST 319 :SELECTOR 293 :TAG 272 :NAME 195 XCL::|PROCEED-CASETYPE#| 129 CONDITIONS::%RESTART-DEFAULT-REPORTER) () COPY-PROCEED-CASE :D8 (L (0 PROCEED-CASE)) [@Hò8`H@ÉH@ÉH@ÉH@ÉH@ÉH@É  H@É  HigHgh b°¨(84 CHECK-TYPE-FAIL) (77 PROCEED-CASE 71 PROCEED-CASE 17 XCL::|PROCEED-CASETYPE#| 9 PROCEED-CASE) () (CL:PROCLAIM (QUOTE (GLOBAL SI::NLSETQ-PROCEED-CASE))) (SETQ SI::NLSETQ-PROCEED-CASE (MAKE-PROCEED-CASE :NAME (QUOTE ABORT) :SELECTOR 0 :TEST NIL :REPORT "Unwind to ERRORSET")) (SET-DOCUMENTATION (QUOTE SI::NLSETQ-PROCEED-CASE) (QUOTE CL:VARIABLE) "The prototype proceed-case object for NLSETQ.") (PUTPROPS LLERROR FILETYPE COMPILE-FILE) (PUTPROPS LLERROR COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990)) NIL