-(defmethod ((o test-op) (c (eql (find-system :base64))))
- (or (load (compile-file "base64-tests.lisp"))
- (error "test-op failed")))
+(defmethod perform ((o test-op) (c (eql (find-system :base64))))
+ (or (load "base64-tests.lisp")
+ (error "test-op failed")))