r10588: better support for lispworks variance on derefing

[uffi.git] / tests / time.lisp

diff --git a/tests/time.lisp b/tests/time.lisp
index 25a876fbfd96e613de36de24f08f28df1c48afb1..89382a86a1efca4345c04a6bed19eaa063ae8222 100644 (file)
--- a/tests/time.lisp
+++ b/tests/time.lisp
@@ -36,7 +36,7 @@
 
 (uffi:def-function "gmtime"
     ((time (* time-t)))
-  :returning (* tm))
+  :returning (:struct-pointer tm))
 
 (uffi:def-function "asctime"
     ((time (:struct-pointer tm)))