[usocket-cvs] r395 - in usocket: branches/0.4.x branches/0.4.x/backend trunk trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 27 15:36:10 2008
New Revision: 395

Modified:
   usocket/branches/0.4.x/backend/cmucl.lisp
   usocket/branches/0.4.x/usocket.lisp
   usocket/trunk/backend/cmucl.lisp
   usocket/trunk/usocket.lisp
Log:
Fix CMUCL: 1) remove premature optimization (inline declaration)
 2) Remove ignore declaration of used parameters

Found by: Chun Tian

Modified: usocket/branches/0.4.x/backend/cmucl.lisp
==============================================================================
--- usocket/branches/0.4.x/backend/cmucl.lisp	(original)
+++ usocket/branches/0.4.x/backend/cmucl.lisp	Sun Jul 27 15:36:10 2008
@@ -170,11 +170,9 @@
   (declare (ignore wait-list)))
 
 (defun %add-waiter (wait-list waiter)
-  (declare (ignore wait-list waiter))
   (push (socket waiter) (wait-list-%wait wait-list)))
 
 (defun %remove-waiter (wait-list waiter)
-  (declare (ignore wait-list waiter))
   (setf (wait-list-%wait wait-list)
         (remove (socket waiter) (wait-list-%wait waiter))))
 

Modified: usocket/branches/0.4.x/usocket.lisp
==============================================================================
--- usocket/branches/0.4.x/usocket.lisp	(original)
+++ usocket/branches/0.4.x/usocket.lisp	Sun Jul 27 15:36:10 2008
@@ -226,10 +226,6 @@
 ;;  %add-waiter
 ;;  %remove-waiter
 
-(declaim (inline %setup-wait-list
-                 %add-waiter
-                 %remove-waiter))
-
 (defun make-wait-list (waiters)
   (let ((wl (%make-wait-list)))
     (setf (wait-list-map wl) (make-hash-table))

Modified: usocket/trunk/backend/cmucl.lisp
==============================================================================
--- usocket/trunk/backend/cmucl.lisp	(original)
+++ usocket/trunk/backend/cmucl.lisp	Sun Jul 27 15:36:10 2008
@@ -172,11 +172,9 @@
   (declare (ignore wait-list)))
 
 (defun %add-waiter (wait-list waiter)
-  (declare (ignore wait-list waiter))
   (push (socket waiter) (wait-list-%wait wait-list)))
 
 (defun %remove-waiter (wait-list waiter)
-  (declare (ignore wait-list waiter))
   (setf (wait-list-%wait wait-list)
         (remove (socket waiter) (wait-list-%wait waiter))))
 

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Sun Jul 27 15:36:10 2008
@@ -232,10 +232,6 @@
 ;;  %add-waiter
 ;;  %remove-waiter
 
-(declaim (inline %setup-wait-list
-                 %add-waiter
-                 %remove-waiter))
-
 (defun make-wait-list (waiters)
   (let ((wl (%make-wait-list)))
     (setf (wait-list-map wl) (make-hash-table))