From: Miles Bader <miles@gnu.org>
Date: Fri, 14 Jun 2002 06:15:32 +0000 (+0000)
Subject: (pop): Move the call to `car' outside the prog1, as the compiler
X-Git-Tag: ttn-vms-21-2-B4~14617
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54993fa4b236d46144c946eddb8fcd2fb2bdfdac;p=emacs.git

(pop): Move the call to `car' outside the prog1, as the compiler
generate better code for it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25ad58cd136..47b0bbe8d1a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2002-06-14  Miles Bader  <miles@gnu.org>
 
 	* subr.el (copy-tree): Use `nconc' and `nreverse' instead of `nreconc'.
+	(pop): Move the call to `car' outside the prog1, as the compiler
+	then generates better code.
 
 2002-06-13  Richard M. Stallman  <rms@gnu.org>
 
diff --git a/lisp/subr.el b/lisp/subr.el
index 648ff0de3e3..1870e570623 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -89,8 +89,9 @@ LISTNAME must be a symbol."
 LISTNAME must be a symbol whose value is a list.
 If the value is nil, `pop' returns nil but does not actually
 change the list."
-  (list 'prog1 (list 'car listname)
-	(list 'setq listname (list 'cdr listname))))
+  (list 'car
+	(list 'prog1 listname
+	      (list 'setq listname (list 'cdr listname)))))
 
 (defmacro when (cond &rest body)
   "If COND yields non-nil, do BODY, else return nil."