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

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))