X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fgethostname.cl;h=fbb3539a6230914c3bd717bc992ece1e95c4f292;hb=baabff1a8dbf4813072d87f6977cd488c376fe56;hp=0b3ceda7820c3c3102714acdabf3bd7aa5a82ce8;hpb=bc5968d54cee0416db7db9ee2c7295489170bccf;p=uffi.git

diff --git a/examples/gethostname.cl b/examples/gethostname.cl
index 0b3ceda..fbb3539 100644
--- a/examples/gethostname.cl
+++ b/examples/gethostname.cl
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Copyright (c) 2002 Kevin M. Rosenberg
 ;;;;
-;;;; $Id: gethostname.cl,v 1.2 2002/03/09 21:19:31 kevin Exp $
+;;;; $Id: gethostname.cl,v 1.3 2002/03/10 04:15:33 kevin Exp $
 ;;;;
 ;;;; This file is part of UFFI. 
 ;;;;
@@ -47,5 +47,6 @@
 	  (error "gethostname() failed."))
       (uffi:free-foreign-object name))))
     
+#+test-uffi
 (format t "~&Hostname: ~A" (gethostname))