(defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
(operate 'load-op 'hyperobject-tests)
(operate 'test-op 'hyperobject-tests :force t))
(defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
(operate 'load-op 'hyperobject-tests)
(operate 'test-op 'hyperobject-tests :force t))