reduce passes initial-value in the wrong order for single element sequences

[David Vázquez Púa]

For example:

(reduce 'cons '(1) :initial-value 0)

should be (0 . 1) but it evaluates to (1 . 0).

The behaviour is correct for longer lists.