From e9b0ead6b41c203c1e44702ca84599f9db777738 Mon Sep 17 00:00:00 2001 From: Gleefre Date: Mon, 5 Jun 2023 00:34:38 +0200 Subject: [PATCH] Make toplevel function return nothing --- src/utils.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/utils.lisp b/src/utils.lisp index 97045d4..9ff335f 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -53,7 +53,8 @@ Possible options: (initialize-sketch) ,@(cdr (assoc :start options)) (make-instance ',sketch-name ,@initargs)))) - ,@(cdr (assoc :quit options))) + ,@(cdr (assoc :quit options)) + (values)) (values ',name ',toplevel-name))))) (defun pad-list (list pad length)