bug#11652: 24.1.50; CL: diverse `labels' related code doesn't work anymore

[Stefan Monnier]

>            (apply
>             'add-dirs-to-load-path

> ==> Error: apply: Symbol's function definition is void:
> add-dirs-to-load-path

> This had worked before.

Yes, that was a bug: if you quote with ' then CL is not allowed to look
inside the quoted expression to replace this symbol with a lexical
reference to the function you've defined.

I.e. if you use (apply #'add-dirs-to-load-path ...) then it will work
like you want it.

> ==> Error equal: Symbol's value as variable is void: temp-idx

Oops, thanks for catching this.  I've installed the patch below which
should fix it.

> 3. Just FYI: when I updated emacs-snapshot with aptitude on my Debian
> machine, the installation aborted because compilation of the Emms
> package files failed.  I had to remove EMMS.  This could be related,
> dunno.

Yes, please complain to Debian that such compilation errors should not
prevent installation of packages.  Hopefully, at some point they will
understand that their current handling of errors is wrong, but for that
you need to make your voice heard (I already made mine heard a few times).


        Stefan


=== modified file 'lisp/emacs-lisp/cl-macs.el'
--- lisp/emacs-lisp/cl-macs.el  2012-06-11 20:35:00 +0000
+++ lisp/emacs-lisp/cl-macs.el  2012-06-11 20:43:31 +0000
@@ -1108,7 +1108,7 @@
                      (let ((temp-len (make-symbol "--cl-len--")))
                        (push (list temp-len `(length ,temp-seq))
                              loop-for-bindings)
-                       (push (list var `(elt ,temp-seq temp-idx))
+                       (push (list var `(elt ,temp-seq ,temp-idx))
                              cl--loop-symbol-macs)
                        (push `(< ,temp-idx ,temp-len) cl--loop-body))
                    (push (list var nil) loop-for-bindings)