1.0.21.1: address TYPE-WARNING in CLOS allocator for funcallable structures

1.0.21.1: address TYPE-WARNING in CLOS allocator for funcallable structures
	... parallel %make-funcallable-structure-allocator;
	... make FUNCTION-classoid-subclasses into CLOS classes in FIXUP
	... also make !DEFSTRUCT-W-A-M respect *DEFSTRUCT-HOOKS* just
		in case.
	... test.