is this a bug? (accidentals and atonicKey)

[Mehmet Okonsar]

accidentals, at the left hand part at the end of that fragment repeat
unexpectedly..
I wasn't able to figure out why?
Please look at the end for the left hand part the code is commented.

---------------------------------------

\version "2.7.12"
\include "english.ly"

\header {

}

%================================== ATONIC KEY v.2 DECLARATION
atonicKey = { \set Staff.keySignature = #'((4 . 5)
                              (5 . 5)
                              (6 . 5)
                              (0 . 5)
                              (1 . 5)
                              (2 . 5)
                              (3 . 5))

\set Score.extraNatural = ##f }
%=============================================================
unmeteredOn =
    {
        \set Timing.measureLength = #(ly:make-moment 1 4)
        \set Timing.automaticBars = ##f
    }

\paper
    {
        #(set-default-paper-size "a4" ) % ----- set other formats here
    }
%===================================================================== Piano RH
\score {

\new PianoStaff {
    \unmeteredOn {
<<
    \context Staff = "RH"
{
    \clef treble
    \atonicKey
    
\override TextScript #'padding = #8.0
r8.^\markup { \small \general-align #Y #DOWN \note #"4" #+0.75  "="
    \small \general-align #Y #DOWN "ca 42MM" }

\override Score.OttavaBracket #'padding = #3.0
#(set-octavation 1 )
\once \override Voice.DynamicText #'extra-offset = #'(-5 . -2)
<d''' e''' cs''''>16\ppp-- ~ <d''' e''' cs''''>16
<d''' e''' cs''''>8-- #(set-octavation 0 )
r16

\bar "|"
%-------------------- BAR:2
r8. b''16 \< ( \mp c''16 d''8. ) \!
f''4 -> ( _\< ~ f''16 bf' fs'8)~\!
<<
{ fs'16^(\> g'16 ~ g'4)\! } \\
{ <cs' d'>4. }
>>
\breathe
\bar "|"
%-------------------- BAR:3
\once \set tupletNumberFormatFunction = #fraction-tuplet-formatter
\times 8/7 { cs''8[\mf\<( a'' gs'' e''' ef'''\> g'' fs''\p)]~}
\bar "|"
%-------------------- BAR:4
fs''2 

} %------------------------------------------------------------------- Right 
Hand END
%===================================================================== Piano LH
    \context Staff = "LH"
{
    \clef bass
    \atonicKey
r8.
#(set-octavation -1 )
<d,, e,, cs,>16-- ~ <d,, e,, cs,>16
<d,, e,, cs,>8--
#(set-octavation 0 )
<ef af bf cf'>16\pp-- ~
%-------------------- BAR:2
<ef af bf cf'>4 \once \override Staff.Clef #'extra-offset = #'(-3 . 0)
\clef treble
\times 2/3 { <fs ef' f' a'>8 <fs ef' f' a'> <fs ef' f' a'> }
\clef bass
\times 4/5 {\stemDown
<gs c' d' fs'>8\< <gs c' d' fs'> <gs c' d' fs'>\>
g,8
<gs c' d' e'>8\! }
<b, e a>4.
%-------------------- BAR:3
r1
%-------------------- BAR:4
\clef treble
\times 2/3 { <ef' af' bf' cf''>8[ <ef' af' bf' cf''>8
% here the last chord repeats accidentals ??
%#(set-accidental-style 'no-reset)
% this was my inelegant solution for it..
<ef' af' bf' cf''>8] }  
%#(set-accidental-style 'default)
<<
    {
        \times 4/5 {<ef' f' gf' a'>16 <ef' f' gf' a'> <ef' f' gf' a'> <ef' f' 
gf' a'> <ef' f' gf' a'>}
    }% idem here..
\\
    {
        f4
    }
>>

} %------------------------------------------------------------------- left 
Hand END
>>%------------------------------------------------------------------- Piano 
>>Simultaneity End
} %------------------------------------------------------------------- 
Unmetered ON END
} 
%============================================================================== 
PIANO END
%====================================================================== LAYOUT 
BLOCK
\layout { indent = 1.5\cm
    \context
    {
        \Staff
            \remove "Time_signature_engraver"
    }
  }
  \midi { \tempo 4 = 42 }
}


------------- 
Best regards,
Mehmet Okonşar, pianist-composer
www.okonsar.com
address@hidden