Re: [Sbcl-devel] [Sbcl-commits] master: Evaluate condition default initargs once, even after redefinition

[Nikodemus S. <nik...@ra...>]

On 12 April 2013 21:15, Christophe Rhodes <cr...@us...> wrote:

Couple of things leaped out:

> +               ;; TODO temp
> +               (assert (not (member slot (condition-classoid-hairy-slots class))))
>                 (push slot (condition-classoid-hairy-slots class)))))))

It's not obvious to me what the TODO is here...

> +    ;; Go through EVAL to avoid optimizations.
> +    (test :eval+make-condition
> +      (eval '(make-condition
> +              'condition-with-non-constant-default-initarg)))

I don't see a binding for *EVALUATOR-MODE*, so this is still going to
end up calling COMPILE... (unless I missed something else!)

Cheers,

 -- nikodemus