The function
foreign-type-equal-p
returns
t
if
type1
and
type2
are the same underlying foreign type, and
nil
otherwise.
(fli:define-foreign-type aa () '(:signed :byte))
=>
aa
(fli:define-foreign-type bb () '(:signed :char))
=>
bb
(fli:foreign-type-equal-p 'aa 'bb)
=>
t