Commit 54993fa4 authored by Miles Bader's avatar Miles Bader
Browse files

(pop): Move the call to `car' outside the prog1, as the compiler

generate better code for it.
parent 68b08950
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>
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment