(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Feb-93 13:28:57" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>DEDITPP.;5|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "20-Jan-93 13:48:30" {DSK}lde>lispcore>library>DEDITPP.;2 42478 previous date%: " 4-Sep-91 13:23:07" {DSK}lde>lispcore>library>DEDITPP.;1) DEDIT.LPEND :D8 (P 1 FNT P 0 WRAP I 0 MAPE) ;@@ `@ Hl(`@ I (55 STRINGWIDTH 46 CHARWIDTH 41 ELT 19 ELT) (32 \DEDITFONTS 10 \DEDITFONTS) () DEDIT.RPSTART :D8 (I 0 MAPE) "@@ jl)`@ (30 CHARWIDTH 25 ELT) (16 \DEDITFONTS) () MAKEMAPENTRY :D8 (I 6 FN I 5 EY I 4 EX I 3 SY I 2 SX I 1 BACK I 0 TAIL) O@`dAd@dBdCdDdE A#HdIdF` (71 PUTHASH 44 DSPDSFOR) (66 \DEDITMEHASH 5 |DEDITMAPTYPE#|) () \DEDITFONT# :D8 (P 4 I P 2 FONT# P 1 FONTTYPE P 0 FONT) `x0X`dg  k\K9HIg`L `L Ihi L iLk԰h(124 SHOULDNT 97 FONTCLASSCOMPONENT 89 ELT 74 ELT 45 ARRAYSIZE 35 FONTMAPARRAY 14 DSPFONT) (117 \DEDITFONT# 83 \DEDITFONTS 68 \DEDITFONTS 61 DISPLAY 40 \DEDITFONTS 30 DISPLAY 23 \DEDITFONTS 4 \DEDITFONT#) () DSPDSFOR :D8 (P 4 J P 3 NU P 1 I I 0 DS) @hg b` kYH+`I @`I I iIk԰hH` l` k\JKL`L Lk԰KL`H@ H(164 SETA 134 SETA 129 ELT 107 ARRAY 101 ARRAYSIZE 89 ARRAYSIZE 63 ELT 50 STREAMP 45 ELT 25 ARRAYSIZE 12 GETSTREAM) (157 \DEDITDSPS 146 \DEDITDSPS 123 \DEDITDSPS 96 \DEDITDSPS 84 \DEDITDSPS 57 \DEDITDSPS 39 \DEDITDSPS 20 \DEDITDSPS 7 OUTPUT) () SHOWDEDITMAP :D8 (P 2 TL P 1 V P 0 Q I 0 ME) goh@!HUIHHhoo@o@o@o@ o h@ 1o/HJ oIHooJHXoh (167 PACK 162 APPLY 157 \APPEND2 152 \APPEND2 147 \APPEND2 103 \APPEND2 86 UNPURGEDP 77 CONCAT) (4 CONCAT) ( 140 " PURGED}" 127 ")" 121 " --)" 110 "(" 93 "}" 71 ">" 63 "," 55 " - " 47 "," 39 "<" 34 " @ " 9 "{") DEPRINTDEFA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 FILEFLG P 4 FNSLST P 3 COMMENTCOL P 2 FORMFLG P 1 RMARGIN P 0 FIRSTPOS I 0 SI::*CLEANUP-FORMS* F 6 TAIL F 7 FILE F 8 SI::*RESETFORMS* F 9 LEFT F 10 MAKEMAP F 11 FONT) gd gh WcgW hhWchg VOVicW`V W`WiWV cWVcVc W lW ,i3WW WW VVhW h(220 SUPERPRINT 209 DSPXPOSITION 200 SETFONT 182 \INSUREWINDOW 168 \INSUREWINDOW 161 DSPLEFTMARGIN 156 DSPLEFTMARGIN 133 ELT 106 OUTPUT 101 ELT 61 FONTMAPARRAY 40 OUTPUT 22 SETTOPVAL 10 GETTOPVAL) (116 \DEDITFONTS 92 \DEDITDSPS 72 DEDITMAP 66 \DEDITFONTS 56 DISPLAY 33 OUTPUT 16 **COMMENT**FLG 4 **COMMENT**FLG) () DEPRINTDEF :D8 (P 16 RESETSTATE P 15 SI::*RESETFORMS* P 14 LISPXHIST P 13 COMMENTCOL P 12 FILEFLG P 11 FORMFLG P 10 FNSLST P 9 %#RPARS P 8 RMARGIN P 7 LEFT P 6 FIRSTPOS P 5 MAKEMAP P 4 *PRINT-BASE* P 3 *READ-BASE* P 2 *READTABLE* P 1 *PACKAGE* I 3 FILE I 2 FONT I 1 LEFT I 0 TAIL F 17 LISPXHIST) yCg bdg HHHHihC hC hC T W"!g $@i (118 GETME4 103 SI::RESETUNWIND 98 \MVLIST 93 DEPRINTDEFA0001 75 DSPRIGHTMARGIN 68 DSPXPOSITION 61 DSPXPOSITION 30 DEDIT-MAKE-READER-ENV 23 GETWINDOWUSERPROP 10 GETSTREAM) (88 SI::RESETUNWIND 35 READER-ENVIRONMENT 18 READER-ENVIRONMENT 5 OUTPUT) () DEDIT-MAKE-READER-ENV :D8 (I 0 EXPR F 0 ATM) "Pdd3@PghP (31 MAKE-READER-ENVIRONMENT 26 CL:SYMBOL-PACKAGE) (15 NOBIND) () REPPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ENT F 1 DS) PhdQ c(8 DEPRINTDEF) NIL () REPP :D8 (P 2 SI::*RESETFORMS* P 1 OLDE P 0 DS I 0 ENT)  @`@ @]@@H gH@  hhhg $@II @@ bdH@ (124 SETDEDITMAP 109 MOVEDSMAP 85 SI::RESETUNWIND 80 \MVLIST 75 REPPA0001 55 RESETCLIP 49 UNPP 36 MOVETO 18 ELT) (70 SI::RESETUNWIND 42 RESETCLIP 9 \DEDITDSPS) () REPPCHANGES :D8 (P 11 SCR P 10 NEWCDR P 9 NEWCAR P 8 OLDCDR P 7 OLDCAR P 6 BK P 5 I P 3 TEM P 2 CL P 1 UE I 0 UL) @ b1HJLhY [KKIIII OhOhN[kOO]I@ N[WJL hN[G]K MiL\KOO _ddiKOO ddiN[ OOhJLhKJHX?]K MiL\] M L\(241 REPP 234 UNPURGEDP 215 DOMINATE? 166 REPPDELETE 145 REPPINSERT 123 DOMINATE? 94 REPPTANGLEDP 37 GETME4 5 REPPUNRAVEL) NIL () REPPUNRAVEL :D8 (L (0 UL)) F @H@dg*"dYdgIIIHރH@bNIL (35 /RPLACA 15 LISPXHIST) () REPPDELETE :D8 (P 9 IM P 8 I P 6 SY P 5 SX P 4 OCE P 3 NCE P 2 EDGE I 2 NCDR I 1 OCDR I 0 ENT F 10 *STANDARD-OUTPUT*)  AHYBIIiAJ ZAi BBJ [B KA! O_OdB[BM*K "Mo`K Wh Խ@KKMKN @ J K IX _3O O B O MONO^O_@JJ @@ i(258 MOVEDSMAP 217 UNPP 209 COMMENTP 200 UNPP 192 COMMENTP 180 GETME4 169 MOVEDSMAP 134 STRINGWIDTH 124 ELT 102 DPCDRSEL 64 COMMENTP 55 GETME4 42 GETME4 30 GETME4) (115 \DEDITFONTS) ( 110 " . ") REPPINSERTA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 E I 0 SI::*CLEANUP-FORMS* F 2 EDS F 3 TMP F 4 ENT F 5 ALIGN F 6 DELTAX F 7 OCDR F 8 SX F 9 SY F 10 NCDR) d WWR WHTcIIdWWSUVR hSUVR IhR `T R cTIY(85 DEPRINTDEF 79 ELT 63 DSPXPOSITION 54 LEADSPACE 42 LEADSPACE 9 MOVETO) (68 \DEDITFONTS) () REPPINSERT :D8 (P 10 NSY P 9 QV P 8 SI::*RESETFORMS* P 7 TMP P 6 NY P 5 NX P 4 SY P 3 SX P 2 DELTAX P 1 ALIGN P 0 EDS I 2 NCDR I 1 OCDR I 0 ENT) BAAB `@ @ l `@ @@ 5IJKYgHKLjdh hhhg $hH ]hH ^A  OOKLMN _OLO"H@ O k OoOLMdKKi(217 REFRESHIF 210 HIPT 203 HIPT 179 MOVEDSMAP 159 GETME4 152 DSPYPOSITION 144 DSPXPOSITION 132 SI::RESETUNWIND 127 \MVLIST 122 REPPINSERTA0001 102 RESETCLIP 61 CHARWIDTH 56 ELT 40 SPACINGRULE 32 ELT 14 TAILP) (117 SI::RESETUNWIND 86 RESETCLIP 47 \DEDITFONTS 23 \DEDITDSPS) () REPPTANGLEDP :D8 (P 3 CCC P 2 EC P 1 I I 1 L I 0 E) 2A1HhY @IJiiIIKiHX(17 GETME4) NIL () LEADSPACE :D8 (I 4 EDS I 3 DELTAX I 2 ALIGN I 1 PRV I 0 E) 6@h1A"@ BhD hD D CjD (51 RELMOVETO 42 MOVETO 35 DSPLINEFEED 28 DSPYPOSITION 18 COMMENTP) NIL () SPACINGRULE :D8 (P 3 Q P 2 P P 1 E I 0 BME) 2@1HYJ I [@KJKI(27 GETSELMAP 19 COMMENTP) NIL () UNPP :D8 (P 4 R P 3 LO P 2 HI P 1 H P 0 EDS I 0 ENT)  `@ `@  @ k@ ThH \@dLLLH L@ @K@@ٰ?@JILL@IH LKILJIKIH LK@LkIH LKLdMM@ @ LكLJLLmؾdNNKL_dOO_jOOjh(203 NXTUSEDX 196 ONELINEP 176 WIPE 156 WIPE 132 WIPE 93 ONELINEP 85 WIPE 58 DSPCLIPPINGREGION 48 LOWPT 40 HIPT 27 ELT 13 ELT) (32 FONTDESCRIPTOR 18 \DEDITFONTS 4 \DEDITDSPS) () NXTUSEDX :D8 (P 0 V I 0 E) x @X@XdJ @ BH 7@l `@ ذ@ X@ Hd`@ YIm(107 DSPCLIPPINGREGION 102 ELT 73 GETME4 68 GETMEBP 59 CHARWIDTH 54 ELT 30 DEDIT.RPSTART) (93 \DEDITDSPS 45 \DEDITFONTS) () ONELINEP :D8 (L (0 ENT)) @@ NIL NIL () MOVEDSMAP :D8 (P 14 B P 12 WIDTH P 11 RIGHT P 10 LEFT P 9 BOTTOM P 8 REG P 7 NEXT P 6 FONTH P 5 NLOW P 4 OLOW P 3 EPDS P 2 LINEFONT P 1 DY P 0 DX I 4 NY I 3 NX I 2 OY I 1 OX I 0 ENT) CADB@B `@  J ^DN]BN\J ^hK _d_O_OO_O_HjxHH l@O$OOHBO O_O_jH+jI&KALKCLOANgg OHLjHALOANK IjII KOOKOOIOLOgg @OOOBI O_KI Ij,OOdLLOIK KOIO CMOCٰ1MIOO_dOOOMOjIK OLONK KNmMdLLMk O(439 REFRESHIF 417 WIPE 403 WIPE 353 REFRESHIF 340 WIPE 314 ADJDEEXTENT 297 ADJUSTYTAIL 270 BKBITBLT 232 \FZEROP 214 WIPE 191 BKBITBLT 138 ADJUSTXTAIL 107 \FZEROP 62 DSPCLIPPINGREGION 26 ELT 12 DSLINEFONT) (264 REPLACE 259 INPUT 185 REPLACE 180 INPUT 52 FONTDESCRIPTOR 35 FONTDESCRIPTOR 17 \DEDITDSPS) () ADJUSTXTAIL :D8 (P 8 IM P 7 I P 0 OVER I 4 RIGHT I 3 YLINE I 2 DX I 1 BK I 0 TAIL) `@!N_d_A _6CdODOdB[KACO DOdB\LACA DAdB]MAAXH _KCODOdBYIAOOOBCD CO DOdBZJhAOH(159 ADJUSTXTAIL 111 GETME4 19 GETME4) NIL () ADJUSTYTAIL :D8 (P 2 IM P 1 I I 3 D I 2 OY I 1 BK I 0 TAIL) d@!HYd-A ZJdCJd C Ad CKL L Z"dCIIJBC Jd C I(84 ADJUSTYTAIL 57 GETME4 15 GETME4) NIL () ADJDEEXTENT :D8 (I 1 DY I 0 EX) +@ b @@A@@jA(16 SHOULDNT 5 \INSUREWINDOW) NIL () DSLINEFONT :D8 (I 1 Y I 0 E) %@A@A@ @iA @b(27 DSLINEFONT1) NIL () DSLINEFONT1 :D8 (P 3 IM P 2 I P 1 MFONT I 1 YLINE I 0 ENT) E@dAA@A@ `@ "HZIJ A JI(60 MAXFONT 55 DSLINEFONT1 49 GETME4 34 ELT) (25 \DEDITFONTS) () MAXFONT :D8 (I 1 F2 I 0 F1) )@ @ jA A j@A(22 FONTP 5 FONTP) (29 FONTDESCRIPTOR 12 FONTDESCRIPTOR) () REFRESHIF :D8 (P 7 *PRINT-BASE* P 6 *READ-BASE* P 5 *READTABLE* P 4 *PACKAGE* I 2 LO I 1 HI I 0 WDS) u@g 1HHHHn'@ h@ @ @g AKKعdIIBKdJJ @ (114 DSPRIGHTMARGIN 107 REFRESHIF1 74 GETSTREAM 63 GETMAP? 56 DSPCLIPPINGREGION 49 DSPRIGHTMARGIN 17 SHOULDNT 10 GETWINDOWUSERPROP) (69 OUTPUT 22 READER-ENVIRONMENT 5 READER-ENVIRONMENT) () REFRESHIF1 :D8 (P 10 MAKEMAP P 9 RMARG P 8 LMARG P 7 COMMENTP P 6 I P 4 WRAP I 3 LO I 2 HI I 1 DS I 0 M)  @BC@ @ KHIJh@)@ B@`@  3@@A `@ A LgA L@@ ABC @M^dQC@ `@ @ @ A `@ A gA @ ^o`@ NA oA NABC o@ ABC NRh@@A `@ A @jK@jhhO@@_Ag  @AidO@ jOOفOO @A (466 PRIN4 455 PRIN2-LONG-STRING 420 GETWINDOWPROP 375 DSPFONT 369 ELT 355 MOVETO 335 REFRESHIF1 327 GETME4 317 REFRESHIF1 307 PRIN3 295 MOVETO 285 STRINGWIDTH 280 ELT 258 GETME4 251 PRIN3 240 DSPFONT 234 ELT 220 MOVETO 211 DEDIT.RPSTART 192 ELT 155 REFRESHIF1 147 GETME4 132 PRIN3 117 DSPFONT 111 ELT 96 MOVETO 73 ELT 20 LOWPT 14 HIPT) (415 WIDTH 360 \DEDITFONTS 271 \DEDITFONTS 245 %) 225 \DEDITFONTS 197 FONTDESCRIPTOR 183 \DEDITFONTS 126 %( 102 \DEDITFONTS 78 FONTDESCRIPTOR 64 \DEDITFONTS) ( 301 " . " 266 " . ") COMMENTP :D8 (L (0 E)) `d@NIL (4 COMMENTFLG) () HIPT :D8 (I 0 ENT) @`@ m(16 ELT) (21 FONTDESCRIPTOR 7 \DEDITFONTS) () LOWPT :D8 (I 0 E) @ `@  (16 ELT) (21 FONTDESCRIPTOR 7 \DEDITFONTS) () WIPE :D8 (I 4 DS I 3 H I 2 W I 1 Y I 0 X) !hddD@ABCgghD (30 BKBITBLT 24 DSPTEXTURE) (17 REPLACE 12 TEXTURE) () RESETCLIP :D8 (I 0 C) @@@ (10 DSPCLIPPINGREGION) NIL () (PRETTYCOMPRINT DEDITPPCOMS) (RPAQQ DEDITPPCOMS ((COMS (* ; "DEDITMAP record and accessors") (DECLARE%: EVAL@COMPILE DONTCOPY (* ; "DEDITMAP record definition is on DSPRINTDEF because it is needed there") (FILES (LOADCOMP) DSPRINTDEF )) (INITRECORDS DEDITMAP) (FNS DEDIT.LPEND DEDIT.RPSTART MAKEMAPENTRY \DEDITFONT# DSPDSFOR SHOWDEDITMAP) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE DEDITMAP) (QUOTE SHOWDEDITMAP))))) ( COMS (* ; "DEDIT entry and incremental reprettyprinting") (FNS DEPRINTDEF DEDIT-MAKE-READER-ENV) (FNS REPP REPPCHANGES REPPUNRAVEL REPPDELETE REPPINSERT REPPTANGLEDP LEADSPACE SPACINGRULE UNPP NXTUSEDX ONELINEP) (FNS MOVEDSMAP ADJUSTXTAIL ADJUSTYTAIL ADJDEEXTENT DSLINEFONT DSLINEFONT1 MAXFONT) (FNS REFRESHIF REFRESHIF1) (FNS COMMENTP HIPT LOWPT WIPE) (FNS RESETCLIP)))) (/DECLAREDATATYPE (QUOTE DEDITMAP) (QUOTE (BYTE POINTER BYTE POINTER WORD WORD WORD WORD FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER)) (QUOTE ((DEDITMAP 0 (BITS . 7)) (DEDITMAP 2 POINTER) (DEDITMAP 1 (BITS . 7)) (DEDITMAP 4 POINTER) (DEDITMAP 6 (BITS . 15)) (DEDITMAP 7 (BITS . 15)) (DEDITMAP 8 ( BITS . 15)) (DEDITMAP 9 (BITS . 15)) (DEDITMAP 4 (FLAGBITS . 0)) (DEDITMAP 4 (FLAGBITS . 16)) ( DEDITMAP 4 (FLAGBITS . 32)) (DEDITMAP 4 (FLAGBITS . 48)) (DEDITMAP 2 (FLAGBITS . 0)) (DEDITMAP 2 ( FLAGBITS . 16)) (DEDITMAP 2 (FLAGBITS . 32)) (DEDITMAP 2 (FLAGBITS . 48)) (DEDITMAP 10 POINTER))) ( QUOTE 12)) (DEFPRINT (QUOTE DEDITMAP) (QUOTE SHOWDEDITMAP)) (PUTPROPS DEDITPP COPYRIGHT ("Venue & Xerox Corporation" 1986 1990 1991 1993)) NIL