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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu May 17 16:54:47 2007
New Revision: 242

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

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Thu May 17 16:54:47 2007
@@ -6,7 +6,13 @@
 (in-package :usocket)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (require :sock))
+  (require :sock)
+  ;; note: the line below requires ACL 6.2+
+  (require :osi))
+
+(defun get-host-name ()
+  ;; note: the line below requires ACL 7.0+ to actually *work* on windows
+  (excl.osi:gethostname))
 
 (defparameter +allegro-identifier-error-map+
   '((:address-in-use . address-in-use-error)