On 12 April 2013 21:15, Christophe Rhodes <crhodes@...> 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!)