xyzzy では structure の accessor で全く関係ない structure の slot に触れてしまうことに気づいた。

gistfile1.cl

;; xyzzy では structure の accessor で全く関係ない structure の slot に触れてしまう事に気づいた。
(defstruct foo
  bar baz)
=> #<structure-definition: foo>

(defstruct hoge
  fuga piyo)
=> #<structure-definition: hoge>

(hoge-fuga (make-foo :bar 3 :baz 4))
=> 3

いちいちインスタンスをチェックするようにするとか、ついでに使われてない :type 使って型チェックもするとか、それほど難しくはないのだけど、速度的なトコが心配。
(declare (optimize ...)) で省略できるようにすればいいんだろうけど、そうすると compile.l いぢることになるんで、そこまですんの？と。