Mercurial > emacs
changeset 45823:7ec7fff5e571
(pop): Move the call to `car' outside the prog1, as the compiler
generate better code for it.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 14 Jun 2002 06:15:00 +0000 |
| parents | 5d2e84e46c56 |
| children | b259c26821aa |
| files | lisp/subr.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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."