r9418: rework cmucl/sbcl arrays in deref-array, allocate-foreign-object, and with...

[uffi.git] / tests / uffi-c-test-lib.lisp

diff --git a/tests/uffi-c-test-lib.lisp b/tests/uffi-c-test-lib.lisp
index 95b411e53a05aec48be467d9bc3b4dd56132d1ad..1fd6d16d45ec71c7c59d54956c471dd6dcf3e356 100644 (file)
--- a/tests/uffi-c-test-lib.lisp
+++ b/tests/uffi-c-test-lib.lisp
@@ -36,7 +36,7 @@
 
 (uffi:def-function ("half_double_vector" half-double-vector)
     ((size :int)
-     (vec (* :double)))
+     (vec (:array :double)))
   :returning :void)
 
 (uffi:def-function ("return_long_negative_one" return-long-negative-one)