16 Mar
2010
16 Mar
'10
12:58 p.m.
* 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