Compiled COMPILE forms at load time Bug

[Helmut Eller]

* Helmut Eller [2010-03-16 12:43+0100] writes:

> * 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

Another silly example:

(defstruct foo -a)
(defstruct foo- a)

(make-foo) -> error during print

Helmut