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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu May 17 18:03:55 2007
New Revision: 245

Modified:
   usocket/trunk/backend/scl.lisp
Log:
Add cl-smtp 'requirement': get-host-name (SCL backend); needs verification.

Modified: usocket/trunk/backend/scl.lisp
==============================================================================
--- usocket/trunk/backend/scl.lisp	(original)
+++ usocket/trunk/backend/scl.lisp	Thu May 17 18:03:55 2007
@@ -129,3 +129,6 @@
                    (t
                     (error 'ns-unknown-error :host-or-ip name
                            :real-error errno))))))))
+
+(defun get-host-name ()
+  (unix:unix-gethostname))