typep などで structure も structure-object も使えない

[bowbow99]

問題

lisp:type-of は構造体のインスタンスに対して lisp:structure を返すが、これは lisp:typep でも ansify:typep でも型指定子として使えない。

user> (defstruct foo)
#<structure-definition: foo>
user> (setf x (make-foo))
#S(foo)
user> (lisp:type-of x)
structure
user> (symbol-package *)
#<package: lisp>
user> (lisp:typep x 'lisp:structure)
nil
user> (ansify:typep x 'lisp:structure)
nil

ANSI 的には、structure などという型は無くて構造体のインスタンスは structure-object というクラスになるのだが、xyzzy ではこのシンボルは使われてない。

user> (find-all-symbols "structure-object")
nil

結果的に xyzzy には「構造体のインスタンス」を表す型指定子が存在しない。

どうする

とりあえず ansify:structure-object は型指定子として使えるようにするなら。

(setf (get 'ansify::structure-object 'si::type-predicate) #'si:*structurep)

メモ

• subtypep は（他にもあちこち壊れてるままなので）直す時に一緒に
• CLOS 入った場合 structure-object はどうなるのか注意した方がよさげ
  • まともにクラスとして扱われるなら、typep や subtypep の方でクラスの扱いをちゃんと実装すれば済む話になる