3 (defpackage #:sb-simple-stream-system (:use #:asdf #:cl))
4 (in-package #:sb-simple-stream-system)
7 (defsystem sb-simple-streams
8 :depends-on (sb-bsd-sockets sb-posix)
9 :components ((:file "package")
12 ;;(:file "ext-format" :depends-on ("package"))
13 (:file "classes" :depends-on ("package"))
14 (:file "internal" :depends-on ("classes"))
15 (:file "strategy" :depends-on ("internal"))
16 (:file "cl" :depends-on ("internal" "fndb"))
17 (:file "simple-streams" :depends-on ("cl" "strategy"))
18 ;;(:file "gray-compat" :depends-on ("package"))
19 ;;(:file "iodefs" :depends-on ("package"))
22 (defmethod perform :after ((o load-op)
23 (c (eql (find-system :sb-simple-streams))))
24 (provide 'sb-simple-streams))
26 (defmethod perform ((o test-op) (c (eql (find-system :sb-simple-streams))))
27 (operate 'load-op 'sb-simple-streams-tests)
28 (operate 'test-op 'sb-simple-streams-tests))
31 (defsystem sb-simple-streams-tests
32 :depends-on (sb-rt sb-simple-streams)
33 :components ((:file "simple-stream-tests")))
35 (defmethod perform ((o test-op)
36 (c (eql (find-system :sb-simple-streams-tests))))
37 (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
38 (error "test-op failed")))