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")
11 (:file "iodefs" :depends-on ("package"))
13 ;;(:file "ext-format" :depends-on ("package"))
14 (:file "classes" :depends-on ("iodefs"))
15 (:file "internal" :depends-on ("classes"))
16 (:file "strategy" :depends-on ("internal"))
17 (:file "impl" :depends-on ("internal" "fndb"))
18 (:file "file" :depends-on ("strategy"))
19 (:file "direct" :depends-on ("strategy"))
20 (:file "null" :depends-on ("strategy"))
21 (:file "socket" :depends-on ("strategy"))
22 (:file "string" :depends-on ("strategy"))
23 (:file "terminal" :depends-on ("strategy"))
24 ;;(:file "gray-compat" :depends-on ("package"))
27 (defmethod perform :after ((o load-op)
28 (c (eql (find-system :sb-simple-streams))))
29 (provide 'sb-simple-streams))
31 (defmethod perform ((o test-op) (c (eql (find-system :sb-simple-streams))))
32 (operate 'load-op 'sb-simple-streams-tests)
33 (operate 'test-op 'sb-simple-streams-tests))
36 (defsystem sb-simple-streams-tests
37 :depends-on (sb-rt sb-simple-streams)
38 :components ((:file "simple-stream-tests")))
40 (defmethod perform ((o test-op)
41 (c (eql (find-system :sb-simple-streams-tests))))
42 (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
43 (error "test-op failed")))