From: Tobias R. <tri...@us...> - 2010-03-30 10:46:53
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-queue In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv3649/contrib/sb-queue Modified Files: sb-queue.asd sb-queue.texinfo Log Message: 1.0.37.18: New contrib SB-CONCURRENCY. sb-concurrency related changes: * create contrib/sb-concurrency/ * add the implementation of lock-free Queues from sb-queue. * add a new implementation of Mailboxes on top of the Queues. sb-queue related changes: * merged into sb-concurrency * deprecated now, but the system / package is still retained for backwards compatibility; the package simply reexports from sb-concurrency. doc changes: * add section for sb-concurrency to manual Index: sb-queue.asd =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-queue/sb-queue.asd,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- sb-queue.asd 18 Dec 2009 13:21:47 -0000 1.1 +++ sb-queue.asd 30 Mar 2010 10:46:44 -0000 1.2 @@ -9,25 +9,17 @@ ;;;; provided with absolutely no warranty. See the COPYING and CREDITS ;;;; files for more information. -(defpackage :sb-queue-system - (:use :asdf :cl)) - -(in-package :sb-queue-system) - -(defsystem :sb-queue - :components ((:file "queue"))) +(in-package :cl-user) -(defsystem :sb-queue-tests - :depends-on (:sb-queue :sb-rt) - :components ((:file "test-queue"))) +(asdf:defsystem :sb-queue + :depends-on (:sb-concurrency) + :components ((:file "package"))) -(defmethod perform :after ((o load-op) (c (eql (find-system :sb-queue)))) +(defmethod asdf:perform :after ((o asdf:load-op) + (c (eql (asdf:find-system :sb-queue)))) (provide 'sb-queue)) -(defmethod perform ((o test-op) (c (eql (find-system :sb-queue)))) - (operate 'load-op :sb-queue-tests) - (operate 'test-op :sb-queue-tests)) -(defmethod perform ((op test-op) (com (eql (find-system :sb-queue-tests)))) - (or (funcall (intern "DO-TESTS" (find-package "SB-RT"))) - (error "~S failed" 'test-op))) +(defmethod asdf:perform ((o asdf:test-op) + (c (eql (asdf:find-system :sb-queue)))) + :pass) \ No newline at end of file Index: sb-queue.texinfo =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-queue/sb-queue.texinfo,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- sb-queue.texinfo 22 Jun 2009 11:53:51 -0000 1.1 +++ sb-queue.texinfo 30 Mar 2010 10:46:44 -0000 1.2 @@ -2,19 +2,5 @@ @section sb-queue @cindex Queue, FIFO -The @code{sb-queue} module, loadable by -@lisp -(require :sb-queue) -@end lisp -provides a thread-safe lockless FIFO queues. - -@include struct-sb-queue-queue.texinfo - -@include fun-sb-queue-dequeue.texinfo -@include fun-sb-queue-enqueue.texinfo -@include fun-sb-queue-list-queue-contents.texinfo -@include fun-sb-queue-make-queue.texinfo -@include fun-sb-queue-queue-count.texinfo -@include fun-sb-queue-queue-empty-p.texinfo -@include fun-sb-queue-queue-name.texinfo -@include fun-sb-queue-queuep.texinfo +Since SBCL 1.0.38, the @code{sb-queue} module has been merged into the +@code{sb-concurrency} module (@pxref{sb-concurrency}.) |