[usocket-cvs] r238 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed May 16 02:49:25 2007
New Revision: 238

Modified:
   usocket/trunk/backend/cmucl.lisp
Log:
Add cl-smtp 'requirement': get-host-name (CMUCL backend).

Modified: usocket/trunk/backend/cmucl.lisp
==============================================================================
--- usocket/trunk/backend/cmucl.lisp	(original)
+++ usocket/trunk/backend/cmucl.lisp	Wed May 16 02:49:25 2007
@@ -160,3 +160,5 @@
                          (lookup-host-entry name)))
     (condition (condition) (handle-condition condition))))
 
+(defun get-host-name ()
+  (unix:unix-gethostname))