repeated keyword error not caught by compile/compile-file

[3b]

(compile nil '(lambda () (defun foo (&key a a))))

=>

debugger invoked on a SIMPLE-ERROR in thread
#<THREAD "main thread" RUNNING {1003B57493}>:
  repeated keyword :A in lambda list: (&KEY (:A T) (:A T))

instead of just printing a message in compilation results as expected.
Same behavior with COMPILE-FILE.

(lambda (&key a a)), (defun foo (a a)), (defun foo (&optional a a)) all work as expected:

; in: LAMBDA (A A)
; (LAMBDA (A A))
;
; caught ERROR:
; The variable A occurs more than once in the lambda list.
;
; compilation unit finished
; caught 1 ERROR condition

or similar

tested on 1.2.11.70 x8664 windows, 1.2.10.49 x8664 linux, 1.2.7.54 arm linux

[Stas Boukarev (stassats)]

In 7827376d5727334698b949698f89e53e9b0aaf70