Wed 01 Oct 2003 04:41:02 PM UTC, comment #1: [Fix (i.e. patch)]
According to Tim Daly, the issue is related to expansion of left hand side of macro:
http://mail.gnu.org/archive/html/axiom-developer/2003-08/msg00090.html
Juergen Weiss proposes following patch:
diff -c -r1.4 compiler.boot
- compiler.boot 2003/06/20 20:58:11 1.4
--- compiler.boot 2003/09/30 20:07:31
***************
compMacro(form,m,e) ==
$macroIfTrue: local:= true
["MDEF",lhs,signature,specialCases,rhs]:= form
! rhs :=
rhs is ['CATEGORY,:.] => ['"-- the constructor category"]
rhs is ['Join,:.] => ['"-- the constructor category"]
rhs is ['CAPSULE,:.] => ['"-- the constructor capsule"]
rhs is ['add,:.] => ['"-- the constructor capsule"]
formatUnabbreviated rhs
sayBrightly ['" processing macro definition",'%b,
! :formatUnabbreviated lhs,'" ==> ",:rhs,'%d]
! ["MDEF",lhs,signature,specialCases,rhs]:= form:= macroExpand(form,e)
m=$EmptyMode or m=$NoValueMode =>
! ["/throwAway",$NoValueMode,put(first lhs,"macro",rhs,e)]
--% SEQ
--- 670,685 ----
compMacro(form,m,e) ==
$macroIfTrue: local:= true
["MDEF",lhs,signature,specialCases,rhs]:= form
! prhs :=
rhs is ['CATEGORY,:.] => ['"-- the constructor category"]
rhs is ['Join,:.] => ['"-- the constructor category"]
rhs is ['CAPSULE,:.] => ['"-- the constructor capsule"]
rhs is ['add,:.] => ['"-- the constructor capsule"]
formatUnabbreviated rhs
sayBrightly ['" processing macro definition",'%b,
! :formatUnabbreviated lhs,'" ==> ",:prhs,'%d]
m=$EmptyMode or m=$NoValueMode =>
! ["/throwAway",$NoValueMode,put(first lhs,"macro",macroExpand(rhs,e),e)]
--% SEQ
|