[Gcl-devel] Re: si::*after-gbc-hook* not called enough?

[Camm Maguire]

Greetings!  Good to see this is being exercised.  Have tried to fix
this now in cvs and looks good to very preliminary testing.

Please let me know if problems persist.

Take care,

Robert Boyer <address@hidden> writes:

> I believe that the following transcript shows that si::*after-gbc-hook* is
> not called after every GC.  There are about 143 gc messages below, but only
> 10 calls to si::*after-gbc-hook*.
> 
> Bob
> 
> -------------------------------------------------------------------------------
> 
> % g
> GCL (GNU Common Lisp)  2.7.0 ANSI    Nov 20 2005 15:31:44
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> 
> >(setq si::*notify-gbc* t)
> 
> T
> 
> >(setq si::*after-gbc-hook* (function (lambda (type) (princ "!" t))))
> 
> #<interpreted-function (LAMBDA-CLOSURE () () () (TYPE) (PRINC "!" T))>
> 
> >(progn (make-list 10000000) nil)
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 585 CONS pages..(T=2).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 877 CONS pages..(T=3).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=3).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 1315 CONS pages..(T=3).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=5).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=5).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 1972 CONS pages..(T=4).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=5).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=5).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=5).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=5).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=4).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=6).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=6).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=6).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=6).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=6).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=7).GC finished]
> [GC for 2958 CONS pages..(T=6).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=7).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=7).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=6).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=7).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=7).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=7).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=8).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=8).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=7).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=8).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=8).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=8).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=9).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=9).GC finished]
> [GC for 4437 CONS pages..(T=8).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=9).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=8).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=9).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=9).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=10).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=10).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=10).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=10).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=11).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=10).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=11).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=11).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=11).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=12).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=11).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=12).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=12).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=12).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=12).GC finished]
> [GC for 6655 CONS pages..(T=12).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=13).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=13).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=13).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=13).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=13).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=14).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=14).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=14).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=14).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=14).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=15).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=15).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=15).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=15).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=17).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=17).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=16).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=16).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=17).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=16).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=17).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=17).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=18).GC finished]
> [GC for 9982 CONS pages..(T=18).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=18).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=18).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=19).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=18).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=19).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=19).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=19).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=21).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=20).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=21).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=21).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=21).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=22).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=21).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=22).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=22).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=23).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=23).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=23).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=23).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=24).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=24).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=24).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=25).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=25).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=25).GC finished]
> [GC for 14973 CONS pages..(T=26).GC finished]
> ![GC for 39 RELOCATABLE-BLOCKS pages..(T=25).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=26).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=27).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=27).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=28).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=27).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=27).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=28).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=29).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=29).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=29).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=30).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=30).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=30).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=31).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=31).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=31).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=32).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=32).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=33).GC finished]
> [GC for 39 RELOCATABLE-BLOCKS pages..(T=34).GC finished]
> 
> NIL
> 
> >
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah