-static struct ao_lisp_frame *ao_lisp_frame_global;
-struct ao_lisp_frame *ao_lisp_frame_current;
-
-static void
-ao_lisp_atom_init(void)
-{
- if (!ao_lisp_frame_global) {
- ao_lisp_frame_global = ao_lisp_frame_new(0, 0);
- ao_lisp_root_add(&ao_lisp_frame_type, &ao_lisp_frame_global);
- ao_lisp_root_add(&ao_lisp_frame_type, &ao_lisp_frame_current);
- }
-}
-
-static ao_poly *
-ao_lisp_atom_ref(struct ao_lisp_frame *frame, ao_poly atom)