Konungen var klädd igeneralsuniform