Compiled COMPILE forms at load time Bug

[Helmut Eller]

* Raymond Toy [2010-03-16 04:41+0100] writes:

> I tried undefine-function-name instead of undefine-structure. It works,
> but having a redefined structure accessor that doesn't really work is a
> problem.  For example,
>
> (defstruct abc a)
> (defun abc-a (x) 42)
> (make-abc :a 'a) -> #S(abc :a 42)

Another funny case is this one:

(defstruct abc a)
(setf (fdefinition 'abc-a) (lambda (x) 42))
(abc-a nil) => 42
(defstruct abc b)
(abc-a nil) -> abc-a not defined

Helmut