Changeset 14742

Timestamp:

Apr 27, 2011, 4:19:01 PM (14 years ago)

Author:

Gary Byers

Message:

Register the foreign type ordinal of :ARRAY foreign types.

File:

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

trunk/source/lib/foreign-types.lisp

@@ -1864 +1864 @@
         (declare (dynamic-extent pair))
         (ensure-foreign-type-bits type)
-        (or (gethash pair (ftd-array-types *target-ftd*))
-            (setf (gethash (cons type dims) (ftd-array-types *target-ftd*))
-                  
-                  (make-foreign-array-type
-                   :element-type type
-                   :dimensions dims
-                   :alignment (foreign-type-alignment type)
-                   :bits (if (and (ensure-foreign-type-bits type)
-                                  (every #'integerp dims))
-                           (* (align-offset (foreign-type-bits type)
-                                            (foreign-type-alignment type))
-                              (reduce #'* dims))))))))
+        (let* ((atype 
+                (or (gethash pair (ftd-array-types *target-ftd*))
+                    (setf (gethash (cons type dims) (ftd-array-types *target-ftd*))
+                          
+                          (make-foreign-array-type
+                           :element-type type
+                           :dimensions dims
+                           :alignment (foreign-type-alignment type)
+                           :bits (if (and (ensure-foreign-type-bits type)
+                                          (every #'integerp dims))
+                                   (* (align-offset (foreign-type-bits type)
+                                                    (foreign-type-alignment type))
+                                      (reduce #'* dims))))))))
+          (note-foreign-type-ordinal atype *target-ftd*)
+          atype)))
 
     (def-foreign-type-translator * (to)