From: Dave Love <fx@gnu.org>
Date: Sun, 5 Jan 2003 00:28:18 +0000 (+0000)
Subject: (byte-optimize-nth)
X-Git-Tag: ttn-vms-21-2-B4~11841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56cfa2440ebcfe17fa70175165effc24bfa44b3d;p=emacs.git

(byte-optimize-nth)
(byte-optimize-nthcdr): Fix for case of wrong-length forms.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 8a44ea020f3..7ccd2698b2c 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1097,21 +1097,25 @@
 
 (put 'nth 'byte-optimizer 'byte-optimize-nth)
 (defun byte-optimize-nth (form)
-  (if (and (= (safe-length form) 3) (memq (nth 1 form) '(0 1)))
-      (list 'car (if (zerop (nth 1 form))
-		     (nth 2 form)
-		   (list 'cdr (nth 2 form))))
-    (byte-optimize-predicate form)))
+  (if (= (safe-length form) 3)
+      (if (memq (nth 1 form) '(0 1))
+	  (list 'car (if (zerop (nth 1 form))
+			 (nth 2 form)
+		       (list 'cdr (nth 2 form))))
+	(byte-optimize-predicate form))
+    form))
 
 (put 'nthcdr 'byte-optimizer 'byte-optimize-nthcdr)
 (defun byte-optimize-nthcdr (form)
-  (if (and (= (safe-length form) 3) (not (memq (nth 1 form) '(0 1 2))))
-      (byte-optimize-predicate form)
-    (let ((count (nth 1 form)))
-      (setq form (nth 2 form))
-      (while (>= (setq count (1- count)) 0)
-	(setq form (list 'cdr form)))
-      form)))
+  (if (= (safe-length form) 3)
+      (if (memq (nth 1 form) '(0 1 2))
+	  (let ((count (nth 1 form)))
+	    (setq form (nth 2 form))
+	    (while (>= (setq count (1- count)) 0)
+	      (setq form (list 'cdr form)))
+	    form)
+	(byte-optimize-predicate form))
+    form))
 
 (put 'concat 'byte-optimizer 'byte-optimize-concat)
 (defun byte-optimize-concat (form)