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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Apr 11 17:24:24 2008
New Revision: 328

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Use #_select instead of syscalls; by Hans Huebner (hans at huebner dot org).

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Fri Apr 11 17:24:24 2008
@@ -5,15 +5,6 @@
 
 (in-package :usocket)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  ;; also present in OpenMCL l1-sockets.lisp
-  #+linuxppc-target
-  (require "LINUX-SYSCALLS")
-  #+darwinppc-target
-  (require "DARWIN-SYSCALLS")
-  #+darwinx86-target
-  (require "DARWINX8664-SYSCALLS"))
-
 (defun get-host-name ()
   (ccl::%stack-block ((resultbuf 256))
     (when (zerop (#_gethostname resultbuf 256))
@@ -48,9 +39,9 @@
           (let ((fd (openmcl-socket:socket-os-fd sock)))
             (setf max-fd (max max-fd fd))
             (ccl::fd-set fd infds)))
-        (let* ((res (ccl::syscall syscalls::select (1+ max-fd)
-                                  infds (ccl::%null-ptr) (ccl::%null-ptr)
-                                  (if ticks-to-wait tv (ccl::%null-ptr)))))
+        (let* ((res (#_select (1+ max-fd)
+                              infds (ccl::%null-ptr) (ccl::%null-ptr)
+                              (if ticks-to-wait tv (ccl::%null-ptr)))))
           (when (> res 0)
             (remove-if #'(lambda (x)
                            (not (ccl::fd-is-set (openmcl-socket:socket-os-fd x)