(defmethod perform ((o test-op) (c (eql (find-system 'kmrcl))))
(operate 'load-op 'kmrcl-tests)
(operate 'test-op 'kmrcl-tests))
(defmethod perform ((o test-op) (c (eql (find-system 'kmrcl))))
(operate 'load-op 'kmrcl-tests)
(operate 'test-op 'kmrcl-tests))