uffi/examples gethostname.lisp,1.2,1.3

Update of /pubcvs/uffi/examples
In directory boa.b9.com:/tmp/cvs-serv29489/examples

Modified Files:
	gethostname.lisp 
Log Message:



Index: gethostname.lisp
===================================================================
RCS file: /pubcvs/uffi/examples/gethostname.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** gethostname.lisp	25 Nov 2002 19:04:57 -0000	1.2
--- gethostname.lisp	2 Dec 2002 13:21:43 -0000	1.3
***************
*** 35,39 ****
      (uffi:free-foreign-object name)
      (unless (zerop result-code)
!       (error "gethostname() failed."))))
  
  (defun gethostname2 ()
--- 35,40 ----
      (uffi:free-foreign-object name)
      (unless (zerop result-code)
!       (error "gethostname() failed."))
!     hostname))
  
  (defun gethostname2 ()