Mercurial > emacs
comparison src/alloc.c @ 20849:3b2f72ed135c
(list2, list3, list4, list5): New functions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 05 Feb 1998 03:28:36 +0000 |
| parents | 6ebcbdec2e07 |
| children | 371ed7bdfd2b |
comparison
equal
deleted
inserted
replaced
| 20848:4c3e62fe8898 | 20849:3b2f72ed135c |
|---|---|
| 715 XCONS (val)->car = car; | 715 XCONS (val)->car = car; |
| 716 XCONS (val)->cdr = cdr; | 716 XCONS (val)->cdr = cdr; |
| 717 consing_since_gc += sizeof (struct Lisp_Cons); | 717 consing_since_gc += sizeof (struct Lisp_Cons); |
| 718 cons_cells_consed++; | 718 cons_cells_consed++; |
| 719 return val; | 719 return val; |
| 720 } | |
| 721 | |
| 722 /* Make a list of 2, 3, 4 or 5 specified objects. */ | |
| 723 | |
| 724 Lisp_Object | |
| 725 list2 (arg1, arg2) | |
| 726 Lisp_Object arg1, arg2; | |
| 727 { | |
| 728 return Fcons (arg1, Fcons (arg2, Qnil)); | |
| 729 } | |
| 730 | |
| 731 Lisp_Object | |
| 732 list3 (arg1, arg2, arg3) | |
| 733 Lisp_Object arg1, arg2, arg3; | |
| 734 { | |
| 735 return Fcons (arg1, Fcons (arg2, Fcons (arg3, Qnil))); | |
| 736 } | |
| 737 | |
| 738 Lisp_Object | |
| 739 list4 (arg1, arg2, arg3, arg4) | |
| 740 Lisp_Object arg1, arg2, arg3, arg4; | |
| 741 { | |
| 742 return Fcons (arg1, Fcons (arg2, Fcons (arg3, Fcons (arg4, Qnil)))); | |
| 743 } | |
| 744 | |
| 745 Lisp_Object | |
| 746 list5 (arg1, arg2, arg3, arg4, arg5) | |
| 747 Lisp_Object arg1, arg2, arg3, arg4, arg5; | |
| 748 { | |
| 749 return Fcons (arg1, Fcons (arg2, Fcons (arg3, Fcons (arg4, | |
| 750 Fcons (arg5, Qnil))))); | |
| 720 } | 751 } |
| 721 | 752 |
| 722 DEFUN ("list", Flist, Slist, 0, MANY, 0, | 753 DEFUN ("list", Flist, Slist, 0, MANY, 0, |
| 723 "Return a newly created list with specified arguments as elements.\n\ | 754 "Return a newly created list with specified arguments as elements.\n\ |
| 724 Any number of arguments, even zero arguments, are allowed.") | 755 Any number of arguments, even zero arguments, are allowed.") |