X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fgettime.cl;h=be0bdee36ddf6be971ae2ca89f4d25574c31b9cd;hb=baabff1a8dbf4813072d87f6977cd488c376fe56;hp=ea71edcd1badab116e7f38a4f12668b287ea4505;hpb=40314c219af7f3c1117836a66f4028a52704437d;p=uffi.git diff --git a/tests/gettime.cl b/tests/gettime.cl index ea71edc..be0bdee 100644 --- a/tests/gettime.cl +++ b/tests/gettime.cl @@ -9,7 +9,7 @@ ;;;; ;;;; Copyright (c) 2002 Kevin M. Rosenberg ;;;; -;;;; $Id: gettime.cl,v 1.2 2002/03/09 21:19:31 kevin Exp $ +;;;; $Id: gettime.cl,v 1.3 2002/03/10 04:15:33 kevin Exp $ ;;;; ;;;; This file is part of UFFI. ;;;; @@ -66,7 +66,8 @@ (uffi:free-foreign-object time) time-string) )) - + +#+test-uffi (format t "~&~A" (gettime))