1
/*===========================================================================
2
* FileName : functable-r5rs-procedure.c
3
* About : Built-in function table
4
* This file is auto-generated by build_func_table.rb
6
* Copyright (C) 2005-2006 Kazuki Ohta <mover AT hct.zaq.ne.jp>
10
* Redistribution and use in source and binary forms, with or without
11
* modification, are permitted provided that the following conditions
14
* 1. Redistributions of source code must retain the above copyright
15
* notice, this list of conditions and the following disclaimer.
16
* 2. Redistributions in binary form must reproduce the above copyright
17
* notice, this list of conditions and the following disclaimer in the
18
* documentation and/or other materials provided with the distribution.
19
* 3. Neither the name of authors nor the names of its contributors
20
* may be used to endorse or promote products derived from this software
21
* without specific prior written permission.
23
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
24
* IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
25
* THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
26
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
27
* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
28
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
29
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
30
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
31
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
32
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
33
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
34
===========================================================================*/
36
static struct scm_func_registration_info scm_r5rs_procedure_func_info_table[] = {
38
{ "eval", (ScmFuncType)scm_p_eval, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
39
{ "apply", (ScmFuncType)scm_p_apply, (ScmRegisterFunc)scm_register_procedure_variadic_tailrec_2 },
40
{ "scheme-report-environment", (ScmFuncType)scm_p_scheme_report_environment, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
41
{ "null-environment", (ScmFuncType)scm_p_null_environment, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
42
{ "interaction-environment", (ScmFuncType)scm_p_interaction_environment, (ScmRegisterFunc)scm_register_procedure_fixed_0 },
45
{ "eq?", (ScmFuncType)scm_p_eqp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
46
{ "eqv?", (ScmFuncType)scm_p_eqvp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
47
{ "equal?", (ScmFuncType)scm_p_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
48
{ "not", (ScmFuncType)scm_p_not, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
49
{ "boolean?", (ScmFuncType)scm_p_booleanp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
50
{ "symbol?", (ScmFuncType)scm_p_symbolp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
51
{ "symbol->string", (ScmFuncType)scm_p_symbol2string, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
52
{ "string->symbol", (ScmFuncType)scm_p_string2symbol, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
53
{ "procedure?", (ScmFuncType)scm_p_procedurep, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
54
{ "map", (ScmFuncType)scm_p_map, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
55
{ "for-each", (ScmFuncType)scm_p_for_each, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
56
{ "force", (ScmFuncType)scm_p_force, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
57
{ "call-with-current-continuation", (ScmFuncType)scm_p_call_with_current_continuation, (ScmRegisterFunc)scm_register_procedure_fixed_tailrec_1 },
58
{ "values", (ScmFuncType)scm_p_values, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
59
{ "call-with-values", (ScmFuncType)scm_p_call_with_values, (ScmRegisterFunc)scm_register_procedure_fixed_tailrec_2 },
60
{ "dynamic-wind", (ScmFuncType)scm_p_dynamic_wind, (ScmRegisterFunc)scm_register_procedure_fixed_3 },
63
{ "car", (ScmFuncType)scm_p_car, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
64
{ "cdr", (ScmFuncType)scm_p_cdr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
65
{ "pair?", (ScmFuncType)scm_p_pairp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
66
{ "cons", (ScmFuncType)scm_p_cons, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
67
{ "set-car!", (ScmFuncType)scm_p_set_card, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
68
{ "set-cdr!", (ScmFuncType)scm_p_set_cdrd, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
69
{ "caar", (ScmFuncType)scm_p_caar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
70
{ "cadr", (ScmFuncType)scm_p_cadr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
71
{ "cdar", (ScmFuncType)scm_p_cdar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
72
{ "cddr", (ScmFuncType)scm_p_cddr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
73
{ "caddr", (ScmFuncType)scm_p_caddr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
74
{ "cdddr", (ScmFuncType)scm_p_cdddr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
75
{ "list", (ScmFuncType)scm_p_list, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
76
{ "null?", (ScmFuncType)scm_p_nullp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
77
{ "list?", (ScmFuncType)scm_p_listp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
78
{ "length", (ScmFuncType)scm_p_length, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
79
{ "append", (ScmFuncType)scm_p_append, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
80
{ "reverse", (ScmFuncType)scm_p_reverse, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
81
{ "list-tail", (ScmFuncType)scm_p_list_tail, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
82
{ "list-ref", (ScmFuncType)scm_p_list_ref, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
83
{ "memq", (ScmFuncType)scm_p_memq, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
84
{ "memv", (ScmFuncType)scm_p_memv, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
85
{ "member", (ScmFuncType)scm_p_member, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
86
{ "assq", (ScmFuncType)scm_p_assq, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
87
{ "assv", (ScmFuncType)scm_p_assv, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
88
{ "assoc", (ScmFuncType)scm_p_assoc, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
91
{ "+", (ScmFuncType)scm_p_add, (ScmRegisterFunc)scm_register_reduction_operator },
92
{ "*", (ScmFuncType)scm_p_multiply, (ScmRegisterFunc)scm_register_reduction_operator },
93
{ "-", (ScmFuncType)scm_p_subtract, (ScmRegisterFunc)scm_register_reduction_operator },
94
{ "/", (ScmFuncType)scm_p_divide, (ScmRegisterFunc)scm_register_reduction_operator },
95
{ "number?", (ScmFuncType)scm_p_numberp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
96
{ "integer?", (ScmFuncType)scm_p_integerp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
97
{ "=", (ScmFuncType)scm_p_equal, (ScmRegisterFunc)scm_register_reduction_operator },
98
{ "<", (ScmFuncType)scm_p_less, (ScmRegisterFunc)scm_register_reduction_operator },
99
{ "<=", (ScmFuncType)scm_p_less_equal, (ScmRegisterFunc)scm_register_reduction_operator },
100
{ ">", (ScmFuncType)scm_p_greater, (ScmRegisterFunc)scm_register_reduction_operator },
101
{ ">=", (ScmFuncType)scm_p_greater_equal, (ScmRegisterFunc)scm_register_reduction_operator },
102
{ "zero?", (ScmFuncType)scm_p_zerop, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
103
{ "positive?", (ScmFuncType)scm_p_positivep, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
104
{ "negative?", (ScmFuncType)scm_p_negativep, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
105
{ "odd?", (ScmFuncType)scm_p_oddp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
106
{ "even?", (ScmFuncType)scm_p_evenp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
107
{ "max", (ScmFuncType)scm_p_max, (ScmRegisterFunc)scm_register_reduction_operator },
108
{ "min", (ScmFuncType)scm_p_min, (ScmRegisterFunc)scm_register_reduction_operator },
109
{ "abs", (ScmFuncType)scm_p_abs, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
110
{ "quotient", (ScmFuncType)scm_p_quotient, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
111
{ "modulo", (ScmFuncType)scm_p_modulo, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
112
{ "remainder", (ScmFuncType)scm_p_remainder, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
113
{ "number->string", (ScmFuncType)scm_p_number2string, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
114
{ "string->number", (ScmFuncType)scm_p_string2number, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
117
{ "char?", (ScmFuncType)scm_p_charp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
118
{ "char=?", (ScmFuncType)scm_p_char_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
119
{ "char<?", (ScmFuncType)scm_p_char_lessp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
120
{ "char>?", (ScmFuncType)scm_p_char_greaterp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
121
{ "char<=?", (ScmFuncType)scm_p_char_less_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
122
{ "char>=?", (ScmFuncType)scm_p_char_greater_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
123
{ "char-ci=?", (ScmFuncType)scm_p_char_ci_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
124
{ "char-ci<?", (ScmFuncType)scm_p_char_ci_lessp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
125
{ "char-ci>?", (ScmFuncType)scm_p_char_ci_greaterp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
126
{ "char-ci<=?", (ScmFuncType)scm_p_char_ci_less_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
127
{ "char-ci>=?", (ScmFuncType)scm_p_char_ci_greater_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
128
{ "char-alphabetic?", (ScmFuncType)scm_p_char_alphabeticp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
129
{ "char-numeric?", (ScmFuncType)scm_p_char_numericp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
130
{ "char-whitespace?", (ScmFuncType)scm_p_char_whitespacep, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
131
{ "char-upper-case?", (ScmFuncType)scm_p_char_upper_casep, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
132
{ "char-lower-case?", (ScmFuncType)scm_p_char_lower_casep, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
133
{ "char->integer", (ScmFuncType)scm_p_char2integer, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
134
{ "integer->char", (ScmFuncType)scm_p_integer2char, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
135
{ "char-upcase", (ScmFuncType)scm_p_char_upcase, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
136
{ "char-downcase", (ScmFuncType)scm_p_char_downcase, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
139
{ "string?", (ScmFuncType)scm_p_stringp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
140
{ "make-string", (ScmFuncType)scm_p_make_string, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
141
{ "string", (ScmFuncType)scm_p_string, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
142
{ "string-length", (ScmFuncType)scm_p_string_length, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
143
{ "string-ref", (ScmFuncType)scm_p_string_ref, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
144
{ "string-set!", (ScmFuncType)scm_p_string_setd, (ScmRegisterFunc)scm_register_procedure_fixed_3 },
145
{ "string=?", (ScmFuncType)scm_p_stringequalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
146
{ "string-ci=?", (ScmFuncType)scm_p_string_ci_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
147
{ "string>?", (ScmFuncType)scm_p_string_greaterp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
148
{ "string<?", (ScmFuncType)scm_p_string_lessp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
149
{ "string>=?", (ScmFuncType)scm_p_string_greater_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
150
{ "string<=?", (ScmFuncType)scm_p_string_less_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
151
{ "string-ci>?", (ScmFuncType)scm_p_string_ci_greaterp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
152
{ "string-ci<?", (ScmFuncType)scm_p_string_ci_lessp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
153
{ "string-ci>=?", (ScmFuncType)scm_p_string_ci_greater_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
154
{ "string-ci<=?", (ScmFuncType)scm_p_string_ci_less_equalp, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
155
{ "substring", (ScmFuncType)scm_p_substring, (ScmRegisterFunc)scm_register_procedure_fixed_3 },
156
{ "string-append", (ScmFuncType)scm_p_string_append, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
157
{ "string->list", (ScmFuncType)scm_p_string2list, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
158
{ "list->string", (ScmFuncType)scm_p_list2string, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
159
{ "string-copy", (ScmFuncType)scm_p_string_copy, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
160
{ "string-fill!", (ScmFuncType)scm_p_string_filld, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
163
{ "vector?", (ScmFuncType)scm_p_vectorp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
164
{ "make-vector", (ScmFuncType)scm_p_make_vector, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
165
{ "vector", (ScmFuncType)scm_p_vector, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
166
{ "vector-length", (ScmFuncType)scm_p_vector_length, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
167
{ "vector-ref", (ScmFuncType)scm_p_vector_ref, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
168
{ "vector-set!", (ScmFuncType)scm_p_vector_setd, (ScmRegisterFunc)scm_register_procedure_fixed_3 },
169
{ "vector->list", (ScmFuncType)scm_p_vector2list, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
170
{ "list->vector", (ScmFuncType)scm_p_list2vector, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
171
{ "vector-fill!", (ScmFuncType)scm_p_vector_filld, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
174
{ "call-with-input-file", (ScmFuncType)scm_p_call_with_input_file, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
175
{ "call-with-output-file", (ScmFuncType)scm_p_call_with_output_file, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
176
{ "input-port?", (ScmFuncType)scm_p_input_portp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
177
{ "output-port?", (ScmFuncType)scm_p_output_portp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
178
{ "current-input-port", (ScmFuncType)scm_p_current_input_port, (ScmRegisterFunc)scm_register_procedure_fixed_0 },
179
{ "current-output-port", (ScmFuncType)scm_p_current_output_port, (ScmRegisterFunc)scm_register_procedure_fixed_0 },
180
{ "with-input-from-file", (ScmFuncType)scm_p_with_input_from_file, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
181
{ "with-output-to-file", (ScmFuncType)scm_p_with_output_to_file, (ScmRegisterFunc)scm_register_procedure_fixed_2 },
182
{ "open-input-file", (ScmFuncType)scm_p_open_input_file, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
183
{ "open-output-file", (ScmFuncType)scm_p_open_output_file, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
184
{ "close-input-port", (ScmFuncType)scm_p_close_input_port, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
185
{ "close-output-port", (ScmFuncType)scm_p_close_output_port, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
186
{ "read-char", (ScmFuncType)scm_p_read_char, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
187
{ "peek-char", (ScmFuncType)scm_p_peek_char, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
188
{ "eof-object?", (ScmFuncType)scm_p_eof_objectp, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
189
{ "char-ready?", (ScmFuncType)scm_p_char_readyp, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
190
{ "newline", (ScmFuncType)scm_p_newline, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
191
{ "write-char", (ScmFuncType)scm_p_write_char, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
194
{ "read", (ScmFuncType)scm_p_read, (ScmRegisterFunc)scm_register_procedure_variadic_0 },
197
{ "write", (ScmFuncType)scm_p_write, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
198
{ "display", (ScmFuncType)scm_p_display, (ScmRegisterFunc)scm_register_procedure_variadic_1 },
201
{ "load", (ScmFuncType)scm_p_load, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
204
{ "caaar", (ScmFuncType)scm_p_caaar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
205
{ "caadr", (ScmFuncType)scm_p_caadr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
206
{ "cadar", (ScmFuncType)scm_p_cadar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
207
{ "cdaar", (ScmFuncType)scm_p_cdaar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
208
{ "cdadr", (ScmFuncType)scm_p_cdadr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
209
{ "cddar", (ScmFuncType)scm_p_cddar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
210
{ "caaaar", (ScmFuncType)scm_p_caaaar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
211
{ "caaadr", (ScmFuncType)scm_p_caaadr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
212
{ "caadar", (ScmFuncType)scm_p_caadar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
213
{ "caaddr", (ScmFuncType)scm_p_caaddr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
214
{ "cadaar", (ScmFuncType)scm_p_cadaar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
215
{ "cadadr", (ScmFuncType)scm_p_cadadr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
216
{ "caddar", (ScmFuncType)scm_p_caddar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
217
{ "cadddr", (ScmFuncType)scm_p_cadddr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
218
{ "cdaaar", (ScmFuncType)scm_p_cdaaar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
219
{ "cdaadr", (ScmFuncType)scm_p_cdaadr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
220
{ "cdadar", (ScmFuncType)scm_p_cdadar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
221
{ "cdaddr", (ScmFuncType)scm_p_cdaddr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
222
{ "cddaar", (ScmFuncType)scm_p_cddaar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
223
{ "cddadr", (ScmFuncType)scm_p_cddadr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
224
{ "cdddar", (ScmFuncType)scm_p_cdddar, (ScmRegisterFunc)scm_register_procedure_fixed_1 },
225
{ "cddddr", (ScmFuncType)scm_p_cddddr, (ScmRegisterFunc)scm_register_procedure_fixed_1 },