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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Feb 17 07:46:10 2008
New Revision: 315

Modified:
   usocket/trunk/backend/lispworks.lisp
Log:
Remove obsolete HAS-NON-ERROR-STATE-P and HAS-NETWORK-ERRORS-P.

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Sun Feb 17 07:46:10 2008
@@ -300,20 +300,6 @@
 	  (unless (zerop (ldb (byte 1 i) event-map))
 	    (funcall func (fli:foreign-aref error-array i)))))))
 
-  (defun has-network-errors-p (network-events)
-    (map-network-events #'(lambda (err-code)
-			    (unless (zerop err-code)
-			      (return-from has-network-errors-p t)))
-			network-events)
-    nil)
-
-  (defun has-non-error-state-p (network-events)
-    (map-network-events #'(lambda (err-code)
-			    (when (zerop err-code)
-			      (return-from has-non-error-state-p t)))
-			network-errors)
-    nil)
-
   (defun sockets-ready (sockets)
     (remove-if-not
      #'(lambda (socket)