diff --git a/src/iolib.asd b/src/iolib.asd
index 6f60aeac24f1e1d2620aa3b40738b7db7fc8949f..8151049ddb08f1e44b373d2443bc4fe8e4736fb2 100644
--- a/src/iolib.asd
+++ b/src/iolib.asd
@@ -15,6 +15,3 @@
 
 (defmethod perform ((o test-op) (c (eql (find-system :iolib))))
   (oos 'test-op :iolib-tests))
-
-(defmethod operation-done-p ((o test-op) (c (eql (find-system :iolib))))
-  nil)
diff --git a/tests/iolib-tests.asd b/tests/iolib-tests.asd
index 0cace4d669e32e0caf015e070f5e7a9bed6fe223..c954c4ea52230161ff6db61bf0c11bdc42fe37ce 100644
--- a/tests/iolib-tests.asd
+++ b/tests/iolib-tests.asd
@@ -23,7 +23,3 @@
                     (c (eql (find-system :iolib-tests))))
   (operate 'load-op :iolib-tests)
   (funcall (intern (symbol-name '#:run!) '#:5am) :iolib))
-
-(defmethod operation-done-p ((o test-op)
-                             (c (eql (find-system :iolib-tests))))
-  nil)