bug#18688: 24.3.94; `lisp--local-variables' fails in `cl--sm-macroexpand'

[Dmitry Gutov]

If I evaluate (lisp--local-variables) inside the `let' block in the last
`pcase' clause of the function mentioned above, I get this:

Debugger entered--Lisp error: (wrong-type-argument listp let*)
  car(let*)
  (cdr-safe (car (last bindings)))
  (car (cdr-safe (car (last bindings))))
  (lisp--local-variables-1 vars (car (cdr-safe (car (last bindings)))))
  (let ((vars vars)) (if (eq (quote let*) (car sexp)) (progn (let 
((--dolist-tail-- (cdr (reverse bindings)))) (while --dolist-tail-- (let 
((binding ...)) (setq vars (cons ... vars)) (setq --dolist-tail-- (cdr 
--dolist-tail--))))))) (lisp--local-variables-1 vars (car (cdr-safe (car (last 
bindings))))))
  ......
  lisp--local-variables()

(The full backtrace is pretty long).

In GNU Emacs 24.3.94.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.10.8)
 of 2014-10-06 on axl
Repository revision: 117555 sdl.web@gmail.com-20141005005838-oyl694hqhu2d3632
Windowing system distributor `The X.Org Foundation', version 11.0.11501000
System Description:     Ubuntu 14.04.1 LTS