(if (eq (classoid-layout type)
(info :type :compiler-layout (classoid-name type)))
(values (sb!xc:typep obj type) t)
(if (eq (classoid-layout type)
(info :type :compiler-layout (classoid-name type)))
(values (sb!xc:typep obj type) t)
((funcallable-instance-p x) (%funcallable-instance-layout x))
((null x)
;; Note: was #.((CLASS-LAYOUT (SB!XC:FIND-CLASS 'NULL))).
((funcallable-instance-p x) (%funcallable-instance-layout x))
((null x)
;; Note: was #.((CLASS-LAYOUT (SB!XC:FIND-CLASS 'NULL))).