Control stack exhaustion after bogus invalid number of argument error in APPLY

[Paul F. Dietz]

Found with random tester.

(defun f7 ()
  (declare (optimize (debug 3) (speed 0) (compilation-speed 0) (safety 2)
                     (space 2)))
  (flet ((%f2 (f2-1 f2-2 &optional (f2-3 0) &key)
           0))
    (loop for lv1 below 3
       sum (apply #'%f2 0 (list 347666 lv1)))))

(f7) ==>

debugger invoked on a SB-INT:SIMPLE-PROGRAM-ERROR in thread
#<THREAD "main thread" RUNNING {1001918083}>:
  invalid number of arguments: 70368626065736

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [REPLACE-FUNCTION] Call a different function with the same arguments
  1: [CALL-FORM ] Call a different form
  2: [ABORT ] Exit debugger, returning to top level.

fatal error encountered in SBCL pid 22834(tid 0x7ffff7fda700):
Control stack exhausted, fault: 0x7ffff1cbfff8, PC: 0x21bc81c4

[Stas Boukarev (stassats)]

43b5ec2f8d34475c4649ab4bc646e52e8b26bdfd