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