( [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) Rrftu9uW;QELl& SCHEDIT Library Loaded^R SCHEDIT Resume Lisp^R SCHEDIT Zap Defun^R SCHEDIT Zap Region~DIRECTORY~~DOC~ & SCHEDIT Library Loaded~DOC~ ^R SCHEDIT Resume Lisp~DOC~ ^R SCHEDIT Zap Defun~DOC~ ^R SCHEDIT Zap Region~DOC~ ~Filename~~Filename~~INVERT~PUH1:m(m.m^R SCHEDIT Zap Defun)[0 [C[L[B[D f[dfile[Previous Buffer .:\u0fn0j QBuffer NameuB FF"N.,:FXC :iLRegion' "#:cw@m(m.m^R Beginning of Defun) :XL FLXC' m(m.mSelect Buffer)*SCHEDIT* gC 2 :i*CFsEchoDisp @ftZapping L... 0FsEchoActive qBm(m.mSelect Buffer) 0[H[B[F [Previous Buffer 0fo..QSCHEDIT Lisp JNamef"ew1,f Name of Lisp: f(( )m.vSCHEDIT Lisp JNamew)'[0 QBuffer Filenam"EETDSK:FOO.SCM' m(m.m^R Save File) QBuffer NameuB m(m.mSelect Buffer)*SCHEDIT* fsosteco"e fsmsname:f6uH ! 0' "# fsmsnameuH :iFH_SCHEDIT.LSP 1:<@edF.-2> m(m.mWrite File)F.0 0 ' HK0fsModified QBm(m.mSelect Buffer) @v 0SCHEDITLEDIT Package for Scheme.S Flag^R Send the region to Scheme.^R Send a Defun to Scheme Appends the defun to buffer *SEDIT*. ^R SCHEDIT Resume Lisp will write out the buffer to _SEDIT > on ITS or _SCHEDIT.LSP.0 on Twenex. With a numeric argument, as in ^R Autoargument1 ^R SCHEDIT Zap Defun, zaps the region instead.|^R Go back into Lisp, giving it any zapped defuns. (See ^R SCHEDIT Zap Defun.) Saves the current buffer, if changed.& SCHEDIT Library Loaded ^R SCHEDIT Zap Region ^R SCHEDIT Zap Defun ^R SCHEDIT Resume Lisp +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2