Changeset 5809

Timestamp:

Jan 29, 2007, 3:36:52 AM (18 years ago)

Author:

Gary Byers

Message:

REQUIRE-FOREIGN-TYPE-BITS.

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (1 diff)

trunk/ccl/lib/foreign-types.lisp

@@ -1218 +1218 @@
                         (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)