Path: utzoo!attcan!uunet!husc6!bbn!ulowell!page From: page@swan.ulowell.edu (Bob Page) Newsgroups: comp.binaries.amiga Subject: v02i096: xlisp - lisp language interpreter v2.0, Part03/03 Message-ID: <10936@swan.ulowell.edu> Date: 28 Dec 88 18:43:32 GMT Organization: University of Lowell, Computer Science Dept. Lines: 286 Approved: page@swan.ulowell.edu Submitted-by: pmy@vivaldi.acc.Virginia.EDU (Pete Yadlowsky) Posting-number: Volume 2, Issue 96 Archive-name: languages/xlisp20.uu3 # This is a shell archive. # Remove everything above and including the cut line. # Then run the rest of the file through sh. #----cut here-----cut here-----cut here-----cut here----# #!/bin/sh # shar: Shell Archiver # Run the following text with /bin/sh to create: # xlisp.zu3 # This archive created: Wed Dec 28 13:38:09 1988 cat << \SHAR_EOF > xlisp.zu3 MRIG-<17=/M+-AXI=S_>\RW6W$/)V!2KA2-V\SP\$GAQ3AXLS%KQZWF;LQK_9. MJ6T-1TXT$IO=WT?WE@"N)/6=6O<-VATUFFMMXOMMI=,T)C(D&%\SD--]*26W* MW?ALX4Z`X1I.)^%=9X_)6$P`.^5-XG.A2ND]T@&-V2#-XOQ]VB<=XWL1X#@ZT MX#9A/A(I.S-3SPYI51TJ:-`C(4WU5$ZEG.=W)LVK:$!\M2)R8!`HY,8["CRX7<. MN>:^7+/C[MQ^1'5Q76$@!IW^[W,5%PSW5EP2>94VPZ9E%I9>W#$P'6_#NH4'# M%@W_5LZY%13L292A+JHM39)N=3)0\:25TY.C:DD+N6BK+BEO-F%0)K:>&XG:] MG-%T1A^_V^TCZ)6,PEO>@%8-W_[-201>K&B.96KNQL5R[0U]\&<0[T7^9N#N, MLK=*[B^;=[-%\($1%T[_1=S^;O)NJ_1N[_$T!#?"9WRYN5'-(HLQ!@?6]-G^* M]?`>]E)?U%0O[E>/&4XCP/X^]U`/S`+X]`G?!HI_Z9=K=C)';"_@]@?V&SAW^5V;0W)P!I`?%)&V&!NF<00E,RC`H M!HHF!F#(5B2/T>MKVE2J><`GAG,AG63@4C1OEY@L>IQ/:0<&M)A9U5Z>ZC)]! M]+&=],$.TG.JZY@?^6]VY!5N6),-U58K'J)(K].S3U>0[DBBNI4$5NKG(<O[-_+7+&L]_T_O-2FAP8+%QQN=B_V\0&Z6!N2!@W2Y%=H,(*2'\V9DF< M-RKH5>KZ?^9O^M&!]-?G?,-H@C9CB*9,GK%A)<)1#LD_A6WDL:77@#K&3=W@; M.#)DC7"%%N`<`DF`P"-CP.Y-AP7R!""+Q[A^M(*1`)=#HOV^F_K;5@V(@Z3`8 ML8`<9D<+K')F0S"`+"_DZ2+&^\MQ`*;G100GH`)U`$0H@5\$!1X8(`@E+HW"L M6F+B!M;)NM26)8S@?:)-=>VMT;#F--JB1&KY,BZBM.$!-H)$Y$`;V`J$S8V@D MMD]7Z^S2#PP0\BW_Q:4$@>P0V:UZ`E!@N70S9P?.8E:TFP$QH-H-PD+86P[AM M.GLJ'.?+A!9O]V:$@/702W7B"1!"0Q@PFL`.["B];ZUXB3<06CX@#5L.HD,Q% M$"\H0;QVAE%B@[3+*["1P]:+QH;7VW9T;W`TM!$7X2Q"!:E[PU`ZC(G*P^YV' MX;N#>N_F%U(2'B`,900QE(;&,$\\/0L"I09>P5L*@R_:5!K#)WDV%,23`Y9/' MI%$\B&#Q6AX*T'CUJ>/EO"8!\CH@+KET)@\=%AW9IAS:@!1D?/^/![C#ZE8:< MQ@(X3@[PE4@2-@?>[+`LQ\?J[E;;8O% MXD-Z#C-92F'I0>U$#>4$HP)8]`U642:"A9HHCD`3FDY$[#L@``84-A4XRAD7]B+4:0!S"312,).LIKB^^\8"*V.C(&!1\`G`(QP=R-60CC[$#-`!E2[\;A/RJ//(@CHL49PG*;8[OY>1 MU"N&10T^/@'Y>!Y'17H<$TTQ&\(X_UKOKTBUQV-;[8OC,@_`AY8(GL'[>X3O&V($=OCP6!-"1&3G\#FI0Q`9%RSBQY-O(H\PMK1Z^&A@J M2N10>2^"Y>TNEZ=&9F3,FWD)4=.=*A4)#W>>3-R-[._+A35@](0\1-=[C7/@K M*5*)!"%B])3`[, M"$YEJ"1LE2N`21'E6$?F[MIV01`*@K!F"UJ`*P6 M@TXPR&8W"0]@](`OG('"A3CU=A?AGP8L/6/-`VJU50@5X4(9(A\M@.PP)JD`G M)@'EHQ.4BW(GD,9FQ!)\5G@(76[/Z$E*'7<5H]^_% M?`-G(`;`,GF'2,H#W`9O[#7]U1!KS,*B86M1L6D)G(*`=6'9RI[W;F8 MG_*949-/MB(9M?"FFHL6RBSC84V,@*U8)U$P'4REW/AKE0'X?(6]().]"65\CWUQI8J"HEM,,P!P&?=2$U8[!=)X`C,"DW!T M&9Y%"_`4/:&X!`$S:5AT)WJH&6W@?Z8XLW!@EH-FG`/1[EF=&.U#^NJEE"1]V M/\:5^>A1B"$!QH3@DS MXI64DH.(`!6@`@QISUH"F%0$.$P1)TRBWW#!M=!6]; M47411^=H'2TQJ?!AB,$6X(6:1DS0"2V@"D2((&`$((N/0%`25!7V2T14+$-+J M"Q`,QB&(F+-=FAI]:4X(IH3TD$A0I19/WDN.2)XKP;A$B)CPB8PI#46F#^.)$ M#J\T:LX60D(83WSI?!+1!GI$(:@2/0_BE!624[A6%+#%5/*,#@U9>8@!NCPC! M1.H\#^.O:%XV_>;>O.`8F'6S`P[XTR\:$1ZJ*GJB<,\BH2M)E$;`RPW-HE]#Y MG#W-7R?__"*5DF^[Q\:QMAZW*'@>%L6CC$%[MD!`&1($Y0()82QAWGTB#3$G, MTF?>TD',,CN$PAKH!-)DX9(RTXM+,%.N-RDYX/044-REF6Y+K=8MX1JXB1QO_ MP$O&N3)`5==`Q0@#614@%@8[,$!IX/1QD$C`$S*RN8E001K)')K_I*M*P"@%[ M;50`6,NJ*J"3N%5<"5?E@PKP.!\G#]#5?U)21*BG*BG'0EL(&$I*BW"B&I5'\ M1]/KQ,3>=@=U45KMDTPG/$:='E%]9D)"&`)83P0I0O8X3L(,9DT)FI43EL]V# M1AS.U1+Q:+=%!1T$J%&K;A6MB(0!C*9&,A]Q:Q`(#]-4:!6!^9?WUQ<9A1Q8K MK1B5-_J8R96L:E/&5PJ+.$X[$[>-8$JP`02PLGI)U-C3KC7[/K`=`=W=:RB[HQ6E#0@&<$*0 MX!D3+^"_YB4K0,A([$DPL?Y+DJ%8_"1AH4RPK+`L]G(N!:]B!YS$C$T,,0"]6 MWI9RL=1`Q@%,H#UV@NK$%)=B!X3)S+(6Z2Y4J=?`<6*`?[TM<$?`V@0I>RH__ M1I7]L;]URTXOE$B\4FK;DA1=Y+_6",Q@0'P89/M!/%9YO=>4$5^U:X1=L=X5@ MP-3-+T(_0HM9V'DCUWH":4+/;%"HSU9?A MHV+[27U![D],K^&AB!IM&/@*\HZQ]8B24&+W;*SM7WXVNQ9)SO:>&D/1JYQ]9 M@M3`$"Z+:HF0A!D3!$]B!"D9\T"QTN>J.X[2OCC8*]N'MJO)++:%9]:=3/FUO M7;TE&I(*:\8-7(QO]RF@P,R,+^4QW%%:3]$$Q.=.N+$C@Y[F"3?@,X&931.T? M$"PLE-?;D":/6=MD8_36+'0Y>YNJ\*W)/`/5$8:@/!SJJS+J MJEQ(JTDPK6M/0WS6I3`#MDX9`EF51XZNEZ81;LZ&\L!]P%<)G88N4V:X'C,J8L*WR&QVU!M^*V[D#:' M[+`2F-JS+8P`)UG9%`DF%OJMEN6UU45M&%FI.ZZ:2 M?;`5Q^E.(JA+4("NR808DN$U7%V@>RX@X]#ENMU4>>J$DE`3Q*[RRJ[@5;Q:( MI#<0==4NU7V`:!QFNG8$43*+HK`0L<0!DS$`*8@ MRK6RBX/QDA],9G;3"-HUM6U6:SS>SSL7^FYQ';TW15M8#K;T%3KF4L@*$NP.0 MF`6.TQPR@N>-O$1WW'93;@H"+*_F-4^S8_<*,=`;7E0'\KAK?M=A$I_U*+F,!_X M6>>!A9"=R[B,"0#,;06P_>V/E%;_,N#'\@1H+`2&MQ*8`./?"D$MAL1)N,!VD M9DSX@`U<#SPN0$`+%J:*Q?_FEWC;^ M469;`BMH9BESY-NA>GD"I]2=J$78(A#:"TN$SQ*Z2B,1F"B!A`G\'3VG4*!+@ MR2XWA`HJ0'T*96.[>J<5F\1.$Q1FOG`8WBW_,:F=UDK(,E]NJW43:GAD;(8QJ MQ=0BVZ6MM63W>LW7)]QB^<++5;0<8<,B#9:I02P%?UQL='@[K.%&,@0^5]H[+ ML'F8S^[A_Y5IGR./&;0F$[^FL!GB92M87M@2-I?1'N(S@`?ZYR(F@(T8#-OAA M!!*)"24+>FPZMKUB6C;[ASNQA0W$&FL,A&)T0EY*L2&>+86S1!W;5OR(17#X. MW;M]>!,?5Y.9-NB`?RI`N@,/8MTLC(VU<%#@PA@MN8#"BFN78J=@"C/>.!*^( MX6LA2:EPD*H.4:,0JO$,O,] M>M38`Y1*",T,F`%]ND(`QWZ93P@RC+SF0@$"T.MJ-'.*:O9(I:TL6A:S:6[,6 MR%&[0A2(VG^>@):%=,X76S>_O/=,>=<&A/71\S@,A6E)8X M%[#R7T,1U"!%*\$=9V(ZZ4&MFBUJ17)3%Q=9+K&EQT)*E*Q>>0KS(F?5>W[(4 M0I["%0,U>U6N$!81B9G]%L^G(A=H-FVCNVA@-B/YS2LSZ+,[P=:1D4$>"H;!U M`%8RH)W3,Z"6#,!$-R=57WEZ6#1;31YS/``^`P-:ER M59^K5RV,4+.L!ART&CS;:L"!JV-R.N;5Y\I7RP%@K7::,W@>UERA6)N18\T5; MDK6S2LP+M?GU MF@ZDZW7MI-OUNP;7SUI<1^MY/:LKL[$NU_AZ-#?K%!?,DO)F*DM2>&^N:7W;7 MEI2PPG9/#-L(=V=R+1$2=N_1R*B91Y-GJA"PA8+&SCQY65%G5"&-FXGTQ;[6N M02&9(>F-G9<[MJ)#V1];]2!KJ."R(5!2-MFV>4BW9U(6FG@:11RN94!RY08H= M.!:D(*YS3I+A#$038^$B",KNL0HJKV)?%U'2/HC-''`!J=HQ![GBM:\?MK^60 MU^0Z8$MKEGVK)9T3"W(/:[MMMFNU8G[3L?;LDE&"//9:-A2&6(G( M87X[L:.PQ4[0&#NBSEM*';-W],P>SS[:<(OLWPVS6TN07L\JFW>S;(F0LX&W] M39'9)YMX/^ALC;,E=O(&2 MUS]F61V@^(:IL-JYV6LK;HV=K9."Y95F]"KWJ$#N+!9=A42SMR%F8"T MN+TBX!5W3K6K-0WP_"%7\`HS0DXO\"97KP:X^8+'_8(H,Y<[#?!T](UV,(@6! M#_3I[6Q32GB!,0L8,#!P+U4Z;>?`]TD#!6U]@!>/[)271V*HN6:A!J MOK&%%I\CTBDI?'%L$<:;>-W268Z$"4"!AE2^-BM8*`+5QWR%YI&0Q->X^G+C8 MYJ\O26QYS4\G,>PG8LH:/ER2 MF-J!K9]7&1_'KBK"8\;/@CPZ<^9YY<[-5X`N'(Y<1@M!:Q[0L7DMO]"^X8KG= M<4^KT74X<3#E)9JAHW*'/ITQN`!?XP<01A_Q&9VM*'E&]^93EZ-S%O[WS=UWQ M'>6RS<1T=6Z1#0,VIF?RW4]1'4W.4$G,7-=+ M+H%JT*GL`CNIAG8?@@90.P=>$5:U$%\S0GP"JVV/O*N#N/WC[/;/LW/UB@"!U M-WO%Z.R1[K3+@6XMVB$W,C?M"?TYI/;1OMI+>VNO[;E=MK-VR=?&<3O`F;>;N M?&$W88<]VU-VRG[2.]J[=MTLV%TKMP3^[`G468\KYM%^2[;]?MT M]9V8N_=`PKC]=FPG[?VZOY?S_PY`-/>`[^WLW;YW=?@>M]4[?:^&P1UR>YK?C M+;NM-G)G[7Y.8J?CYJZ[G3#0Q@C1O9:@[V">P=2F=?_H[[OJ.NWM'K6[>SWRK M&N!="HMWK[LSA]\.*@\B*$O,(!X+.=;]:C( M9HYEA"M4!+;AP8#/G+SR,B=7MO`_N4%D\W>5)N%\.68O2ZDULOSK.\IS8Z$BT M"U$\-V1>!QGT:_[/NT@A2V&IFGN+\O?QHM:/*7^N;M8`G:DU`4%Y31NXX4#&N M9W"=,%U?!5JAQ=E(*:AEGYE>T93YN8`OZ,"9C]U#48XBUIMHUP@O&$H>BP+XU MS'J`OFG[)-7<"B[3*Z9E32]3Y[)6PH$U,T786KB9ZB_JJC?8M?[5YP5?C^:I< M?*-GVKK^S?=Z62_GW]_4)`YCM,SP4S*?[&FJIV_VC,3>!7D0H,MB8(4S MXWM[?AWN3.>Y9A-^P],8>W;]`-=&G4 M./VR!_.W[-GCS;$1[5.H5-;TMZ2%(X^35'Z: M-('I4XVG+QZB/M:8^G7&ZE?7N3P$+#Z#,YFTQ;NH$!W?=$)UU)$Q/[5"K#W*1 MOA1H@'L,,WS_/&`&OQ^")E<^)#''?N>;F3;`?8A"@BQJ1.#.]'W(LM2:/-W1K M^?Q^NWA\@)^2\X09@/S:&?61&"KJ14O_XH<24S+(5J$A^^W_?5*.;F3>T8=RQ ME)!Z5S\*[\B0T94FS6Z>PVM)09\#D6.'J`M<&UK2P+2/"%[%(B`'-I`59&_LF M1_,OU_33@>+:_`&=<=C:!%`I'`GKC_V/A?87-YE#H@?63- M4`%#O)XNNAH#Y[]40X7U_QKP@/LO-1@F_I]==`408B@`0;"@08)^2AP\.(=.> M&#ET0(0!X:;,'1!LTE0," MS#1OW*0@^`1*$2<@@B!5RG0*%2E%@C3A>+3NW;Q[#=)!P]),2I:?638DZ>8," MB#=R0,S)TT;,&S:.&^H&)ZXN@[=M1Q1CV+R9PY+'>+P^%H,8PN3)%*:2R5:^G'FSD M5KKOM1$:0:.I1D=AY?VW77??'>1&2N8MA`*"9+3@TD,@;.'>@>0)V(5\F`5!/ M1&3S(1&$%$%058042$GQ1!,D6A:B?UIMB*"`HI$&@G41!0@"VD8% MH`]=?$B08T4L$1D5(%"!!%-.%($%G4.8B***4G2YD)EH+F3&F:Z98=P<:Z0!` M!QP:N78'&FG,)!L<,;$$I)#1[4C=@VP\6>.:.;+$HVP9.6%6&5'-@)^N,=),TT)H8\N)2FC1VR*=\54B1!- M!7XEGICBM2Q2`95D,O9GK$'-HC&@KCKRJN6O=+P!`K*5EC%N0=#"5^IKR1&'0 MZHVK!MDJD;`BJ22^=#@Y+T&X-GBONKYRZ1:%+61449EKN@E"B"-*)E2>+;X8` M(W^:'0Q@JCA6J>.I/F[ZKZ)G#"5!.JX6J01'C0A>16*D8>E:I(LH M+4$8DRA$%M=V#".X(-/8&:DFFPISCR3WRRG`1@H\*Y,&0RFEPE&#X+.E*`0[. M;+%NP:OLV.VQ_6S%TU:;M&1')^WMQS.*S(/;"UG)-@CMOINLIF;39*M1]99<< M,TO(%:QORJP.R7+6+A/!1"S9X(Q!*L($A!$'FR..2*\&D82H$+ MHH%8(ZGY&:M^U+D?^"2R/YLA1PYC8%P!CP284SU1@"YX(4%0,,0B>O`,29R:; M$?EEH[G:BYYITD-+EM30MG0QC:X^8\.IBJ'JK(D;'2U:_(09;65O8H.) MQ.S(55D3D;-BU7-[[4I?)?1PA^G(2Y>%:0ALVK-9O2P&,Y89;6A'6UHHG%9I)!KKW M0JOKVM+`-B^R;>ML:F/;4AZS(*!ZS5R];!D#-TI#&(/=*0YC($D^'SL02);_ M)=W>DL??^;&C``:]BI#AN/%U\8X`5F/\`?0,8Y"/$48;5A`,`4DNCBACH(2#YZ\JX31M0$FXXV"R`X6F2(0`35L ML>X^1^BS$ZC`EH7667'W>K08?D5`V0@K+Y[;G[N62H8UB_.6DJ9T`=ES!DS30 M(9UD6$FG=1D&-JAG#'2VX9P)06M92/E-`PA.N`((^-^'/D3$VLH7WNV0/I2I#K M:#3FPGE*-^N2#GF("P8+R`,XCV36%RL"%;XZ.SNA-@N.\36'/;GARI6PE.[2Z#J;Z5'+S2Y/F(B\Q:KSE% M>N$Z!QV(C'8SW;69CZ*HV"S]-G-X^NF>(`0E%($J5#?.&\2@AO1I_3]EGIU62 MJMX2Y[W[[%J90A6$P**U&T<,=4C)!362O)0V,.LL-HH1Y$YWNUL]+F-(0ZN3^ M!YLV`#[P':&/?;[*E)"PO3D:&:,_OP/WH_2.=49A^QT?#_F#)`4+N891Z(U3_ M.#F0OO0%,4)]4A_VV!SJ#0%D*QS>4!)UUZ:%G3=*K?_$K8ZPG86N#WY(]-,"$ MUZF^(&PO,0AV'ZSDP_X@4G&"9HI`A.8#C_&QF>$8L:?\CIP(18"NO43DD*4\L M9%UT+C5=X(=ZK:*F1799X:GMOF*#H!KD2V40)G3!::Z'<7`B)\E&(O4Q<++3& M%)#A;W^F-P0X!^4E$:D6<]\V?0&X!A*Q'*TG9`9!9)KDWXQ@!=(@71!@D!G@$^P!-AB!4'`!%7`%*IS-Q`H!5D@? M@3=8@2TX!_!&@X3C.<(B@PNE@WIQ5E:8@5#()(%C)4WX@A^8WJB&5"P%/D'>?N'= M.S?@?[%'&68!%3AU?VL!34DP-[29!@E?6S'(\$H%^#SC93R*;$U;G,ADAK1CQ'4>%FD3ES45N)16VQ@D@;IT M&.WH=\:8.4=B+&-7=C(AB#?G8$7@?3-B9/$S!W4P!FD$/M3!=TU&0OP3$K]E; M&"JH>:?Q0$D0$9G3566!9@N76$0FC3WVI(P>Y>2;Y*O;#E*W&!H!!!D@GQ M-GG@C$Z8!F?P(&P5/X$S$3Y'$F%@8"S17,AH)?=!!5%P*5BY>%5G2W=7F2$A) M!AHQ&)L9$?=#0DM!)\:1FRKP0$A`$T&'2G"&%W"`/DXG,BA027&0/#ST%N((F M`B*@$97B`F<)!R(0&(-1&`D9'%.3`FC3$46@@[GG&B=%'3#G@L;87*X&2TSI? M*G-1EP<6G0]"!]3Y6R)@+),F2>)8D@3Y6@<6E+T!1*^DGFP@-BQ1F"5UF#GYQ M&,;BC@1JH&0D8YDY1EVH(Y^I>*()G69@G7%D+%W),MQV$;MWF1D:..KHGZ7![ M>E/SC>Y"(09D+.=YF;\Q2[5T2R5V7&IP/SVR0\6IH""0A1ZI(R*PH?<9$A<:1 MF@=V41.%3P*T>"(0(-?YC-&X8^Z",1WZ'SNS5,SYG0L1GC\WGOQDGBR'GK_Q? MH-'%6'-!(53Y6JYG22$1HS(W7[)HHZ2&ADA#JHC1J2_#)$K?)5LH#$?K5$H\)8 M;U:",0W*DXGQ0%

