From: Nathan Trapuzzano <nbtrap@nbtrap.com>
Date: Mon, 11 Nov 2013 04:55:39 +0000 (-0500)
Subject: * lisp/emacs-lisp/cconv.el (cconv-convert): Print warning instead of
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=608c2085c4a3c9ae99a8f08d89da72cb080be412;p=emacs.git

* lisp/emacs-lisp/cconv.el (cconv-convert): Print warning instead of
throwing error over malformed let/let*.

Fixes: debbugs:15814
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b09fba703a7..a9eacb56383 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-11  Nathan Trapuzzano  <nbtrap@nbtrap.com>  (tiny change)
+
+	* emacs-lisp/cconv.el (cconv-convert): Print warning instead of
+	throwing error over malformed let/let* (bug#15814).
+
 2013-11-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* iswitchb.el (iswitchb-mode): Mark obsolete.
@@ -16,14 +21,13 @@
 
 2013-11-09  Andreas Schwab  <schwab@linux-m68k.org>
 
-	* progmodes/sh-script.el (sh-font-lock-keywords-var): Force
-	highlighting text after Summary keyword in doc face for rpm.
+	* progmodes/sh-script.el (sh-font-lock-keywords-var):
+	Force highlighting text after Summary keyword in doc face for rpm.
 
 2013-11-09  Dmitry Gutov  <dgutov@yandex.ru>
 
 	* textmodes/ispell.el (ispell-lookup-words): When `look' is not
-	available and the word has no wildcards, append one to the grep
-	pattern.
+	available and the word has no wildcards, append one to the grep pattern.
 	http://lists.gnu.org/archive/html/emacs-devel/2013-11/msg00258.html
 	(ispell-complete-word): Call `ispell-lookup-words' with the value
 	independent of `ispell-look-p'.
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index 2a236b35e56..f4f55667729 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -291,9 +291,9 @@ places where they originally did not directly appear."
          (let* ((value nil)
 		(var (if (not (consp binder))
 			 (prog1 binder (setq binder (list binder)))
-		       (cl-assert (null (cdr (cdr binder))) nil
-				  "malformed let binding: `%s'"
-                                  (prin1-to-string binder))
+                       (when (cddr binder)
+                         (byte-compile-log-warning
+                          (format "Malformed `%S' binding: %S" letsym binder)))
 		       (setq value (cadr binder))
 		       (car binder)))
 		(new-val