X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=tests%2Farrays.lisp;h=25ad9011a6b9c7cb31875be61e9875bb760e59ba;hp=cdfe4ed147e517140c40cadad4689ffd437ad24a;hb=0824453227a26da41a3929c9117b66714980414b;hpb=7004c2691d5695471c7bce9d62b82a1914cf05a2 diff --git a/tests/arrays.lisp b/tests/arrays.lisp index cdfe4ed..25ad901 100644 --- a/tests/arrays.lisp +++ b/tests/arrays.lisp @@ -20,7 +20,7 @@ (uffi:def-foreign-type long-ptr (* :long)) -(deftest array.1 +(deftest :array.1 (let ((a (uffi:allocate-foreign-object :long +column-length+)) (results nil)) (dotimes (i +column-length+) @@ -32,7 +32,7 @@ (0 1 4 9 16 25 36 49 64 81)) -(deftest array.2 +(deftest :array.2 (let ((a (uffi:allocate-foreign-object 'long-ptr +row-length+)) (results nil)) (dotimes (r +row-length+)