? start_line : rep_FILE (stream)->line_number); item->next = buckets[HASH (form)]; buckets[HASH (form)] = item; Fprimitive_guardian_push (guardian, form); } DEFUN ("call-with-lexical-origins", Fcall_with_lexical_origins, Scall_with_lexical_origins, (repv thunk), rep_Subr1) { rep_bool old_record_origins = rep_record_origins; repv result; rep_record_origins = rep_TRUE; result = rep_call_lisp0 (thunk); rep_record_origins = old_record_origins; return result; } DEFUN ("lexical-origin", Flexical_origin, Slexical_origin, (repv form), rep_Subr1) { origin_item *item; if (rep_FUNARGP (form)) form = rep_FUNARG (form)->fun; if (!rep_CONSP (form)) return Qnil;
repv gh_call0 (repv proc) { return rep_call_lisp0 (proc); }