Changeset 4169 for trunk/lisp/emacs-lisp/cl.el
- Timestamp:
- 09/30/06 09:12:06 (2 years ago)
- Files:
-
- trunk/lisp (modified) (1 prop)
- trunk/lisp/emacs-lisp/cl.el (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp
- Property svn:ignore changed from
*.elc
MANIFEST
Makefile
Makefile.unix
makefile
elc.tar.gz
cus-load.el
finder-inf.el
subdirs.el
loaddefs.el
to
*.elc
MANIFEST
Makefile
Makefile.unix
makefile
elc.tar.gz
cus-load.el
finder-inf.el
subdirs.el
loaddefs.el
pre-mh-loaddefs.el-CMD
- Property svn:ignore changed from
trunk/lisp/emacs-lisp/cl.el
r4166 r4169 160 160 (if (symbolp place) 161 161 (if (null keys) 162 `(let ((pushnew-internal ,place)) 163 (add-to-list 'pushnew-internal ,x nil 'eql) 164 (setq ,place pushnew-internal)) 162 `(if (memql ,x ,place) ,place (setq ,place (cons ,x ,place))) 165 163 (list 'setq place (list* 'adjoin x place keys))) 166 164 (list* 'callf2 'adjoin x place keys)))
