Remove redundant OPERATION-DONE-P on TEST-OP

diff --git a/src/iolib.asd b/src/iolib.asd
index 6f60aea..8151049 100644 (file)
--- 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 0cace4d..c954c4e 100644 (file)
--- 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)