fasl-concatenate.lisp

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

The attached binhexed file defines a function which can
be used to concatenate multiple fasl files into a single
large fasl file. Some people have requested this as an
aid to distributing their large systems.

The code works in MCL 2.0b1p3 (MCL 2.0b1 as distributed by APDA
plus patches 1-3 available by anonymous FTP from cambridge.apple.com
in the directory "/pub/MCL2/patches"), and will continue to
work in MCL final.

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

(This file must be converted with BinHex 4.0)

:&@CKFf`YBfpZBf&dC@jKG'8ZE'PcF!"849K83d0--J!!!!!8a`!!!ENdNMXl1b"
QBA0X,@0[EQ0KG'9ZBA4P,QaTFh!01cXl)%0[F(PbD@GSG#!a16Nb,#""F("XC5"
$Efe`GA4PFL`J5@jM$6Xl1`dl1cXJ3fpZBf&dC@jKG'8JCQ&cE#"QD@aPFbi0$6X
l1b"'Eh*YBA3JEfBJB5"QBA0X)'CTE'8JBA-JCAK`C@0dC@3JBRNJG'KP)'CKFfa
[B@4PFLi01cXl$6Xl1b!MH%C'-$!J)#!J)#!J)#!b)'*jG'9c)#dJ4QPXC5"fCA*
cD@pZ$6Xl1b"#E'pMDb"$Eh9ZG#!J)#!b)'*jG'9c)#dJ6R9YBQ9b)'pQ)'*XEf0
VFb"TEL"dD'8JCQPXC3dl1cXJB@4NFPX`A5!J)#!J)#!J0#"LHA4PFb!Y)'&NC(*
PFh-JEfBJ-(4S)'*XEf0V$6Xl1b"XC@jRG'KE-&dJ)#!J)#!d)'*jG'9c)#dJE'9
ZCh4S)'pQ)$"dD#"LE'pMD`dl1cXJB@4NFPXaA5!J)#!J)#!J0#"LHA4PFb!Y)'&
NC(*PFh-JEfBJ-A0d)'*XEf0V$6Xl1b"XC@jRG'KE-9dJ)#!J)#!d)'*jG'9c)#d
JE'9ZCh4S)'pQ)$&cG#"LE'pMD`dl1cXJ,LiZ$6Xl1b"KC'4b@fiY-9dJ)#!J)#!
d)'*jG'9c$6Xl1b"XC@jRG'KEELdaA5!J)#!d)'*jG'9c$6Xl1b"XC@jRG'KE-&d
J+b"XC@jRG'KE-9dJ+b!Z,LiJ+b"XC@jRG'JJ@fiY-9dJBRPdCA-JEfBJC'&dB3d
0+'PZ,A"KBfYKCf8J1Q0ME#N0$5KPH("[FR3J*bKQBA0X,@0[EQ0KG'9ZBA4P+5N
0$5KNC@CMEfjcG'&ZG#!NCQ&cE#eTC#!MH'CQ-$!T)#!J)#!J)#!J)$XJCQ&cE#"
QD@aP)'PN$3dl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cX
l1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl1cXl$6Xl$6Xl)#KQBA0X,@0[EQ0
KG'9ZBA4P)'peG#eQD@aP)'CKFf`YCQPXCA-J*QYPH5!kD@BYCAKTFh4c+3dl1`d
l1b"[GA3YCQPXC5!J)#!JEQ&YC5"[CL"QD@aP)'PZ)(GSD@0S)(4[)(0dEh*P)(4
SC5"MEfjMBA4PEQ&dD@pZ$6Xl)'CKFf`YCQPXCA-J)#"XDA0d)'pQ)'jKE@9c)'p
Q)'CKFf`JCQPXCA-JG'mJBfpZBf&dC@jKG'801cXJD@BYCAKTFh4c)#!J)'&c)'C
[FL"28%91,L"%C@CKG@adFb"dEb!kCA*bEh)01cX01cXJCR9ZBh4TEfiJFQ9cG@a
d1L"`BA4SEQ&YC5"dEb"dD'8JEh9dF(9d)'CTE'8Z$6Xl)%&XE#"QD@aP)(4jF'9
c)'4PCQ&eE(3JG'mJ)NC"8d`L$6Xl)%Pd)(G[FQYc)(4[)(9cC5"dD'8JEh9dF(9
d)'pQ)'pZC5"TERC[Bf&dD@pZ)'pQ)'CKFf`YBfpZBf&dC@jKG'801cXJBA-JB@i
JD@j`GA3JEfBJB@j[G'KPFL"TERC[Bf&dD@pZ,Jdl1`dSC'9QG@iJCQ&cE#eMEfj
MBA4PEQ&dC5!SEh9d,@CTE'8JCQ&cE#eQD@aPFb!QDf9j)#KTCLePH'PcG(-J1Q9
bFQpb+5N0)#!SE'9d)#JSBfpeER3J-#N0)#!J)#!J)#!SBh*PBA4PC$mJEQPX+3d
J)#!J)#!J)#KQD@jTFfKPC$mJEQPX+5N0)#!J)#KNC@0XBA*P)#KQDAKZG@dJBfp
eER3T+3dJ)#!J+'4[E'PcG#!SCQPXC5"QBA0X,@CTE'9c+3dJ)#!J)#!SFf9dF5"
QD@aP)#KYCA*RC5e`BA4SEQ&YCA-JCQPXC5!L,QCKFf`L+5N0)#!J)#!J+(9ZE'9
cFb!SCA%J+'eKBbeQD@aP,A4jF'8JCQPXC5NJ1QCKFf`T$5!J)#!J)#!J+'9bFQp
b)#*1Eh3JB5"QBA0X)'CTE'8k)(jc)L"QD@aP+5N0)#!J)#!J+(GTG'JYEh"PELe
QD@aP)#KcG(*PB@dJCQPXC5N0)#!J)#!J)#!SEA9XG'P`E'8YGQ&XG@8YBQPZC#!
SFL"bB5NJ+(0dFQ9KE5ebC@&NCA)JFh4bC@&Y+3dJ)#!J)#!J)#!J+(9ZE'9cFb!
SCA&X)#4QBA0X,@PN)#KbC@&NCA)YFQ9KC#ehEh*N)()JFQ%T+3dJ)#!J)#!J)#!
J)#!SCA*bEh)J)N*KC#"QBA0X)'CTE'8J583JD@iJIR-L)'CTE'8T+3dJ)#!J)#!
J)#!J+'PZBfBJBfpeER3J+(*PB@4PFLebC@&N,AG[FQ3JFL"bB5NT+5NT$5!J)#!
SG@jhD@jN,A"bEh4PBh30)#!J)#!J+(GTG'JYEh"PELeQD@aP)#KcG(*PB@dJ+(0
PG(%JEh9d,@CTE'8J+'ePFQGP,A"KG'KZB@ePFb"[GA3YCQPXC5!L,QCKFf`L+5N
0)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J1Q4TFQ9MG'P[EL!kEh9dF(9
d$5!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$TTCLeNEf9c,@j[G#ePH'P
cG#!kBh*PBA4P$5!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$TTCLePH'P
cG(-JD@BYCAKTFh4c+3dJ)#!J)#!J)#KcCA3YE@&M,@CTE'8YBh*PBA4[FL"[GA3
YCQPXC5!kBf0X-LN0)#!J)#!J)#!SFf9d,@eKBbeQD@aP,A4jF'8JEh9d,@CTE'8
J1QCKFf`T$5!J)#!J)#!J+(0PG(%JBh*PBA4PC$mJG#N0)#!J)#!J)#!SEA9XG'P
`E'8YGQ&XG@8YBQPZC#!SGb"hB5NJ+(0dFQ9KE5ehFQPdCA)JFh4bC@&Y+3dJ)#!
J)#!J)#!J+'aPG#!S+'&NC()YB@4NFQ9cFb!d+3dJ)#!J)#!J)#!J)#!J)#!J+'4
KG'%YB@4NFQ9cFb!S+b!d)#JU)'0[G@jd)$JT+5NT$5!J)#!J)#!J)#!J)#KhFQP
dCA)YGh*TG'8YGfpbC#!`)(FJGf%T)#!J)#!J)#!J1b!JGfPXE#"LC5!NCQ&cE#e
TC!dJ)#!J)#!J)#!J)#!SGh*TG'9b,AGbDA4P,AG[FQ3JBfpeER3JGb"hB5N0)#!
J)#!J)#!J)#!J+'4[G'PYCA-J+'NJ+#SJ-L"MEh9ZG#NT$5!J)#!J)#!J)#!J)#!
J+(GbDA4PFLehFQPdC5eXEfjR)$!JGb"hB5NT)#!J)#!J)$XJCQpb)'&NC(*PFh0
PFbpXC@jRG'Kc$5!J)#!J)#!J)#!J)#KNEfaTFh3J+'CTE'8JCQ&cE#eQD@aPFbN
0)#!J)#!J)#!J)#!J)#!SGfPdD#e[F'9Z,@CTE'8J+'PZ,A0dFQ9KE5!SE@9bCf8
YF'&dD'jKE@9c)'CTE'8J)LjQBA0X)LNT$5!J)#!J)#!J)#!J)#!J)#!SEA9XG'P
`E'8YGQ&XG@8YBQPZC#!SFL"bB5NJ+(0dFQ9KE5ebC@&NCA)JD@iYFh4bC@&Y+3d
J)#!J)#!J)#!J)#!J)#!J)#!SFQ9KC'9b,A*PB@3YGfpbC#"b)(*K+5!J)#!l)(0
VDA!J5830)#!J)#!J)#!J)#!J)#!J)#!J+'aPG#SJ+#KQBA0X,@0[G@jd)#KbC@&
NCA)YFQ9KC#ehEh*N)()JFQ%T+3dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J+'&
NC(*c)#KYB@YP,@&bFQ&j)'CKFf`YBfpeER3T+3dJ)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J+(0THQ9c)#KYB@YP,@&bFQ&j)'CKFf`YBfpeER3T+3dJ)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!JB@4NFM!T$5!J)#!J)#!J)#!J)#!J)#!J)#!J+'4PBfa
KFQ8J+'CTH'jeE5"QBA0X,@0[G@jd+3dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#KNH@jKE@PM,@9iG'9ZG#"KC'4bFb"cDATPFbNT$5!J)#!J)#!J)#!J)#!
J)#!J)#!J+'4[G'PYCA-J+'NJCQ&cE#eMEh9ZG#N0)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#KcCA4Q)#KcGR*PCL"KC'4bFb"T+5!SFQ9KC'9b,A*PB@3YE'pZCb"b)(*
K+3dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J+(0fFQ9Q)(0THQ9c)'NT)#K
bC@&NCA)YFQ9KC#eXEfjR)()JFQ%T+5N0)#!J)#!J)#!J)#!J)#!J)#!J)#!SFf9
dF5"KC'4b-#!SFhCbC@BJB@4NFR-J-#NT$5!J)#!J)#!J)#!J)#!J)#!J)#!J+'C
TE'8YF'pcDA4TEfiJFh4bC@&Y)'&NC()YB@4NFQ9cFbN0)#!J)#!J)#!J)#!J)#!
J)#!J)#!SC'pdD@ePFb!SD5"QBA0X,@0[G@jd+3dJ)#!J)#!J)#!J)#!J)#!J)#!
J)#!J+(GbDA4PFLehFQPdC5eXEfjR$5!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J+#X
JC'&dB5eKC'4bCA0c)#JY)#KcGR*PCL"KC'4bFb"T+5"KC'4b-#NT$5!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!JGb"hB5N0)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#KhFQP
dCA)YGh*TG'8YE'pZCb!SFhCbC@BJFfPkCA-JD5NJGb"hB5N0)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#KTEQ0Q)'&NC()YB@4NFQ9cFb!i+5N0)#!J)#!J)#!J)#!J)#!
J)#!J)#!SCQPXC5e`Eh0TG'P[EL"cG(*PB@dJC'&dB5eKC'4bCA0c+3dJ)#!J)#!
J)#!J)#!J)#!J)#!J)#KNEh4TE@9c)#KT)'CKFf`YBfpeER3T$5!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!SCQPXC5e`Eh0TG'P[EL"TELecG(*PB@dJ+(0fFQ9Q)'&NC(*
c)'NT+3dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J+'aPG#!S+'CKFf`YE'9ZCh4S)#K
cGR*PCL"cDATPFb"T+5NT$5!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#KNEh4TE@9
c)#KU)'CKFf`YE'9ZCh4S+3dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#KQG@j
MB@aX)(FJGf%J+'CeEQ0KE'`JFL"bB5NT+3dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!SD@jMCL"NBA4K,@&NC(*PFh-JCQ&cE#eXC@jRG'JT+5NT+5NT$5!J)#!J)#!
J)#!J)#KQD@aP,@aPEQGdD#"cG(*PB@dJC'&dB5eKC'4bCA0c+3dJ)#!J)#!J)#!
J)#!SCQPXC5e`Eh0TG'P[EL"cG(*PB@dJ-#N0)#!J)#!J)#!J)#!J+(GbDA4PFLe
hFQPdC5ehEh*N)#4QBA0X,@PN)(FJGf%T$5!J)#!J)#!J)#!J)#KcCA4a)'CTEQP
cD'9N2b"d+5NT+3dJ)#!J)#!SGfKPEL!SB@jN)'0bC@&dC@3r)#KZEh3JCQPZDA0
SC@3r+5N0)#!J)#!J)#!SC'9XCA4P,@CTE'8JEh9d,@CTE'8T+5NT$5!JEh9d,@C
TE'8T$3d0+'4PCR9Z)(GbDA4PFLehFQPdC5eLHA4P)#KLHA4P)(GbDA4PFL"hFQP
dCA)YBA*R+3dJ)#KNC@0XBA*P)#KQDAKZG@dJBRPdC5NT$5!J+'CeEQ0KE'`JGh*
TG'9b)(GbDA4PFLeKFQFJ+#9MEf4P,@0SBA)J+'a[Cf&ZC#!MH'CQ)'*jG'8T+5N
T$3dSC'9QG@iJGh*TG'9b,AGbDA4P,AG[FQ3J+(G[FQ3JGh*TG'9b)(GbDA4PFLe
KFQFT$5!J+'4PBfaKFQ8J+'CTH'jeE5"hEh*N+5N0)#!SGh*TG'9b,AGbDA4P,@*
jG'8J+(4SC5"QDAKZG@dJ+'&cD#"hEh*N)#di+5NJGh*TG'9b)(GbDA4PFLeKFQF
T$5!J+(GbDA4PFLehFQPdC5eLHA4P)#KdD'8JCQPiER9Y)#KXEfGKEQ3J)hKQCL"
hEh*N+5NJGh*TG'9b)(GbDA4PFLeKFQFT+3d0+'4PCR9Z)(GbDA4PFLehFQPdC5e
XEfjR)#KXEfjR)(GbDA4PFL"hFQPdCA)YBA*R+3dJ)#KhFQPdCA)YGh*TG'8YGfp
bC#!SBA0S)'a[EQFJ,6%f+5"hFQPdCA)JGh*TG'9b,@&bCbN0)#!SGh*TG'9b,AG
bDA4P,AG[FQ3J+'a[Cf&ZC#!MH'CQCQBJE'pZCbNJGh*TG'9b)(GbDA4PFLeKFQF
T+3d0+'4PCR9Z)(*PB@4PFLebC@&N,@*jG'8J+(*PB@4PFL"bC@&NCA)YBA*R+3d
J)#KMD'&b,@0[C'8J+(4SC5"MD'&bB@0dCA)J+'CeEQ0KE'`JFQ9KC'9b)(*PB@4
PFLeKFQFT+5NT$3dSC'9QG@iJFQ9KC'9b,A*PB@3YGfpbC#!SFQ9KC'9b)(*PB@4
PFLeKFQFT$5!J+(4SC5"QDAKZG@d0)#!J)#!J)#KXEfGTEh)J+(4SC5"QDAKZG@d
J$5!J)#!J)#!J)#!J)#!J)#!J)#!J+'&cD#!SG'KP)'CTH'jeE5!SFQ9KC'9b,A*
PB@3YBRPdC5"bC@&NCA)JFQ9KC'9b,@&bCbNT$5!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!i+5N0)#!J)#!J)#!J)#!J)#!J+(4SC5"QDAKZG@dJ+(*PB@4PFLebC@&
N,@*jG'8JFQ9KC'9b)(*PB@4PFLeKFQFT+5NT+3d0+'4PCR9Z)(*PB@4PFLebC@&
N,@a[EQFJ+(*PB@4PFL"bC@&NCA)YBA*R+3dJ)#KXEfGTEh)J+'&cD#!SFQ9KC'9
b,A*PB@3YGfpbC#"bC@&NCA)JFQ9KC'9b,@&bCbNJ-6BT$5!J)#!J)#!J)#!SFQ9
KC'9b,A*PB@3YGfpbC#"bC@&NCA)JFQ9KC'9b,@&bCbNT+CjA!!!"!!!!!@F!!!"
R!!!!8K49J)!"!3lijJ(["ii"!4"fE!&#%&F5rm"1V4-#!NU!&@CKFf`YBfpZBf&
dC@jKG'8ZE'PcF!)!!!"849K83d-!!&4&@&4$3d`b!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!TLVhJ`!!&-F!!!'j"5aR!@!@f@bQ2!%&('G3%J)D5S!"CRjA1K)##PL
2!@"b8GG2AhqhAa+`U!!F!@B8+"Bb2!%!`N"`!$!"5S$`%Lm,,`a3%Jr58)m"B$i
m!33kHPYR!@F`2PTEQ6Nr3!&J&Q!r!8)UE40J#Lm,,`a34M8"rl3fFPbEF(&3!3N
kRDE9*3!!!!S!!3!%#3!"!!!!!!!!#3!!"Ne[EQ&ME`!!!%J!#8e[EQ&ME`!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!B!#!!X!!B$0!)P!#`!"J-d!L8!!!!!!!!
)5`!!#%X!!!%e!3!!!!%!!!!"C`!!!'F!!!"5!3b$G!cF!!!!(!"5!!&'8N9%!!%
!%Ne38e)!!!!U!!,rr`!!!!!!!!!!!!2rr`!!!!i!!!!!!qhrr`!!!"X"$8RXBp3
!: