# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1024035300 0
# Node ID 7ec7fff5e57158d1904e8268096743b690f8280f
# Parent  5d2e84e46c561c57f76416dcae2ec29e21990dee
(pop): Move the call to `car' outside the prog1, as the compiler
generate better code for it.

diff -r 5d2e84e46c56 -r 7ec7fff5e571 lisp/subr.el
--- a/lisp/subr.el	Fri Jun 14 05:49:03 2002 +0000
+++ b/lisp/subr.el	Fri Jun 14 06:15:00 2002 +0000
@@ -89,8 +89,9 @@
 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."