:type slot option not overridden for for :included slots in defstruct

[rme]

 http://www.lispworks.com/documentation/HyperSpec/Body/m_defstr.htm#defstruct

It looks like we don't even try to process overridden :type slot options in defstruct. (See line 195 of defstruct-lds.lisp as of r14258.

(defstruct school-kid
  name
  (age 12 :type (integer 5 18)))

(defstruct (elementary-kid
	     (:include school-kid
		       (age 5 :type (integer 6 10))))
  recess-time)

In the definitions for elementary-kid, we still use the type (integer 5 18).