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 #+sb-building-contrib :pathname
10 #+sb-building-contrib "SYS:CONTRIB;SB-SIMPLE-STREAMS;"
11 :components ((:file "package")
13 (:file "iodefs" :depends-on ("package"))
15 ;;(:file "ext-format" :depends-on ("package"))
16 (:file "classes" :depends-on ("iodefs"))
17 (:file "internal" :depends-on ("classes"))
18 (:file "strategy" :depends-on ("internal"))
19 (:file "impl" :depends-on ("internal" "fndb" "file" "string"))
20 (:file "file" :depends-on ("strategy"))
21 (:file "direct" :depends-on ("strategy"))
22 (:file "null" :depends-on ("strategy"))
23 (:file "socket" :depends-on ("strategy"))
24 (:file "string" :depends-on ("strategy"))
25 (:file "terminal" :depends-on ("strategy"))
26 ;;(:file "gray-compat" :depends-on ("package"))
29 (defmethod perform :after ((o load-op)
30 (c (eql (find-system :sb-simple-streams))))
31 (provide 'sb-simple-streams))
33 (defmethod perform ((o test-op) (c (eql (find-system :sb-simple-streams))))
34 (operate 'load-op 'sb-simple-streams-tests)
35 (operate 'test-op 'sb-simple-streams-tests))
38 (defsystem sb-simple-streams-tests
39 :depends-on (sb-rt sb-simple-streams)
40 :components ((:file "simple-stream-tests")))
42 (defmethod perform ((o test-op)
43 (c (eql (find-system :sb-simple-streams-tests))))
44 (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
45 (error "test-op failed")))