[Ecls-list] ecl cvs HEAD broken

[Gabriel Dos Reis]

"Geo Carncross" <geocar at gmail.com> writes:

| This is affecting me as well. It looks like the change in 30apr08 in
| src/h/eval.h to
| 
| 1.6          (jgarcia  30-Apr-08): #define CAR(x)		(Null(x)? (x) :
| ECL_CONS_CAR(x))
| 
| from:
| 
| 1.1          (jjgarcia 26-Jun-01): #define CAR(x)		(x)->cons.car
| 
| is what did it. The compiler is apparently generating CAR(x) = foo
| where it needs to be creating ECL_RPLACA(x,foo) statements.
| 
| Applying the attached patch should fix it- since the offending code is
| always part of a closure, changing:
| (defun wt-env (clv) (wt "CAR(CLV" clv ")"))
| 
| in src/cmp/cmpvar.lsp to:
| 
| (defun wt-env (clv) (wt "ECL_CONS_CAR(CLV" clv ")"))
| 
| should do it. The patch is also available at:
| 
| http://geocar.googlepages.com/ecl-cmp-fix-car.patch

That did it!

Mny thanks.

-- Gaby