Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 5808)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 5809)
@@ -1218,4 +1218,8 @@
 			(reduce #'* dims))))))))
 
+(defun require-foreign-type-bits (type)
+  (or (ensure-foreign-type-bits type)
+      (error "Can't determine attributes of foreign type ~s" type)))
+
 (defun %find-foreign-record (name)
   (or (info-foreign-type-struct name)