[nio-cvs] r103 - branches/home/psmith/restructure/src/utils

[psmith at common-lisp.net]

Author: psmith
Date: Thu Mar  1 19:41:30 2007
New Revision: 103

Modified:
   branches/home/psmith/restructure/src/utils/concurrent-queue.lisp
Log:
Improved debug output from queue

Modified: branches/home/psmith/restructure/src/utils/concurrent-queue.lisp
==============================================================================
--- branches/home/psmith/restructure/src/utils/concurrent-queue.lisp	(original)
+++ branches/home/psmith/restructure/src/utils/concurrent-queue.lisp	Thu Mar  1 19:41:30 2007
@@ -65,7 +65,7 @@
 
 ;Append the element to the tail of this queue
 (defmethod add ((queue concurrent-queue) elt)
-#+nio-debug (format-log t "concurent-queue:add - (~A) adding ~A~%" sb-thread:*current-thread* elt)
+#+nio-debug (format-log t "concurent-queue:add - (~A) adding ~A to ~A~%" sb-thread:*current-thread* elt queue)
   (sb-thread:with-mutex ((buffer-lock queue))
     (setf (buffer queue) (append (buffer queue) (list elt)) )
     (sb-thread:condition-notify (buffer-queue queue))))