228 |
|
|
229 |
(defun structure-type-included-type-name (type) |
(defun structure-type-included-type-name (type) |
230 |
(or (car (gethash type *structure-table*)) |
(or (car (gethash type *structure-table*)) |
231 |
(si::s-data-included (get type 'si::s-data)) |
(let ((includes (si::s-data-includes (get type 'si::s-data)))) |
232 |
)) |
(when includes |
233 |
|
(si::s-data-name includes))))) |
234 |
|
|
235 |
(defun structure-type-internal-slotds (type) |
(defun structure-type-internal-slotds (type) |
236 |
(si::s-data-slot-descriptions (get type 'si::s-data)) |
(si::s-data-slot-descriptions (get type 'si::s-data)) |