Re: PPC Tool Box

[bill@cambridge.apple.com (Bill St. Clair)]

>Has anyone spent any time bringing the PPC Tool Box routines up to a more
>reasonable lisp abstraction?  Help is appreciated.

I did a few of them. Enough to allow me to type <control><shift><E> to
select Eudora (my mailer) and <control><option><command> to make
bring MCL to the front. Here 'tis (BinHexed to keep evil mailers from
inserting newlines)...

-----
Bill St. Clair
bill@cambridge.apple.com

(This file must be converted with BinHex 4.0)

:$R"bEf0PFh0PFbjXDA0`!&4&@&4$3d`b!3!!!")4!!!"ZGfT1b"`FQpMCA0cCA-
ZE'PcF!dl$6XJ4@j[G@GS)("bEf0PFh-JFh4eCQBJG'mJFf9XC@0d)%&`F'aP6'P
ZDb"KEQ3JCf9d)'*KBfXJGfPdD#"dD'8JDf9jBQpKFQ30$5KTELe`B@0VB@GP)$T
MBf`T$3dSC'9QE@&MFQmJGfPdD#e`FQpMCA0c5@jQEe*PBb!SFhPY)#CLEf4j)'*
[C(NT$5!J+'aPG#!S+'jKE@8J+'GPER0jE5NT$5!J)#!J)#!J+'CcFh"PBb!SCf9
ZFhPY+5NT$5!J)#"J+(*XCA3J+#JXFhPY)$T3FQpMCA0c5@jQEe*PBbN0)#!J)#!
J)#!J)#!J+#aZB@eP)#KcG(*TEQFJ-c)T+3dJ)#!J)#!J)#!J)#!S,'Cc8h"PBb!
k4P06F'9M+5N0)#!J)#!J)#KcCA4Q)#K`FQ9Q)#acH@dJF(*[Bf9cFdPZCQp5C@-
ZF(*[Bf9cFdPZCQp-C@jRG'JT)#KbC@0[FQ3YE'9ZCh4S)$T`FQpMCA0c5@jQEe*
PBbN0)#!J)#!J)#!J)#!J)#K`FQ9Q)#acH@dJF(*[Bf9cFdPZCQp5C@-ZF(*[Bf9
cFdjKE@8T)#aZB@eP$5!J)#!J)#!J)#!J)#!SF(*PCL!XFhPY)("bEf0PFh0*EQC
[8Q9M,R"bEf0PFh0"F("6F'9M+5!XCR06F'9M+3dJ)#!J)#!J,%"LEf4j+5NT)#!
0$5KNC@CeEL"XBA9ZBfJYBA"`E'PMBA4TEfiJ+'CTE'9ZB@eP+3dJ)#KbE'9d)#J
SCR0cF'9M)$T'8e0`C@-T+3dJ)#!J+(*XCA3J+#K`BL!kE'&eEQ0S8'&bB@e#E'p
MDe*PB`dJ)#!J)#!J)#!J)#!J)#!kE'&eEQ0S3Qa[BfY*4#!M*'9iG'9ZC'9N3Qa
[BfX0)#!J)#!J)#!J)#!J)#!J1QaKG@jMD%933NaPEQGdD#!M*'9iG'9ZC'9N3Qa
[BfY-C@i0)#!J)#!J)#!J)#!J)#!J1QaKG@jMD%0[ER4bEfa'E'&RFb!S+b!M*'a
KG@jMD%0[ER4TER9P)#-NE'&eEQ0S6Qp'D@aP4QaKCh-T$5!J)#!J)#!J)#!J)#!
J)$TXBA9ZBfK"F("6F'9M)'CcFh"PB`dJ)#!J)#!J)#!J)#!J)#!kE'&eEQ0S3A"
`8'&bB@ePG'9bFb!S*@jeE'`YF(4b+5NT$5!J)#!J)#KhDA4S,A"cG(*c)#JSEQ&
YC5!SE@&M,@jKE@9cG(*TEQFJ+("bEf*P,@CTE'8JCQPXC@jKE@8T+5NT$5!J)#!
J)#!J+#0I4P00B@YP4P06F'9M)$!J-#"ZB@eP)'CcFh"PBbNT$5!J)#!J)#KhD'9
Z)#KPF@`J-#!S)ep-BA9ZBfK"F("XD@0KG'P[EL"`BLNT$5!J)#!J)#!JCQPXC@j
KE@8T+5NT$3dl)%GTGQ9Z)'%JCQpeFLeMD'&bB@0dCA)JBh*PBA4[FL"MEf4P,#"
QD@jNFb"dD'8JE@pcG#"bC@0PER3JBA"`E'PMBA4TEfiZ$6XJ8f9KFQ0SCA-JG'K
P)'e[G@jdC@3JC'9fD@0PFb"TEL"dD'8JEh*NCA)JE@peER4PC#!SFf&YC5"KFb"
dD'8J4QPZC'9b2bN01b"eER4TE#"TG#"QD@jNFb"[EQ8Z$5KNC@CeEL"RCA3YBh*
PBA4[FLe`BA4S)#KMFQ9KG'pb+3dJ)#KXCA3J+#KNCACc)#KNDA*PBh4[FRNJ)LS
k)LNT+3dJ)#!J+'4[E'PcG#!SGR*PCQjeE5!SFfpbG#!SE@&`Bf&b)#GfEfaeE@8
YER9YBQ9b)'4PGR-T)#-R2LNT$5!J)#!J)#KbE'9d)#JSF')J1N488%*5C@-0)#!
J)#!J)#!J)#!J)#!J)#!kD@p1B@eP8(4b)#JPER9XE#e`G()T$5!J)#!J)#!J)#!
J)#!J)#!J1QP[9P*PCQjeE5"fFQ9QER9Y+3dJ)#!J)#!J)#!J)#!J+'CcFh"PBb!
kCR0cF'9M+5N0)#!J)#!J)#!SGfKPEL!SCA&X)$!J+#0I8%*%9%GPG&"KG'JJF')
T+3dJ)#!J)#!J)#!J+(0PG'BJ+(*bC@BJF')J1N488%*5C@-ZD@p1B@eP8(4b+3d
J)#!J)#!J)#!J)#!J)#!J+#9TEQ-YF(4b)'CcFh"PBb!SCf9d,@CTC@aN,@pQCR0
PG#!kCR0cF'9M,QjKE@8T+3dJ)#!J)#!J)#!J)#!J)#!J+("bC@BJF')J1N488%*
5C@-ZD@p*EQ4PH#NJ-!dJ)#!J)#!J)#!J)#!J)#!J+("bC@BJF')J1N488%*5C@-
ZD@p'D@aP3h*PBA4[FLNJBh*PBA4[FLN0)#!J)#!J)#!J)#KhD'9Z)#KPF@`J-#!
S)ep33N484f9d39"36#"`BLNT$5!J)#!J)#!J)#!J)#KcCA4Q)#K`FQ9Q)'CcFh"
PBb!kCR0cF'9M,RC5C@CZG@dT)(CbC@CZG@d0)#!J)#!J)#!J)#!J)#!J)#!J+("
bC@BJCR0cF'9M)$TQFh0`C@-ZF'&b583T)#K`FQ9Q)("L)$T%9&"#8Q9M,QP[39"
36&"KFNP%+5N0)#!J)#!J)#!J)#!J+(*PG(9bEL!S*A"KG'JYCR*[E5eQFh0`C@-
JCR0cF'9M+5NT+5NT+5N0)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)!d
SC'9QG@iJE'&eEQ0S,@0bC@&dEh)J+'0bC@&dEh)T$5!J+'aPG#!S+'CTE'8J+'G
PG#eMFQ9KG'pb,A"KG'JJBh*PBA4[FLNT+3dJ)#!J+(GSC@iJCQPXC3dJ)#!J)#!
SE'&eEQ0S,@&`F'aTBf&dD@pZ)'CTE'8T+5NT$3dl)%CbEfdJ58dJ9NNJF#iJ-MN
Y-6%0+'4PCR9Z)'CTEQ3YF(*[Bf9cFb!SFfPREQ&dGA*P)#C[F(4TEfjKE#"`Ffi
T$5!J+(9ZE'9cFb"`FfiJ+(0PG(%JF(0Z)#!SE@&VC5ebC@0[FQ3J1R"bEf0PFh0
6CA*TB@a1G@eLCA)T+5N0)#!SGfPdD#e`FQpMCA0c5@jQEe*PBb"TEQC[8Q9M$5!
J)#!SFf9dCL!SF(*PCL"`FfiJ1R"bEf0PFh06CA*TB@a1G@eLCA)ZD'PRD%a[EQG
2CP"66LNJ-!dJ)#!J)#!J)#!J+("bC@BJF(0Z)$T`FQpMCA0c8f9bD@&X6R9YBQ9
b,Qa[Gda[EQG2CP"66LNJ-#N0)#!J)#KXEfp`$5!J)#!J)#KeEQaPFh-J+'9aE#!
S)ep(CA41CAKd8(*[Bf9cFb"`FfiT)#-NEQp&FR)T)#KbCA4eFQiJEQPX+5N0)#!
J)#!J+(GSC@iJ+'&ZC#!SCA&X)#JMAfGPG&"bEf0PFh0*EQC[FQeKG'P[EL"`Ffi
JD@jQEe*PBbNJ)b4ZEd9bFLN0)#!J)#!J)#!J)#!J)#!J)#!S*@9aG@&X,@pcG(P
`C5"TEQC[8Q9M)$T"8&"-$5!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J+'GPG#eQD@9XC#e[CQCcCA3J1R"bEf0PFh0*EQC[8Q9M,R"bEf0PFh08HA"P+5N
0)#!J)#!J)#!J)#!J)#!J)#!S*@9aG@&X,@pcG(P`C5"TEQC[8Q9M)(0TCfjKG(9
bC3dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#KRCA3YCQPPE'3YEfC
QFf9d)$T`FQpMCA0c5@jQEe*PBbj`FQpMCA0c8fPREQ&dGA*P+5NT$5!J)#!J)#!
J+(*PG(9bEL"`FfiT+5NT+3dJ)#!J)#!J)#!J)#!J)#!J)!dSC'9QG@iJFf9XC@0
d,A"bEf0PFh-J+'0bC@&dEh)J*Qp`G'P[EQ&X)#KXBA9ZBfJr)(3T+3dJ)#KbE'9
d)#JSF(0Z)$T`FQpMCA0c8f9bD@&X6R9YBQ9b+5N0)#!J)#KTCL!SCQPZC#e`FQp
MCA0c)'0bC@&dEh)JF(0Z+3dJ)#!J)#!S)epcCA4'FQpZG&"bEf0PFh-JF(0Z+3d
J)#!J)#!SG@jXCA0c)#KKEQ3JE'&eEQ0S2b!SE'&eEQ0S,@0bC@&dEh)JBh*PBA4
[FLNT$5!J)#!J)#!J+'9N,@*PCA!T+5NT+3d0+'4PCR9Z)(0PE'9MG#eKF("XC@a
TEQXJ+#C[F(4TEfjKE#"TCfj[FQ8T$5!J+'4PBfaKFQ8J+'PREQpbC5"TCfj[FQ8
T+3dJ)#KcC@aPBh3YF(*[Bf9cFb!k4d926#NT$3dSC'9Q,@CbC@3YBfpYE@&ZC#!
S1Q0[ER4bEf`J1R0SD@Cd)#0F35NJFf9XC@0d,@&`F'aPE'PZDbN0$5KNC@CeEL"
cC@aPBh3YE@&MH#!S*Qp`G'P[EQ&X)'PREQpbC5N0)#!SC'9ME'&bC5!SD@GZEh*
P)'PREQpbC5NT$5!J+(0PE'9MG#e`FQpMCA0c)$Tm6@&M@(`T+3dSC'9Q,@CbC@3
YBfpYE@&ZC#!S1Q0[ER4bEf`J1R0SD@Cd)#0F@#NJFf9XC@0d,@eKBhJT$3dSC'9
QG@iJFf9XC@0d,A4PBfKYB@PX)#JQEh"dD@pZB@`JD@GZEh*P+3dJ)#KNC@0XBA*
P)#KTCfj[FQ8JD@GZEh*P+5N0)#!SFf9XC@0d,A"bEf0PFh-J1Ne*9%dT+3dSC'9
Q,@CbC@3YBfpYE@&ZC#!S1Q0[ER4bEf`J1R0SD@Cd)#0F9#NJFf9XC@0d,A4PBfK
YB@PX+3d0+'4PCR9Z)(0PE'9MG#e&G@4[FQ%J+#C[F(4TEfjKE#"TCfj[FQ8T$5!
J+'4PBfaKFQ8J+'PREQpbC5"TCfj[FQ8T+3dJ)#KcC@aPBh3YF(*[Bf9cFb!kI%0
66fem+5N0+'4PCLeQFQ9N,@0[E@eKEQ3J+$TMEfjdFQpX)$TcD'PQG#!MA%8T)(0
PE'9MG#ePG@4[FQ%T$3dSC'9QG@iJFf9XC@0d,@eKBh4PFQeTEQ&X)#JQEh"dD@p
ZB@`JD@GZEh*P+3dJ)#KNC@0XBA*P)#KTCfj[FQ8JD@GZEh*P+5N0)#!SFf9XC@0
d,A"bEf0PFh-J1Ra8CA*YI#NT$5KNC@BYCR*PC#eMEfeYB@jN)#JkBfpZG(*[E#!
kFfKTCR3J)ea0+5"cC@aPBh3YE@&MG'9bE@PZB@`T$3dSC'9QG@iJFf9XC@0d,AT
dCA*Y)#JQEh"dD@pZB@`JD@GZEh*P+3dJ)#KNC@0XBA*P)#KTCfj[FQ8JD@GZEh*
P+5N0)#!SFf9XC@0d,A"bEf0PFh-J1Pak9&*0+5N0+'4PCLeQFQ9N,@0[E@eKEQ3
J+$TMEfjdFQpX)$TcD'PQG#!MA&ST)(0PE'9MG#ekG'9bE5N0$5KNC@CeEL"cC@a
PBh3YEA0hEh*N)#JQEh"dD@pZB@`JD@GZEh*P+3dJ)#KNC@0XBA*P)#KTCfj[FQ8
JD@GZEh*P+5N0)#!SFf9XC@0d,A"bEf0PFh-J1Ne69d3T+3dSC'9Q,@CbC@3YBfp
YE@&ZC#!S1Q0[ER4bEf`J1R0SD@Cd)#0F9bNJFf9XC@0d,@ecGfpbC#N0$5KNC@C
eEL"cC@aPBh3YE@0X)#JT$5!J+(*XCA3J+#K`FfiJ1R"bEf0PFh06CA*TB@a1G@e
LCA)T+3dJ)#!J+#0ICf9d3h9bFQ9ZG&"bEf0PFh-JF(0Z+3dJ)#!J+#0IFf9d4R*
[ER43FQpMCA0c)("cELNT+3d0+'4PCR9Z)(0PE'9MG#eYBf`YCACPER4SEfpV)#J
QFQ9cG#"TCfj[FQ8T$5!J+'4PBfaKFQ8J+'PREQpbC5"TCfj[FQ8T+3dJ)#KeEQa
PFh-J+QC[FQ9RFQpeEQ3U$5!J)#!SE'9d)#JS+Q0eFR*PER3YCACPER3U)'jTE#N
T$5!J)#!J)#KYB@YeEQ*[G@jN)#FUBh9bFQ9ZG#ePGQ9ZG#ST$5!J)#!J)#KhD'9
Z)#KKEQ3J+'0[ER4bEf`YDf9j,A!T)#K[F(4TEfiYDf9j,A!T)#KMEfeYB@jN,@Y
PH5e`+5N0)#!J)#!J)#!SFf9XC@0d,@eME#NT+5N0)#"ZD@`T$3dSF(9cD#!RFf9
XC@0d,@eME#ePGQ9ZG'K[EfXJ+Q9fC@jdD'p[DbST$3dSF(*[GQPNC5!kF(*[Bf9
cFf9c+3h+d`!!!3!!!!&R!!!!C`!!!&)!!##G(9*P,5"03d`JB@jN)'C[FQ9TCfi
JDf9jBQpKFJj`FQpMCA0cCA-ZE'PcF(!#!!!!9%9B9%0$6$)"!2rr!!"849K83d0
--J%!rrrrr`!!!!!!!!!!!!!!!!!!!!!!!+5pb03!!")4!!!"Z3!#!!!!!!!!!!!
@b3!"!!!!!!!!!!!!!!!!)`!!!##G(9*P,5"03d`JB@jN)'C[FQ9TCfiJDf9jBQp
KFQ4c!J!!!&4&@&4(48p-!3$rrrrr!!!!!#BA!!!!!!M`!!!-!!!!!!!$G!!!"J#
NDpRFT'[Ch!!!!!!!!!!!!!!!!!!!!!!!!!!+!!%!"!N!!3!!!!!!!%J!#8e[EQ&
ME`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!#!!X!!B"b3)B!#`!"J(*!KJ
!!!!!!!!!!!!!!!!!!!!!!3!!!!!*!!%'6@pZB@0[!!!"!!!!!@F!!!"R!!!!8J$
Hkp`)&J!!!"`!8J!"4P*&4!!"!"*08&05!!!!+J!#rrm!!!!!!!!!!!!$rrm!!!"
D!!!!!!2Yrrm!!!!1!0m5,#,k: