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))