Author: psmith Date: Tue Jan 16 20:39:51 2007 New Revision: 39
Modified: branches/home/psmith/restructure/src/compat/concurrent-queue.lisp branches/home/psmith/restructure/src/compat/nio-compat-package.lisp branches/home/psmith/restructure/src/compat/nio-compat.asd Log: asdf updates for queue
Modified: branches/home/psmith/restructure/src/compat/concurrent-queue.lisp ============================================================================== --- branches/home/psmith/restructure/src/compat/concurrent-queue.lisp (original) +++ branches/home/psmith/restructure/src/compat/concurrent-queue.lisp Tue Jan 16 20:39:51 2007 @@ -40,6 +40,9 @@ (buffer :initform nil :accessor buffer)))
+(defun concurrent-queue() + (make-instance 'concurrent-queue)) + (defmacro pop-elt(a-buffer loc) `(if ,a-buffer (let ((head (car ,a-buffer)))
Modified: branches/home/psmith/restructure/src/compat/nio-compat-package.lisp ============================================================================== --- branches/home/psmith/restructure/src/compat/nio-compat-package.lisp (original) +++ branches/home/psmith/restructure/src/compat/nio-compat-package.lisp Tue Jan 16 20:39:51 2007 @@ -31,4 +31,6 @@ ;; errno.lisp get-errno +ERRNO_EAGAIN+ + ;;concurrent-queue + concurrent-queue add take ))
Modified: branches/home/psmith/restructure/src/compat/nio-compat.asd ============================================================================== --- branches/home/psmith/restructure/src/compat/nio-compat.asd (original) +++ branches/home/psmith/restructure/src/compat/nio-compat.asd Tue Jan 16 20:39:51 2007 @@ -6,6 +6,7 @@
:components ((:file "nio-compat-package") (:file "errno" :depends-on ("nio-compat-package")) + (:file "concurrent-queue" :depends-on ("nio-compat-package")) )
:depends-on ())