Skip to content
Snippets Groups Projects
Commit 61406d79 authored by ram's avatar ram
Browse files

Changed STRUCTURE-TYPEP to use INFO TYPE DEFINED-STRUCTURE-INFO.

parent d3d46718
No related branches found
No related tags found
No related merge requests found
......@@ -322,15 +322,13 @@
(declare (optimize speed))
(let ((type (type-expand type)))
(if (symbolp type)
(case (info type kind type)
((:primitive :structure)
(and (structurep object)
(let ((obj-name (%primitive header-ref object 0)))
(or (eq obj-name type)
(let ((def (info type structure-info obj-name)))
(not (null (memq type (c::dd-includes def)))))))))
(t
(error "~S is an unknown type specifier." type)))
(let ((def (info type defined-structure-info obj-name)))
(if def
(and (structurep object)
(let ((obj-name (%primitive header-ref object 0)))
(or (eq obj-name type)
(not (null (memq type (c::dd-includes def)))))))
(error "~S is an unknown type specifier." type)))
(error "~S is an unknown type specifier." type))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment