Basic support for lisp functions

2025-07-03 02:43:12 +09:00
parent a19071c35c
commit 625b8238e6
3 changed files with 159 additions and 23 deletions
--- a/src/main.c
+++ b/src/main.c
@ -12,6 +12,9 @@ static LispFunction _Ftoplevel_exit_handler_function = {
    .builtin = &Ftoplevel_exit_handler,
    .args = Qnil,
    .kwargs = Qnil,
+    .rargs = Qnil,
+    .oargs = Qnil,
+    .rest_arg = Qnil,
    .lexenv = Qnil,
 };
 #define Ftoplevel_exit_handler_function \
@ -38,6 +41,9 @@ static LispFunction _Ftoplevel_error_handler_function = {
    .args = Qnil,
    .kwargs = Qnil,
    .lexenv = Qnil,
+    .rargs = Qnil,
+    .oargs = Qnil,
+    .rest_arg = Qnil,
 };
 #define Ftoplevel_error_handler_function \
    LISPVAL(&_Ftoplevel_error_handler_function)