X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftime.lisp;h=9d9546364243e08e53deb1d7409f8e304efae311;hb=1e5809bc5e68d9f1f5a676fa24253b3b95d490ac;hp=25a876fbfd96e613de36de24f08f28df1c48afb1;hpb=e7f066acd55f728fa55d5f91c2cdc77434119da5;p=uffi.git

diff --git a/tests/time.lisp b/tests/time.lisp
index 25a876f..9d95463 100644
--- a/tests/time.lisp
+++ b/tests/time.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; $Id$
 ;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
 ;;;;
 ;;;; *************************************************************************
 
@@ -36,14 +36,14 @@
 
 (uffi:def-function "gmtime"
     ((time (* time-t)))
-  :returning (* tm))
+  :returning (:struct-pointer tm))
 
 (uffi:def-function "asctime"
     ((time (:struct-pointer tm)))
   :returning :cstring)
 
 (uffi:def-type time-t :unsigned-long)
-(uffi:def-type tm-pointer (* tm))
+(uffi:def-type tm-pointer (:struct-pointer tm))
 
 (deftest :time.1
    (uffi:with-foreign-object (time 'time-t)