Skip to content
Snippets Groups Projects
Commit 3e3d94e8 authored by ram's avatar ram
Browse files

Changed to OR in the result of STRUCTURE-PREDICATE to be an IF, since that is

optimized more easily.
parent f42ef65e
No related branches found
No related tags found
No related merge requests found
......@@ -567,7 +567,8 @@
(let ((def (info type structure-info type)))
(if (and def (eq (dd-type def) 'structure) (dd-predicate def))
`(and (structurep ,object)
(or (eq (%primitive header-ref ,object 0) ',type)
(if (eq (%primitive header-ref ,object 0) ',type)
t
(,(dd-predicate def) ,object)))
`(lisp::structure-typep ,object ',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