(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "30-Jan-98 11:49:54" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>library>READSYS.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED " 9-Nov-92 03:25:43" "{Pele:mv:envos}library>READSYS.;3" 20241 changes to%: ( FNS VATOMNUMBER) previous date%: "12-Jun-90 10:57:50" "{Pele:mv:envos}library>READSYS.;2") READSYS :D8 (P 2 I P 0 X I 1 WRITEABLE I 0 FILE F 3 ATOMPAGELST F 4 READSYS.PACKAGE.FROM.NAME F 5 RDVALS F 6 READSYS.PACKAGE.FROM.INDEX F 7 RDPTRS) @`A Sd!ljJI#g cg c W:HJj JkZdgHlm H U*dgHlm H h(187 CLOSEVMEMFILE 175 SET 170 VGETVAL 163 PACK* 158 SUBATOM 129 SET 124 VGETTOPVAL 117 PACK* 112 SUBATOM 84 FASTSETA 69 VSYMBOL.VALUE 57 VSYMBOL.VALUE 24 INITVMEM 17 CLOSEREMOTEVMEMFILE) (147 V 101 V 64 *PACKAGE-FROM-INDEX* 52 *PACKAGE-FROM-NAME* 7 VMEMFILE) () TELERAIDA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 HOST F 1 SI::*RESETFORMS* F 2 RAIDIX) *PohdQcPh `R (39 VRAID 24 READSYS) (30 VMEMFILE) ( 7 (CLOSEVMEMFILE)) TELERAID :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 RAIDIX I 0 HOST F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 TELERAIDA0001) (8 SI::RESETUNWIND) () VLISTGET :D8 (I 1 TOKEN I 0 LST) 3@!A@ @ @ b(45 V\CDR.UFN 40 V\CDR.UFN 33 V\UNCOPY 28 V\CAR.UFN 23 V\CDR.UFN 14 V\UNCOPY 9 V\CAR.UFN) NIL () VLOADFNS :D8 (P 3 PLIST P 2 DEFN P 1 FN I 0 FNS) t@HddhHoi Ii IgI J&I KKg' Kg' i (111 TERPRI 104 SAVEPUT 73 V\UNCOPY 68 VGETPROPLIST 55 V\UNCOPY 50 VGETDEFN 37 PRIN1 29 PRIN1) (96 EXPR 86 EXPR 44 EXPR) ( 23 "Reading function ") VLOADFILEPKGTYPECHANGEA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILEPKGTYPE F 3 CHANGE F 4 PLIST F 5 SI::NLSETQ-VALUE) i@SRTR' hc g(14 PUTDEF) (23 :NORMAL) () VLOADFILEPKGTYPECHANGE :D8 (P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 PLIST I 1 FILEPKGTYPE I 0 CHANGE F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) oi ki Ai ki @i oi @ @d3@Hoi i A'`UioVJ gIo(129 VLOADFILEPKGTYPECHANGEA0001 96 TERPRI 89 PRIN1 65 V\UNCOPY 60 VGETPROPLIST 54 PRIN1 42 PRIN1 34 SPACES 26 PRIN1 18 SPACES 10 PRIN1) (135 :NORMAL 110 SI::NLSETQ-PROCEED-CASE) ( 148 "done" 118 (CL:ERROR . SI::NLSETQHANDLER) 83 "failed" 48 "..." 4 "Reading") VLOADFUNCTIONS :D8 (P 2 PLIST P 1 FUNCTION I 0 FUNCTIONS) a@HddhHoi Ii IgI JJg' Jg' i (92 TERPRI 85 SAVEPUT 55 V\UNCOPY 50 VGETPROPLIST 37 PRIN1 29 PRIN1) (78 FUNCTIONS 68 FUNCTIONS 44 FUNCTIONS) ( 23 "Reading function ") VLOADVAR :D8 (I 0 VAR) @d i (12 SAVESET 6 VGETVAL) NIL () VLOADVARS :D8 (P 1 VAR I 0 VARS) C@HddhHoi Ii IgI i (62 TERPRI 55 SAVEPUT 50 VGETVAL 37 PRIN1 29 PRIN1) (44 VALUE) ( 23 "Reading variable: ") VRAIDA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) i@hcg(9 VRAIDCOMMAND) (22 :NORMAL) () VRAIDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 RESULT I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 RAIDIX F 6 .I2 F 7 *PROCEED-CASES* F 8 .I5 F 9 .I6 F 10 .I7) gi hhTcgl hhTcglUhc glUhcglUhcglUhc`WJ gIX`Hgh(162 REMOTERETURN 156 CLEARPAGECACHE 119 VRAIDA0001A0002 31 INTCHAR 10 OUTPUT) (148 RETURN 138 VMEMFILE 125 :NORMAL 107 SI::NLSETQ-PROCEED-CASE 87 FIX 73 FIX 59 FIX 45 FIX 24 INTCHAR 4 OUTPUT) () VRAID :D8 (P 7 RESETSTATE P 6 SI::*RESETFORMS* P 5 LISPXHIST P 4 REMOTESCREEN P 3 FRAME# P 2 ROOTFRAME P 1 VPRINTLEVEL P 0 ALINKS? I 0 RAIDIX F 8 TELERAIDPRINTLEVEL F 9 LISPXHIST) ?oi i @lbiW2W!g $h(55 SI::RESETUNWIND 50 \MVLIST 45 VRAIDA0001 17 TERPRI 10 PRIN1) (40 SI::RESETUNWIND) ( 4 "virtual RAID") VSAVEWORK :D8 (P 14 FILEPKGTYPECHANGE P 13 TYPEPAIR P 12 VAR P 10 FN P 8 FILEPKGTYPECHANGES P 7 FILEPKGTYPE P 6 TYPEPAIR P 5 FILE P 4 CHANGES P 3 FILES P 2 VARS P 1 FNS P 0 ALLCHANGES)  hdAoi g Yi i oi g Zi i oi g [i i KdM g \wMi oi Li i LLdNNOdgIO Y'dgJO ZdHO H Mi oi i QId  OJd  O=H_`goOhhi gO O__`goOhhi gO O_dOO7d_`goOOhhi gOO hh(506 VLOADFILEPKGTYPECHANGE 490 ASKUSER 431 VLOADVARS 417 ASKUSER 377 VLOADFNS 363 ASKUSER 318 INTERSECTION 302 INTERSECTION 285 TERPRI 278 PRIN1 266 PRIN1 251 PUTASSOC 245 UNION 231 UNION 211 UNION 176 TERPRI 169 PRIN1 161 PRIN1 149 PRIN1 138 VLISTGET 128 VGETPROPLIST 113 TERPRI 106 PRIN1 99 VGETVAL 88 PRIN1 77 TERPRI 70 PRIN1 63 VGETVAL 52 PRIN1 41 TERPRI 34 PRIN1 27 VGETVAL 16 PRIN1) (495 Y 469 Y 464 DWIMWAIT 422 Y 399 Y 394 DWIMWAIT 368 Y 345 Y 340 DWIMWAIT 220 VARS 200 FNS 133 FILE 94 FILELST 58 CHANGEDVARSLST 22 CHANGEDFNSLST) ( 474 "save" 404 "save variable" 350 "save function" 272 " has no changes recorded." 155 " has changes " 82 "Files on FILELST: " 46 "Variables on CHANGEDVARSLST: " 10 "Functions on CHANGEDFNSLST: ") SHOWREMOTESCREENA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 24 BUF P 23 I P 14 Y P 13 X P 12 REG P 11 DELTAY P 10 DELTAX P 9 MINLEFT P 8 MINBOTTOM P 7 NEWPOS P 6 POS P 5 NWORDS P 4 LASTPAGE P 3 BITMAPBASE P 2 WIDTH P 1 HEIGHT P 0 WINDOW I 0 SI::*CLEANUP-FORMS* F 28 REMOTESCREEN F 29 SI::*RESETFORMS*) Rg W8`Hjdg Zg Y hji X IJlֽ`]nMn\knO.O,`O.K KnлO.k_.Ml]jil `LO0 KO0MMnn ` KlnMlֿMlֿO2 >_O2O4jO6lOHc8!g Hg Hjd gHhhdW:c:H I`J`5`J_ jO O j_`I_"jO"O"j_^i H NhdO _N`lj}H __O_OOON_$jO$O$j_&dO&O&O_OOON_(jO(O(j_*dO*O*O_OjOjHOO ON_H 9h(587 BLOCK 581 TOTOPW 567 RELMOVEW 451 \INSUREWINDOW 425 CURSORPOSITION 405 OPENWP 395 READP 387 CURSORPOSITION 321 OPENW 296 MOVEW 287 GETWINDOWPROP 275 GETWINDOWPROP 208 GETSTREAM 197 SETVMPTR 176 REMOTEPMAP 132 REMOTEPMAP 69 \INSUREWINDOW 63 CREATEW 55 CREATEREGION 49 VGETVAL 38 VGETVAL 9 BOUNDP) (438 LASTMOUSEBUTTONS 365 SCREENHEIGHT 343 SCREENWIDTH 335 SCREENWIDTH 327 SCREENHEIGHT 302 CLOSEW 282 HEIGHT 270 WIDTH 242 FDEV 235 STREAM 203 VMEMFILE 168 VMEMFILE 124 VMEMFILE 91 VMEMFILE 76 BITMAP 44 SCREENHEIGHT 33 SCREENWIDTH 4 REMOTESCREEN) () SHOWREMOTESCREEN :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 SHOWREMOTESCREENA0001) (8 SI::RESETUNWIND) () VGETVAL :D8 (I 0 X) @ (10 V\UNCOPY 5 VGETTOPVAL) NIL () VINSPECT :D8 (P 5 DESCRIPTOR P 4 WINDOW P 3 FIELDSPEC P 2 D P 1 OBJECT P 0 PTR I 2 ASTYPE I 1 LO I 0 HI) P@AXB YB EdMM[dgIJHJ oIJHJ IB \dgH o L(128 PUTWINDOWPROP 123 CONCAT 113 V\UNCOPY 100 INSPECT 85 VGETBASE0 63 V\UNCOPY 58 VGETBASEPTR0 21 GETDESCRIPTORS 14 NCREATE) (107 TITLE 43 POINTER) ( 118 " Inspector" 72 (BITS . 15)) VUNSAVEDEF :D8 (P 0 X I 0 SYMBOL) @ Hoi i hH dg/oi i @H o hdg#oi i @H g"oi i @H H XK(189 V\CDR.UFN 184 V\CDR.UFN 177 VYANKDEF 172 VCADR 164 TERPRI 157 PRIN1 137 VYANKDEF 132 VCADR 124 TERPRI 117 PRIN1 94 VPUTDEFN 83 VGETBASEPTR0 78 VCADR 70 TERPRI 63 PRIN1 42 V\UNCOPY 37 V\CAR.UFN 29 TERPRI 22 PRIN1 5 VGETPROPLIST) (143 ADVISED 102 BROKEN 48 CODE) ( 151 "Found a ADVISED property, unbreaking" 111 "Found a BROKEN property, unbreaking" 88 -2147483648 57 "Found a CODE property, doing UNSAVEDEF" 16 "No CODE property found") VCADR :D8 (I 0 X) @ (10 V\CAR.UFN 5 V\CDR.UFN) NIL () VPUTDEFN :D8 (P 0 CELL I 2 CODEP I 1 VDEF I 0 SYMBOL) #@l HA HkAn (32 VPUTBASE0 19 VPUTBASE0 7 V\ATOMCELL) NIL () VYANKDEF :D8 (I 1 OLDSYMBOL I 0 NEWSYMBOL) @A (11 VPUTDEFN 6 VGETDEFN) NIL () VATOM :D8 (P 2 FPTR P 1 ATM P 0 PAGE I 0 N F 3 ATOMPAGELST F 4 ATOMCACHE) [@S!H%@ YH;@nj THT @l YjISHhc cH@lI I(87 FASTSETA 72 \NCONC2 54 FASTELT 42 ATTACH 30 POINTERARRAY 15 VUNCOPYATOM) NIL () VATOMNUMBER :D8 (I 1 NEWOK I 0 ATOM F 0 READSYS.PACKAGE.FROM.NAME) 5@3 "Pk@ @ @k@ (50 VOLD.FIND.SYMBOL 45 NCHARS 36 VFIND.SYMBOL 31 VFIND.PACKAGE 26 CL:PACKAGE-NAME 21 CL:SYMBOL-PACKAGE 15 CL:SYMBOL-NAME) NIL () (PRETTYCOMPRINT READSYSCOMS) (RPAQQ READSYSCOMS ((FNS READSYS TELERAID VLISTGET VLOADFNS VLOADFILEPKGTYPECHANGE VLOADFUNCTIONS VLOADVAR VLOADVARS VRAID VSAVEWORK SHOWREMOTESCREEN VGETVAL VINSPECT VUNSAVEDEF VCADR VPUTDEFN VYANKDEF) (INITVARS (RDSYSINIT) (ATOMPAGELST NIL) (ATOMCACHE NIL) (NEWATOMARRAY (HASHARRAY 30)) ( TELERAIDPRINTLEVEL (QUOTE (2 . 20)))) (FNS VATOM VATOMNUMBER) (DECLARE%: EVAL@COMPILE DONTCOPY (PROP ( DMACRO MACRO) IEQ) DONTEVAL@LOAD (FILES (LOADCOMP) VMEM)) (FILES VMEM))) (RPAQ? RDSYSINIT) (RPAQ? ATOMPAGELST NIL) (RPAQ? ATOMCACHE NIL) (RPAQ? NEWATOMARRAY (HASHARRAY 30)) (RPAQ? TELERAIDPRINTLEVEL (QUOTE (2 . 20))) (FILESLOAD VMEM) (PUTPROPS READSYS COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1992)) NIL