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 @@ ...@@ -322,15 +322,13 @@
(declare (optimize speed)) (declare (optimize speed))
(let ((type (type-expand type))) (let ((type (type-expand type)))
(if (symbolp type) (if (symbolp type)
(case (info type kind type) (let ((def (info type defined-structure-info obj-name)))
((:primitive :structure) (if def
(and (structurep object) (and (structurep object)
(let ((obj-name (%primitive header-ref object 0))) (let ((obj-name (%primitive header-ref object 0)))
(or (eq obj-name type) (or (eq obj-name type)
(let ((def (info type structure-info obj-name))) (not (null (memq type (c::dd-includes def)))))))
(not (null (memq type (c::dd-includes def))))))))) (error "~S is an unknown type specifier." type)))
(t
(error "~S is an unknown type specifier." type)))
(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.
Finish editing this message first!
Please register or to comment