(defmethod asdf:perform ((op asdf:test-op) (system (eql (find-system :FiveAM))))
(funcall (intern (string :run!) (string :it.bese.FiveAM)) :it.bese.FiveAM))
(defmethod asdf:perform ((op asdf:test-op) (system (eql (find-system :FiveAM))))
(funcall (intern (string :run!) (string :it.bese.FiveAM)) :it.bese.FiveAM))