Fwd: Closure update from eliot

> From: John M McIntosh <[hidden email]>
> Date: May 1, 2009 6:29:33 PM CEDT
> To: Stéphane Ducasse <[hidden email]>
> Cc: Eliot Miranda <[hidden email]>
> Subject: Re: [Pharo-project] Closure update from eliot
> Reply-To: [hidden email]
>
> Also see
> http://code.google.com/p/pharo/issues/detail?id=467
>
>
> Eliot wants
> #(CompiledMethod MethodProperties Array LargeNegativeInteger  
> LargePositiveInteger Float MethodDictionary Association Point  
> Rectangle ByteString BlockClosure BlockContext MethodContext nil  
> Bitmap nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)
>
> so do
>
> (Smalltalk compactClassesArray select: [:e | e notNil and: [e  
> isObsolete]])
> do: [:i | i becomeUncompact].
> PseudoContext becomeUncompact.
> Smalltalk garbageCollect.
> LargeNegativeInteger becomeCompact.
> BlockClosure becomeCompact.
>
> gives then
>
> Smalltalk compactClassesArray inspect
>
> {CompiledMethod . MethodProperties . Array . LargeNegativeInteger .  
> LargePositiveInteger . Float . MethodDictionary . Association .  
> Point . Rectangle . ByteString . BlockClosure . BlockContext .  
> MethodContext . nil . Bitmap . nil . nil . nil . nil . nil . nil .  
> nil . nil . nil . nil . nil . nil . nil . nil . nil}
>
> Which my squinting eyeballs this morning seem to say it's the same...
>
> A post check is
>
> Smalltalk compactClassesArray doWithIndex:
> [:c :i | c == nil ifFalse:
> [c indexIfCompact = i ifFalse: [self halt]]]
>
>
>
>
> On 1-May-09, at 3:10 AM, Stéphane Ducasse wrote:
>
>>>> Smalltalk compactClassesArray
>
> --
> =
> =
> =
> =
> =
> ======================================================================
> John M. McIntosh <[hidden email]>   Twitter:  
> squeaker68882
> Corporate Smalltalk Consulting Ltd.  http://
> www.smalltalkconsulting.com
> =
> =
> =
> =
> =
> ======================================================================
>
>
>
>
>