(lisp_list, stream_map, stream_info)
| 212 | ################################################## |
| 213 | |
| 214 | def parse_common(lisp_list, stream_map, stream_info): |
| 215 | assert (2 <= len(lisp_list) <= 3) |
| 216 | head = tuple(lisp_list[1]) |
| 217 | assert (is_head(head)) |
| 218 | name = get_prefix(head) |
| 219 | fn = get_procedure_fn(stream_map, name) |
| 220 | domain = [] |
| 221 | if len(lisp_list) == 3: |
| 222 | domain = list_from_conjunction(lisp_list[2]) |
| 223 | info = stream_info.get(name, None) |
| 224 | return head, fn, domain, info |
| 225 | |
| 226 | def parse_function(*args): |
| 227 | return Function(*parse_common(*args)) |
no test coverage detected