From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 24 Apr 1995 04:21:21 +0000 (+0000)
Subject: (byte-optimize-letX): Use car-safe and cdr-safe.
X-Git-Tag: emacs-19.34~4349
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d265171c80e735ef13fb8d2d0b57551e7183b41;p=emacs.git

(byte-optimize-letX): Use car-safe and cdr-safe.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 1d394511c96..6e89aa20435 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -940,7 +940,8 @@
 	 form)
 	 ;; The body is nil
 	((eq (car form) 'let)
-	 (append '(progn) (mapcar 'car (mapcar 'cdr (nth 1 form))) '(nil)))
+	 (append '(progn) (mapcar 'car-safe (mapcar 'cdr-safe (nth 1 form)))
+		 '(nil)))
 	(t
 	 (let ((binds (reverse (nth 1 form))))
 	   (list 'let* (reverse (cdr binds)) (nth 1 (car binds)) nil)))))