*** /tmp/ediff139941AX	2015-11-18 11:12:07.788012282 +0100
--- /home/micha/software/emacs/lisp/emacs-lisp/macroexp.el	2015-11-18 10:47:41.041352909 +0100
***************
*** 331,337 ****
    (cond
     ((null bindings) exp)
     ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp)))
!    (t `(let* ,bindings ,exp))))
  
  (defun macroexp-if (test then else)
    "Return an expression equivalent to `(if ,TEST ,THEN ,ELSE)."
--- 331,337 ----
    (cond
     ((null bindings) exp)
     ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp)))
!    (t `(let* ,bindings ,@(macroexp-unprogn exp)))))
  
  (defun macroexp-if (test then else)
    "Return an expression equivalent to `(if ,TEST ,THEN ,ELSE)."