projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
killing lutexes, adding timeouts
[sbcl.git]
/
contrib
/
sb-queue
/
sb-queue.asd
diff --git
a/contrib/sb-queue/sb-queue.asd
b/contrib/sb-queue/sb-queue.asd
index
78ce92d
..
aa67ca2
100644
(file)
--- 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.
;;;; 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))
(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