[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Speeding up Garnet-2.2



People are saying that Garnet in CLISP is "unbearably slow". Can anyone
please tell me whether applying the following set of patches and setting
Garnet-Garnet-Debug to NIL in garnet/src/garnet-loader.lisp provides a
noticeable speedup?

begin 644 garnet-diffs.z
M'XL( %SH&BX  ^T<VW+;N/79^0K$[C2432H2)=F2LMW9).NDZ7JSF21MIS/[
ML+ (2:PI4DN0EM7IQ_>< X $*=*7.'&R,]4XB@7AW*\  1\>'C*9SI[F61C)
MIZF(^4IX\R3U9E$HU]TD#1=[_Q0!^V66L?Z ^;VI?S+U!ZP_F0P>>9YW#?#>
MJS1D?\LCQOK,'TQ'_6E_A'##1X?5%WYFO@OHZ1-C!_B/O4N3RS  VN=;]B+-
MXX3]E8?GD6#?+>G_'U;<EWYWQ;.E@+?PHIO'H7?!TTBF^5)T _$]X7H,N-X3
M;Y+!5#8/(_PM82_/WGQXQV9)?"GB+$QB.:6YW4BN&4C!4 @FDSR="9=ULZN,
M1E>AG(DHXK%(<D CKC*@ C_X7<#"F'497RQ2L>#!0F22S08^"\1YOH#W52*9
M&5\(F>6I8(LPR@ L$RF[2-FOP$+QBO@Z#'BZ9<F:1VPM&2D:.<[2\-S\_W21
M\O72$T&8)34$9L8JC[+06_ T%EDQN$Z3U1K)FH&K]0KD"!)X<V8!^U.@I9JC
M5(==5 >9'$S59_"+]S5-U6BF;\H2=3W?J-M#'8O*3EZ4\$"DW>OB<%B-PUW 
MO0\\4S'HLUYOVCN>]@;M,3@:NL>](@C_"V]_N<<+P%\N>;P0+$H6&%IL\M3W
MGTX&51?QV/, 7>?5V>E'%6 B70AO#;ZB' $41.8'?&S\M#] #,_C(!4;]G,X
MNPCELL"12Y%.IZ^5&MX+'F0<2&A OQ'P991(@ Q 61'?(K%_B#2<;[T?U8CW
MDL?>"^']LA:Q")X]8O:+$]6#(ZUXL/1,2*E<]G N.+J5/$0/S<A(2L$F=+XA
M!?_T\NP/KMXF?^X/!VY_.%8>C?JG@='86 !?SCJ7RQAXGFHJ*D.4Z#MFHA39
MW";K!"(2F6@'["#HHR/V[-DS]A&RV?3U\_=O3S]Z+]Z\_0")!/.82A()I)+-
M4D#&2\UT4)W2,RH=3 1I*MG$["*, Y;,(9%X8>9M(>E)$<W9DH.RR1B0DW@4
M@=;VS\-8[K/$8'S[Y@QPAAH?)E>YE9E8/9$VM)X,20-G7 C@($)Z^.FG]QJD
MJV>]7"9@7*:<*ERM([&"[,PI/P,$QU*S6D,*1WNM^&P9Q@*& L$X2+'DE\!#
ME&PT-HN+KD&-3#<AC\(+H6O"9AG.E@K9G(,?["*#H0-/99 CR]RV,6QK'V$)
MJ9OLW?M?7IY^^'#Z 72RW21IP!8)J!$,B)JI^2(+46&A9)<BE<"OQ@=J5*4J
M7Z^3% Q*51D$8X5C=QE21:1AO-!B(@$>ARL27:.B(L5G5&5XC":E:0V1(C=A
M-ENZ  &6X^0[J9B+- 4"C3$S](?N<%!4 7#R^25/M3-ZKU6I]'[D&??>Z0Q"
M >+4L\J^+JM/]PWP67A>P*C8P K;8<]4EE &!7^<0UBI2@ZR>I_\0A08],,!
M2#0LTNY#2@1I]?/*8UJ$BQ1^/(BI-)'M'<)HVC^I=@@[<+4&80!0?GN#T!^.
M('\.C7.H'T=<\LC;H-\Z)N"Q!6$XWB&-H,[7/ 4M87-UB*G)BT2\R):';*P4
M=QM4C)7F.Y3@_<*+^.H\X!!X'W6:WG\SQ[3A,O4-$U=K"$Q):8-#DQ<G&2-0
MZA AN4 4<KFOF% U F0\'AAWN9.,I%AFA&7.GX%TQLZ38-O1W>3!D0-!J[/*
MCZ<O_OZ:.<@2^7ZGPWZKJLK]P0:&R'\-%6$%W#.Y%B!"DF<8TK3>PN8[EQ#7
M6%1DQN-,ED0QXQ(AFW1'DU54#52-:&$>2*-'5M*\62M'MN4;K'[$U,_7MGKC
M<O1DX/HG$^/I0.$,,SOH&DI6ILN;7"9Y!(L>S."8D@-&0M 'M(.<T7*',PZ)
M.$OS&16)[K[1Z.-2KCCQ0-A<'+(GSM1\4++O/R>#,EQUZG('M27'MHKJ:GI!
MR9\@D,$XB3UQ!=Q"O53<EA31P?VQ[_ICJPGZ<J)IRS^0<(UV' _<@=]KSUCX
M*[.]KC%C9=NU\,ZA"X,<V.M0)!X@.SA$'8J(H;%!Q>!,4PB:D*RXO(#>L>\!
MZ:MU!FG70@XM(Z(&R<55A@6^0*?#'V:A?OK88J#TU#]R""QP:^@>0S04Z4JZ
MK*=6QPDTA'JLB:D"#CDX+'MOFZLFZCR&Q3!VK-H5+ 9*@\UAZ<M@6#12EE!;
M4[!CC;+3/ZJSU6DT"B P.:N"0B&H8&]%D*\#G@D/=5GB, @JV%M1D(:])(ZV
M%AJ#HHZ_%4OQR>;%8&DBT6FIF[=S:(51.6.O<48AO/98[*C[=U"++?D.BENJ
MI7""&H+;.8>V_P[QJE\TQ^HL$CRUF#>+0%AIATE-?W9@U]76J(E6JJ5@-N]U
MVG6UU&5M5@B40&]'H8 22V,=93N&JDX+\-LRH&=5E63)A]A*.6LFK.FVTZI&
M6 %3YJJS6=JI$CRF!D,>FUT4O$&JAXY"5<R)#T5DTMX2WA1S]RX@WUSQ^#J%
MXUY%XUX%XY[%XOZ%XF&+Q/4%XI.+P_T+PZ<6A7L4A(<O!E^J$-RO"-RC #Q,
M\O^\B;]I-3& 5>&P?U(\(CDZ??[Z]/W-L=60!O4:%#\#\[3\XFRV!5?#Y$L)
M<A/*QL:99JG@[]V$6^]0(D\Y[2"RWW.1WTR#Y"$2_482]'1.DUG"&O!<@.B7
MH:0\'N2XO0CR!&*=+;UYF,K,()$02K@A>0-]C4JQX-_$PA.)*],$G'=;<@/.
MDZ_.15HR!! &D?D2A^^@>@.F^!H4?,V2'-:C%T*L8?T,M?<"D2Z3#:Q@H=QE
M8?% LZXR;1C@D<>!P186N_A5&0E/QE?K)M;FX971U[#@*XR#< ;HI>46@$@5
M62!#0,I)0GS*(%+E)'K+GT(BA1:A-%\270(UW$[*EKDT^P089><"M%K(T]97
MHZ(4EZ/F+E$L/&N2X]DP)GC5+O@+[)W"6/F9B -HH;;E9D2WS6>LR9\<?")8
M[$0@/5/)> 9:(7Q5.L82](R<EZ;L:K8*+.8+!%JD@B/5;,G!)M D_IY#;H$.
M#VE9,^.:8$^D0:=M[C9(#I8*@V>EM U3PI@F->E!25JDB!9+VK/0E-9G.Q/?
M)9>VVJ1:ULLDV;P:(2)5D"+G-4.8E%0%LA-5,UR1,ZJ E532#*E"N@I6AGDS
MC J6FB[L &JW916H8JH;(J%)]46(5 R-RZG!V'>'_G'Q'/RAJ^B7KJ!?LWI^
M@Y7S&ZV:WW[%O+9:?LN5\O]5$G5P785\F.IXU\IXMZKX*17QTZKA72OA7:O@
MW2O@)U:_IC7ER<FQ>S(^+@\IG8Q'[LGDQ)1'C-^['Q9@9\G&B\2EB-16'Y_A
M@9#V)[D[#^@]"D4ZY[3B%\+C:<JWS!\=Z^=VKW"'3IW1A/K$9DN.6XX 3%%-
M-/%4A,L60ATF GSBRD3E+$E3(==)C%N>A% ]>P3"Y?.\6[$9\6V29_AD<<]A
M![_^#6+EUW_AVRNF.-V#%W[S$PZ^Q;?G^/:B]O5K'/P9W][!-XV&FHS<<6]4
M&FK<.W;'_7%U6QBL]8HTPJ4,%Y!RHXA%(@-^)4NA"(#6\$%XHW")*GE.6.I9
MG3ISY&4JYC6[A!TP31*PL/IHW78X=8HI9NN(SP2Q@LHW[.B$6%'C!C==<7@+
MU2E*XD6WB5-*/S:<XA40,\>!8<CWQ;&Y(*$S40[-UI1MT&9ECWL3T.W04K;O
MNV._INP6%U'',&B++4L\K31P/@>'M%ZAGCCZ+->:E>.,_=:H;-=!#_?H])HC
M\7?X;[LZ3R(/W5QA0+%;Q/''[GA0;!QA3+\__?CW]V\_3$VT%.78Q1KV]LU9
M5TW<E4G%<I(2([B#;HFE3"#B+-TR9R%BX+'3*44SQG#U#"6JQH.:DLQ5'SI*
M6U4%ND2IP*?5*'['N4H/"G%'SX2DN>>D J2*S3>=G>7 > B6'8WL?/?9=8-'
M4>J>\@?1%A6> \_F_3%QIQ[+(-\9'7<D),W<:2PW5*+QL.^.AU8E&H\@"(\K
MEH&$$\Y#=3H#VE?.YGD4>54C-1I'9%Z[@71[30_#(/=XIK_*Y VFP\DZMHWY
MX.L]&B<-[ [7K-VLB9.!.RY/_^PIT[DE6VJP2,]:"1;?S"UH=6Q Q0A3YU"M
M2<:YW()SMY"-K <P%LJ&*)KX[L0ONH9ODN465[9L6;,9?MML-?6-Q;P5OH]U
M^ ):Z%Z<DK_FV%"< AMNA9 =5 4*>W9=<Q6-/;9COD1,T,XZ31:Q1J1J*9W/
MLS'26;W"2.NJ(@T/6-_?"A6,> 9812-%%"3*.-JJ<]$<UYRX=HLA- VH=H,V
M.?7WMDJH#=0<V4R8%L7D--N+5 ;44X';#T@%UY+0_>$)+H^IYV&PD#:LE>A4
M4JC@TR?'ZC,I<50FXD@QKQ8(-<;O% D*UOJ>1BS)T&ZE=#-:FA;252V_H^$J
MGS6-ZX^V[F_4_!](I3?Y8SWYW:*>3:">3>QZ-AE/W,ED9)\$5]5);>/HI[)*
M1X[#O9T#"K">2K=T.)^I9X9ZX\!;4X[<4TI@?\;SL_K8KTI%[@^HL1H,C&-#
MH"*]&'0-73S/\41Y3$>5P:9"2&'U3IWWIPZ?DANF$ZY3@62;$'GN%H]:39M>
MSX@6Y;)GL58EU75&L\Z/0>?'1:.K-**D+Y6G=(7Z4;_]YCAY'*$ V!TI_9>'
M1LE##")2JO6J%L%^K]]S^[U!<53G"],WYZMW2AK#:%VC)Q>5X.")HP\G.\;=
M8'V(1Y*5VU$([SJBG6;08V<1GF=V%"AKQ63B2AM;MX;1#53PY@+-P,,_M%,'
M,TA\1T=%D4/:<125@5:?D!*).!W:+1*%LD@16$0"II^&=#!('3O">S]%Y&U"
M\.8@Z2IFJM9\3&9&\"LQRR'=)KC3:>SG0G74<(QBLIS_"Y9(40)!LC:GG0S 
M;5Q#V;?P#2/,SY"NF<QI.:TO5$FK2!2R*5(6H5"69S3*7-RN\(*)'3]_7/CY
MXWOX>>'";=GB4>VF0/VBBG5#Y2.0I!LJ$];SI\/1M#=IN*'2>#5E..U?<S5E
M/(3VUUY?OTSPTE@FP,1T?H<]/SLKC%!L?GRG9/B^NF;)8Z;/_"B!%8@6O[+2
MWLVB]11Z30(M]4JUCV,W33C"#BYRFY;*D%SMY=@7%/+:==<7%KMMH3"+4NH.
M&BG?IB7P?7_L^OY@4#8%\,G'H=MM+5F[CRM8Z,OP/^*0]=26Z)LXS$+((#A(
M&122D-@PM7-JKE?LMU\Y 1Z D6&%M^$ AR:VS2$JP&PR8]\MDXV'C\J^9Y@)
M0LQ:M?T3M#XTH_IO&*B]$WR4$B=X%9/'N(:?)WD<&-=HEAI<90[K.B^/\6:&
M9S"B[5 VPX>YJU-:WE%&5SHH?4.OS+3'D0,H3&'+@MSW1R>@B&/[ZIEF#-J<
M9$:)L3U6=5>[ZS2T*X";$8WB':8"!A3&PUTOWM-UOM@=KUYQFH;*'SRA[JX:
MWT:HDKP);1 .37TRM-SPLTAXQ/;J)GU@D1&N'LQ["@E&LT?W=-DTP[MR!T_$
M[P30I">KJ)3/6:^__SC>J2YUR'J9.9GV3MK+S+!W8I\ W%.*-_LA.YM<]AZ7
M=0VJ9_L"J=34Y7+%K_L^H $!_4_!@E#?F8:HI>]<=IYG>*-[P_%&?,+D"CR%
MN@F=I0E9X^J]6+#1OGSCSN8U&YMZ7[-H2A/<1&6$:!:D3'3,EA$1H!W/&<=Q
M2ZAJ#=!?EPP7*&IK7&M&L>VM][K4!DMUEZMH5VVX<E2S@]ZA#%LN'/Z@AM4V
MJ49\Q4R?9.O/:]@C8K&2$8XL6YL]@-W];%/J;7P/YR8F_= ?>GB:G/\;"WU[
M]CF>]FM_)VD7L/[W6<93_YKDT_>';K^\FZ_D@=6"WCPPU=7L)9QO\1@+D+/K
M+I9=[$^<(V;*"7PT2P@',AQ=*%"5W0N@D,=XC98Y%^ET:ML"\=(#+^,3,."%
MDM/I#FE%  (V;;# ?/:1&A*,&8HY^WE,,UBQYJ'E/NEC4-YD_6+Z,$NC2ES=
<7DD%N%<!+ZN?.LC3#%] ?RU5_P_12&G6)$P  *'E
 
end


                    Bruno Haible
                    haible@ma2s2.mathematik.uni-karlsruhe.de