mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
generate better code for it.
This commit is contained in:
Miles Bader 2002-06-14 06:15:32 +00:00
parent 68b0895090
commit 54993fa4b2
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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>

5
lisp/subr.el
View file

@ -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."