RE: [Axiom-developer] src/interp/compiler.boot.pamphlet

[Page, Bill]

Tim,

On Wednesday, December 06, 2006 12:53 AM you asked:
> 
> I see that there is a change to compiler.boot in the sandbox
> code but I don't understand the reason for the change. I'm not
> sure who made the change as it is not recorded in the changelog
> files.
>

It is confusing to me that you refere to this as "the sandbox
code". wh-sandbox is an experiemental branch maintained by Waldek
Hebisch. So far as I know the only one committing changes to this
branch is Waldek.

You should read:

http://axiom.svn.sourceforge.net/viewvc/*checkout*/axiom/branches/wh-san
dbox/README.wh

> What is the problem that this change is designed to solve?
> Is there a test case for it?
> 

Concering revison 319, in ChangeLog.wh I see the following
explanation:

2006-11-25  Waldek Hebisch  <address@hidden>

        * src/interp/compiler.boot.pamphlet: Update functions to match
          xruncomp.boot.pamphlet
        * src/interp/functor.boot.pamphlet: Likewise.
        * src/interp/info.boot.pamphlet: Likewise.
        * src/interp/modemap.boot.pamphlet: Likewise.
        * src/interp/nruncomp.boot.pamphlet: Likewise.
        * src/interp/Makefile.pamphlet: Remove references to
          xruncomp.boot.pamphlet
        * src/interp/debugsys.lisp.pamphlet: Likewise.

> 
> ==============================================================
> --- sandbox/src/interp/compiler.boot.pamphlet
> +++ daly/src/interp/compiler.boot.pamphlet
> @@ -494,13 +494,12 @@
>      T
>    T
>  
> +--------------------> NEW DEFINITION (override in 
> xruncomp.boot.pamphlet)
>  getFormModemaps(form is [op,:argl],e) ==
>    op is ["elt",domain,op1] =>
>      [x for x in getFormModemaps([op1,:argl],e) | x is [[ 
> =domain,:.],:.]]
>    null atom op => nil
>    modemapList:= get(op,"modemap",e)
> -  if $insideCategoryPackageIfTrue then
> -    modemapList := [x for x in modemapList | x is 
> [[dom,:.],:.] and dom ^= '$]
>    if op="elt"
>       then modemapList:= eltModemapFilter(LAST 
> argl,modemapList,e) or return nil
>       else
>