From e5d3f6e0a005b4fab86f31c28eeb304bad7838ee Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 6 May 2012 11:32:46 +0200
Subject: [PATCH] Define BARE-STRUCT-TYPE-P for FOREIGN-TYPEDEFs

---
 src/early-types.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/early-types.lisp b/src/early-types.lisp
index f7c3384dead0..d97b2ee62d92 100644
--- 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)))