X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-queue%2Fsb-queue.asd;h=aa67ca2e2922c1defa364b8cbc725e2f1f7dbfb4;hb=7169796933b86601eaf70d3a9064600730cb2b40;hp=78ce92d74afab28a4a178c05109056522e16a4c9;hpb=e4c97b48dc9bb4d08df159e21871b624ff283ef5;p=sbcl.git

diff --git a/contrib/sb-queue/sb-queue.asd b/contrib/sb-queue/sb-queue.asd
index 78ce92d..aa67ca2 100644
--- a/contrib/sb-queue/sb-queue.asd
+++ b/contrib/sb-queue/sb-queue.asd
@@ -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 :cl-user)
 
-(in-package :sb-queue-system)
+(asdf:defsystem :sb-queue
+  :depends-on (:sb-concurrency)
+  :components ((:file "package")))
 
-(defsystem :sb-queue
-  :components ((:file "queue")))
-
-(defsystem :sb-queue-tests
-  :depends-on (:sb-queue :sb-rt)
-  :components ((:file "test-queue")))
-
-(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