ELF"4( Uh]ÐUWVS=O,M9wMOMM MO GMO_ w50ЋM EPPMQMO GMO50ЋM PPMQMO O ,ЋM MA=t 9Pu @@G @@=uG GGGG G $G$O M O(M (ЋM MO(Gw5_0ЋM G M 5$ЋM MO,G50ЋM G 0GMQGOM M G4GhMQ<Pj P8PjGM O ЋM MO,G50ЋM G MO(GO M 0ЋM G@GDGHGLG PG$TG(M O, ЋM MO @GXGHG\GPG `G$M M ЋM MA=t$9Pu@@G @@=uG @GdGhGG lG pG$O (=Ѝe[^_]ÐUWVS5NM9w9s&%PCPC9rڋM NjGu"FN 5EtXS 9S~]JK u PMQ@PS :MN^ N N ЋM 0e[^_]ÐUHWVS=OLM9wM9vOMM M Et@@ Et@EE @EX} t@P u UPE܉_ O O СЋM M Eu 4 Ph MQ@MQSVڅ|RUMIMY@@E@@t@E؋HMԁ}MAPMQh MQE@PMQ@Eh MQE @PMQXh MQE@PMQEh MQE @PMQEMu]ċMԋA=t9P@@=uEUӉ+FP$MR4$$Eh MQEMԋA=t9P@@=u8t8uP"@@OPPҋMԋA=t9Pt@@=u8t8uX@XPPPPPP|RPPMQRh PPӋMԋA8=t9Pw@@=uEă$Ɖ؀8t8uXPPPPPP |QPRVQPRMQPPӋMO (G$O O( H0ЋM MЉ Eu4 PƉ؀8t 8u XPRMQRPRVRPRMQ0PPӃ4MQMQj}]M Eu Ph PơG G$G(G,G0G4}t MO8 G8GC?W=b4t<}=4=<4@4<=4=<4@<=4=4'AGAPAU4]4e4m4u4}4<=4=4<=4=<<=4= 4<= 4+=0<:4FBO<[=`Ci=n<x4D4E4E<=4=4<=4=<4<= 4+=0<:4B4J4R4Z4b4n<w=|4=444444<=4=4AA A%4-454?FD4L4X<a=f4<=>?=A=<GH<=AA <=$4;IOFaIgJxK<=4=<=>? <<=,=E=LAQ4g4tFy4A4IFIJ<=44=IF!I'J1F:LMM4ANFLNFLNF"L2N:FCLVN_5t4|AAAOFL4A A A PA PF QK 4Q 4` 4h A| A A P P Q 4 4 4 4 4 4 4 4 4 F 4 4 4 A0 A7 AE OT Pq Pv Q{ 4 4 4 4 4 4 4 4 4 4 4 4 4 < = 4 = < I" F1 I7 JI Pa Pf Qk 4r 4} 4 4 4 4 R A I F I J F S 4 4 4$ 4, 44 4A AQ 4Y 4f Fo <x =} T = < 4 < = 4 = 4 I F I J < = 4 =A 4L 4X <a =f 4q =v 4 4 < = 4 < = > ? = 4 A 4 4 4 <=4 =%<1D7<@=E4M=R4]<f=k4A<=<=>?=4AAAA<"=E4JA\AeAj4v<=4=<44<=U<=>?VWX=V44(4/A5V:4F<O=T4\=a4i4q4z<=4=444<=4=44<=4=<4Y44 4(40484BFG4O4[<d=i4q=v4~44<=4=4A4<=4=44F44<(=-45=:4C<O=T4\=a4i4q4y44<=4=44444444F<=4=4<=4'=,444<4D4L4U<^=c4k=p4x44F44444F4F44<=4=44 F44!<*=/47=<4D4L4U<^=c4k=rAx<=4=VV444<=44Z4 4Z$4)4/ZD4I4OZd4i4oZ44Z44Z44Z44Z4 4Z$4)4/ZD4I4OZd4i4oZ44Z44Z44Z44Z4 4Z$4)4/ZD4I4OZd4i4oZ666 66666666666666 66666 6$6(6,606 USER ! LISPIN-PACKAGE TKx! TK.TYPE-FRAME-CANVAS-.CANVAS! KEYWORDRELIEF sunken.WIDTH 8c.HEIGHT .4c-.DATA-.LABEL.TEXT.COMMAND! -DRAW-STATUS!,QUOTE.SIDE left.ANCHOR w.PADX 4m top w 1c top.EXPAND.PADY 2m!-*VALUES-ARRAY*7.0S0) .15c!-*GC-MONITOR-TYPES*.DELETE graph.CREATE line. c 3m.TAG graph.FILL red line c c 3m graph aquamarine4 .CONFIGURE gc's for pages (used= ).LENGTH 8c.LABEL Allocate:  .TICKINTERVAL.TO.SET!-*PREV-SPECIAL-TYPE* pink!-*SPECIAL-TYPE-BACKGROUND*.GET.RETURN,NUMBER .BACKGROUND!! SYSTEM*AFTER-GBC-HOOK*!-.GC.TITLE GC Monitor GC .COLORMODEL color white-.GC.MSG.FONT#.ADOBE-TIMES-MEDIUM-R-NORMAL--*-180*.ASPECTGC monitor displays after each garbage collection the amount of space used (red) and free (green) of the types in the list *gc-monitor-types*. Clicking on a type makes its size appear on the scale at the bottom, and double clicking on the scale causes actual allocation! top .BORDERWIDTH ridge-.GC.FF-.GC.OK QUIT ,PROGN !,SETQ5-DESTROY07 -.GC.AMOUNT Amount : .3c.ORIENT horizontal -.GC.RESET RESET Number Used6RESET-NUMBER-USED x.IN-LEFT x ! -DO-ALLOCATION-CONC-LABEL-BUTTON-PACK,VECTOR-PUSH-EXTEND 6ALLOCATED!-PUSH-MULTIPLE-VALUES!-SET-LABEL-BACKGROUND6ALLOCATE-TOPLEVEL-WM-TK-MESSAGE!-MAKE-ONE-GRAPH-SCALE-BIND6%INIT  6WARN-VERSION! 6*MAKE-SPECIAL02 !,OR!,BOUNDP02 820,CONS,FIXNUM,STRING6RELOCATABLE-BLOCKS,STREAM=04 >?04 84 red !6MF0<=03 >?03 83=0!-*TIME-TO-STAY-ON-TYPE* >?0A 8A=01 >?01 81  ,MAKE-ARRAY .FILL-POINTER @0: @0/ @09 @0; @0! -MKGCMONITOR !6DEBUG0<0 -TOP!,TYPE!-F C0:0-L!-V C0/0 -SPECIAL-TYPE-CLICKEDF-NFREE-GCCOUNT-NUSEDE -WIDTH-USED C0;0D-COLOUR C0B0F