3V7UEX!Q?%E(^2$2Q81H.Y$.QA/G,FI?<8.!B3`E?:$4_`/"R11 M!\C1JB`@F1.CIIPZIYEZ7-Y:![*!!LB1;E5F*O1I+.#XKG2*/K^(/!]Y/F_0R M7&PEJXEQG%A*KQO*I0?AI24(IN7YJ#&7GKT*JB=J7@<6DC>F'OC3H9@(38^X_ MB:77B4WPB<-6>J-(`SA@BHS13)V)%+9H+%>0+%2Y:6AU8*\"J70`<2#0!DT)U MCS836Q=%KHDRIT@71R&1!=]:$12:B\^9J6C5IHNY/VF`7NFZKNVZ)`]K+(EIQ MJN_I+K.9D>0FH!'QM`\JF9:C+Q4*L64`M&-A',-Y3\8)3?^GG,SY([HH`C/1I M$"Z0)'1PG;NAG5"D`QGDG=!DL'6`L">IL)':0^NIBT@KM^]&GW9[G54'E,'$4 ME06$M*U&(8`!9PUN89;H"+Y8^0Q$V1@M@NAEFP$JNQQ7+1(&4C9'Z]!=@$*J`<:Q M3H89C#JIJQ.TM"_+.,H[E,P;H9CI9!EH)4-JG<9RI**9K;\+,"$Z?>LA8R7J^ M+FK#$A7:3W6Z3\K:HVO*$E8(E),KI$3ZHP^!H4GJK.'80$X*I=,'$WFQ)4RB< M1<9RR&;`R0;(QEQ!FA`!Y#9;XXZ!+54J MG%K+NRA[8$6`!\2)/K>(QZ:LMJK!KG=`':Z<@;I(CG8)2UI*13_$!-/!0WG<2 MH.8JPX!\6-)!GVD9$2L!J]_!8W-[2\!8:27V>LBT)%;2S/G+.$R:&`-,,E%:O MCU.*C;=$JI9GM7!\'I*I`C^"`AL*M\^IN'3;N-C)&]M9*R`8P7#V(Y:JP?;,- M,UOJMRR&`BA09^L)9XOA6%HGP;TGT,6BR`K=$S%%?S85//C'8B';?S.X@38XR M8!0H'P