bug#19613: 25.0.50; cl-labels bug

[Katsumi Yamaoka]

Hi,

This form got not to work recently:

(cl-labels ((fn (arg) arg))
  (apply #'fn (list "arg")))

It is because `fn' is not substituted with the one CL defines:

(let (--cl-fn--)
  (setq --cl-fn-- #'(lambda (arg) arg))
  (apply #'fn (list "arg")))

Thanks.

In GNU Emacs 25.0.50.1 (i686-pc-cygwin, GTK+ Version 3.10.9)
 of 2015-01-16 on localhost
Windowing system distributor `The Cygwin/X Project', version 11.0.11501000
Configured using:
 `configure --verbose --with-x-toolkit=gtk3'