[nio-cvs] r39 - branches/home/psmith/restructure/src/compat

[psmith at common-lisp.net]

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