From 44e62fe67f817791e29412a14ca56a8c44281289 Mon Sep 17 00:00:00 2001 From: Gleefre Date: Fri, 7 Jul 2023 18:21:25 +0200 Subject: [PATCH] Fix bug --- src/utils.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils.lisp b/src/utils.lisp index 9ff335f..d640100 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -45,7 +45,7 @@ Possible options: (defun ,name (&rest ,initargs-name &key &allow-other-keys) (initialize-sketch) ,@(cdr (assoc :start options)) - (apply #'make-instance ',sketch-name (append ,initargs-name ',initargs))) + (apply #'make-instance ',sketch-name (append ,initargs-name (list ,@initargs)))) (defun ,toplevel-name () (sdl2:make-this-thread-main (lambda ()