- ;;(:file "iodefs" :depends-on ("package"))
- ))
-
-(defmethod perform :after ((o load-op)
- (c (eql (find-system :sb-simple-streams))))
- (provide 'sb-simple-streams))
-
-(defmethod perform ((o test-op) (c (eql (find-system :sb-simple-streams))))
- (operate 'load-op 'sb-simple-streams-tests)
- (operate 'test-op 'sb-simple-streams-tests))
+ )
+ :perform (load-op :after (o c) (provide 'sb-simple-streams))
+ :perform (test-op (o c) (test-system 'sb-simple-streams/tests)))