From ehuelsmann at common-lisp.net  Fri Aug 10 20:02:50 2007
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Fri, 10 Aug 2007 16:02:50 -0400 (EDT)
Subject: [usocket-cvs] r283 - usocket/trunk/backend
Message-ID: <20070810200250.0EDD81B000@common-lisp.net>

Author: ehuelsmann
Date: Fri Aug 10 16:02:49 2007
New Revision: 283

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Add support for Darwin x86.


Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Fri Aug 10 16:02:49 2007
@@ -10,7 +10,9 @@
   #+linuxppc-target
   (require "LINUX-SYSCALLS")
   #+darwinppc-target
-  (require "DARWIN-SYSCALLS"))
+  (require "DARWIN-SYSCALLS")
+  #+darwinx86-target
+  (require "DARWINX8664-SYSCALLS"))
 
 (defun get-host-name ()
   (ccl::%stack-block ((resultbuf 256))


From ehuelsmann at common-lisp.net  Sun Aug 12 22:38:58 2007
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Sun, 12 Aug 2007 18:38:58 -0400 (EDT)
Subject: [usocket-cvs] r284 - usocket/trunk
Message-ID: <20070812223858.A6F292817E@common-lisp.net>

Author: ehuelsmann
Date: Sun Aug 12 18:38:57 2007
New Revision: 284

Modified:
   usocket/trunk/usocket.lisp
Log:
Fix error in wait-for-input where no timeout is specified: don't do
number (real) comparison with NIL.


Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Sun Aug 12 18:38:57 2007
@@ -203,10 +203,11 @@
                     (list socket-or-sockets))
                   :timeout timeout)))
     (values result
-            (let ((elapsed (/ (- (get-internal-real-time) start)
-                              internal-time-units-per-second)))
-              (when (< elapsed timeout)
-                (- timeout elapsed))))))
+            (when timeout
+              (let ((elapsed (/ (- (get-internal-real-time) start)
+                                internal-time-units-per-second)))
+                (when (< elapsed timeout)
+                  (- timeout elapsed)))))))
 
 ;;
 ;; IP(v4) utility functions


From ehuelsmann at common-lisp.net  Sun Aug 12 23:09:55 2007
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Sun, 12 Aug 2007 19:09:55 -0400 (EDT)
Subject: [usocket-cvs] r285 - usocket/trunk/backend
Message-ID: <20070812230955.1EDC156294@common-lisp.net>

Author: ehuelsmann
Date: Sun Aug 12 19:09:55 2007
New Revision: 285

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Fix eval-when evaluation conditions (fixing non-bound syscalls function).


Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Sun Aug 12 19:09:55 2007
@@ -5,7 +5,7 @@
 
 (in-package :usocket)
 
-(eval-when (:compile-toplevel :execute)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   ;; also present in OpenMCL l1-sockets.lisp
   #+linuxppc-target
   (require "LINUX-SYSCALLS")