r10589: more struct-pointer
authorKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 8 Jun 2005 22:41:41 +0000 (22:41 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Wed, 8 Jun 2005 22:41:41 +0000 (22:41 +0000)
tests/time.lisp

index 89382a86a1efca4345c04a6bed19eaa063ae8222..fe8e305402e8ccdccb5f8a5a27c1668d3a19f416 100644 (file)
@@ -43,7 +43,7 @@
   :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)