Define BARE-STRUCT-TYPE-P for FOREIGN-TYPEDEFs

cffi · May 6, 2012 · e5d3f6e · e5d3f6e
1 parent 03297bd
commit e5d3f6e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/early-types.lisp b/src/early-types.lisp
@@ -308,6 +308,9 @@ Signals an error if FOREIGN-TYPE is undefined."))
       (follow-typedefs (actual-type type))
       type))
 
+(defmethod bare-struct-type-p ((type foreign-typedef))
+  (bare-struct-type-p (follow-typedefs type)))
+
 (defun structure-slots (type)
   "The hash table of slots for the structure type."
   (slots (follow-typedefs type)))