Re: trunk r117969: Font-lock `cl-flet*', too.

[Leo Liu]

On 2014-09-29 14:41 +0800, Leo Liu wrote:
> +                           (lambda (f)
> +                             (and (memq f deps) (throw 'exit t))
> +                             f))

Can cause infinite loop if f is a lambda. So I have changed this
expansion to something like:

(lambda (f)
  (cond ((memq f deps) (throw 'exit t))
        ((symbolp f) f)
        ;; Fail on the safe side.
        (t (throw 'exit t))))

Leo