;;;;
;;;; $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
;;;;
;;;; *************************************************************************
(uffi:def-function "gmtime"
((time (* time-t)))
- :returning (* tm))
+ :returning (:struct-pointer tm))
(uffi:def-function "asctime"
- ((time (* tm)))
+ ((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)