Mercurial > hg > xemacs-beta
comparison lisp/cl.el @ 5354:22c4e67a2e69
Remove #'acons from cl.el, make the version in alloc.c visible to Lisp
src/ChangeLog addition:
2011-02-09 Aidan Kehoe <kehoea@parhasard.net>
* alloc.c (Facons):
* alloc.c (Fobject_memory_usage):
* alloc.c (syms_of_alloc):
* faces.c (complex_vars_of_faces):
* lisp.h:
* mc-alloc.c (Fmc_alloc_memory_usage):
Rename acons() to Facons(), make it visible to Lisp. Change uses
of the function in C accordingly.
lisp/ChangeLog addition:
2011-02-09 Aidan Kehoe <kehoea@parhasard.net>
* cl.el (acons): Removed, make the implementation in alloc.c
visible to Lisp instead.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 09 Feb 2011 20:15:50 +0000 |
| parents | 38e24b8be4ea |
| children | 436e67ca8c79 00e79bbbe48f |
comparison
equal
deleted
inserted
replaced
| 5353:38e24b8be4ea | 5354:22c4e67a2e69 |
|---|---|
| 542 (defalias 'cl-ceiling 'ceiling*) | 542 (defalias 'cl-ceiling 'ceiling*) |
| 543 (defalias 'cl-truncate 'truncate*) | 543 (defalias 'cl-truncate 'truncate*) |
| 544 (defalias 'cl-round 'round*) | 544 (defalias 'cl-round 'round*) |
| 545 (defalias 'cl-mod 'mod*) | 545 (defalias 'cl-mod 'mod*) |
| 546 | 546 |
| 547 (defun acons (key value alist) | 547 ;;; XEmacs; #'acons is in C. |
| 548 "Return a new alist created by adding (KEY . VALUE) to ALIST." | |
| 549 (cons (cons key value) alist)) | |
| 550 | 548 |
| 551 (defun pairlis (keys values &optional alist) | 549 (defun pairlis (keys values &optional alist) |
| 552 "Make an alist from KEYS and VALUES. | 550 "Make an alist from KEYS and VALUES. |
| 553 Return a new alist composed by associating KEYS to corresponding VALUES; | 551 Return a new alist composed by associating KEYS to corresponding VALUES; |
| 554 the process stops as soon as KEYS or VALUES run out. | 552 the process stops as soon as KEYS or VALUES run out. |