Remove redundant OPERATION-DONE-P on TEST-OP
authorStelian Ionescu <sionescu@cddr.org>
Mon, 21 Jan 2013 20:08:13 +0000 (21 21:08 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 21 Jan 2013 20:14:13 +0000 (21 21:14 +0100)
src/iolib.asd
tests/iolib-tests.asd

index 6f60aea..8151049 100644 (file)
@@ -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)
index 0cace4d..c954c4e 100644 (file)
@@ -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)