`((,(ecase (car c)
(integer 'integerp)
(cons 'consp)
`((,(ecase (car c)
(integer 'integerp)
(cons 'consp)
+ (list 'listp)
+ (sequence 'sequencep)
(symbol 'symbolp)
(function 'functionp)
(float 'floatp)
(symbol 'symbolp)
(function 'functionp)
(float 'floatp)