X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Falien.impure.lisp;h=d4365d31d70013c3809421f50d144c788e9acf6c;hb=428b60fff4247e34ff601810f33976908f22bbc0;hp=6cd9807452aedb7eac60f88e30eb5d95f32a01b7;hpb=1cae060fd9735f9c1f63538969e68c99b48f46e6;p=sbcl.git

diff --git a/tests/alien.impure.lisp b/tests/alien.impure.lisp
index 6cd9807..d4365d3 100644
--- a/tests/alien.impure.lisp
+++ b/tests/alien.impure.lisp
@@ -97,7 +97,7 @@
 (define-alien-type enum.2 (enum nil (zero 0) (one 1) (two 2) (three 3)
                                     (four 4) (five 5) (six 6) (seven 7)
                                     (eight 8) (nine 9)))
-(with-alien ((integer-array (array integer 3)))
+(with-alien ((integer-array (array int 3)))
   (let ((enum-array (cast integer-array (array enum.2 3))))
     (setf (deref enum-array 0) 'three
           (deref enum-array 1) 'four)
@@ -107,7 +107,7 @@
 ;; The code that is used for mapping from integers to symbols depends on the
 ;; `density' of the set of used integers, so test with a sparse set as well.
 (define-alien-type enum.3 (enum nil (zero 0) (one 1) (k-one 1001) (k-two 1002)))
-(with-alien ((integer-array (array integer 3)))
+(with-alien ((integer-array (array int 3)))
   (let ((enum-array (cast integer-array (array enum.3 3))))
     (setf (deref enum-array 0) 'one
           (deref enum-array 1) 'k-one)