‘XCL Compiler output for source file {DSK}lispusers>CL-TTYEDIT.;1 Source file created Tuesday, 19 April 1988, 12:02:09. FASL file created Wednesday, 31 August 1994, 18:24:10. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜Œ INTERLISP˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–tggo ¿o¿o¿h¿h¿T¸h¹hºH[‘K°$Zgð™Jgð€h–J‘J€i¹„H¸°ØIT c˜•ŒPOSTGREETFORMS˜Œ6 top-level forms™˜“€l˜•ŒREMOVE˜•ŒPUTPROPU˜•ŒEDITCHARACTERSK˜ŒAND4˜•ŒDUMMY-˜•Œ EDITRDTBL&˜•Œ**COMMENT**FLG˜•ŒCL-TTYEDITCOMS˜•Œ FILEDATES˜•Œ CL-TTYEDIT!˜Œ;..˜“˜“˜•ŒVARS˜“™˜Œ;..˜“™€˜“™€˜“˜•ŒP˜“˜•ŒSETQ™˜“™˜“˜•ŒFIND˜•ŒX˜•ŒIN™˜•ŒSUCHTHAT˜“™˜“˜ŒEQ˜“˜ŒCAR™(˜“˜ŒQUOTE™˜“™+˜“˜ŒCADR™(˜“™.™™˜“˜•Œ VARIABLES˜•Œ EDIT-ATOMS˜“˜•Œ FUNCTIONS˜•ŒSUBPAT˜“™%˜“˜•ŒUNADVISE˜•ŒEDITFPAT˜•Œ\EDITBLOCK/EDITCOMA˜•Œ\EDITBLOCK/EDITCOML˜•ŒEDITL˜“˜•Œ*˜Œ‚€This is because EDITCOMA attempts to rebind RDTBL to EDITRDTBL on PP -- a useless thing, but PP will error if *READTABLE* is NIL˜“˜•Œ CHANGENAME˜“™.™B˜“™.˜Œ *READTABLE*˜“™.™˜“˜•ŒADVISE™D™A™B™C˜“˜•Œ USERMACROS˜•Œ ˜“˜”˜Œ19-Apr-88 12:01:09•Œ({ERINYES}MEDLEY>CL-TTYEDIT.;2˜–o ¿oc™;˜ŒCL:DEFPARAMETER EDIT-ATOMS™˜“€˜ŒPROCLAIM ˜“˜”˜Œ--•Œ--˜”˜Œ&•Œ&˜”˜Œ*ANY*•Œ*ANY*˜”˜Œ---•Œ..˜”˜Œ==•Œ==˜“˜ŒSPECIAL™;œ™>˜–+@d3@ð²#S¸h¹HZ‘J°Y@  ‚IH¸°ç@@™;™>™˜“˜“˜ŒX˜•ŒSTREQUAL˜–‚¡o ¿ggg ¿ggo ¿ggo ¿ggo ¿ggo ¿o ¿o ¿o ¿o ˜Œ10 top-level forms™˜“€ ‚›˜•ŒPUTPROPS‚˜•ŒADDTOVAR‚…™sz˜•ŒREADVISEo˜’ŒREINSTALL-ADVICE˜‘˜ŒXEROX-COMMON-LISPZ™wE™w0™w™I™@ e˜ŒBEFORE`™CP™xK™B;™x6™A&˜ŒAROUND!™D™™K ™B ‚–˜“™˜•Œ COPYRIGHT˜“˜ŒXerox Corporation‚ÂÄ‚‹˜“˜•Œ EDITCOMSL™S‚€˜“™R˜“™S˜”˜•ŒA•ŒB˜•ŒUP˜”™‚€•ŒBu˜“™D™A™B™Cj˜“˜“˜ŒLAST˜“™˜“˜•ŒLITATOM˜“™,˜•ŒC˜“˜ŒRPLACA™‚‰˜“˜•ŒMKATOM˜“˜•ŒU-CASE˜“˜•ŒMKSTRING˜“™,™‚‰U˜“˜“™‚‡˜“™&™‚‰˜“™‚˜“™‚Ž˜“™‚™‚‰@˜“˜“™‚‡˜“™&˜•ŒPAT˜“™>™‚ž+˜“˜“™‚‡˜“˜ŒLET˜“˜“™K™K˜“˜•ŒNAME˜“˜•Œ READTABLEPROP™K˜“™.™‚¥˜“˜•ŒIF˜“˜ŒOR˜“˜ŒNULL™‚¥˜“˜•ŒSTRPOS˜ŒEDIT-™‚¥˜•ŒTHEN˜“™&™™K˜•ŒELSE˜“™‚¬˜“˜•ŒFIND-READTABLE˜“™&™‚¥˜“˜•ŒCONCAT˜ŒEDIT-™‚¥˜“˜ŒPROGN˜“™&™˜“˜•Œ COPYREADTABLE™K˜“™‚¦™˜“™.™‚¥™‚¥˜“˜•ŒAPPLY˜“™.˜•Œ SETTERMCHARS™˜“™&™K™™F˜“™A™B™C™Dš‚Ïÿÿ