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

[ehuelsmann at 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")