From 8d99e39af99708c8e7b55a80ca5f3d3c387b9c47 Mon Sep 17 00:00:00 2001
From: Kartik Singh <kssingh@hrl.com>
Date: Fri, 5 Jul 2024 14:58:28 -0700
Subject: [PATCH] Add cast

---
 src/function.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/function.lisp b/src/function.lisp
index 98a44971..c09155c2 100644
--- a/src/function.lisp
+++ b/src/function.lisp
@@ -96,7 +96,7 @@ if (!setjmp(fatal_lisp_error_handler)) {
                                           (list "result"))))))
         (format nil "~a {~%~a~%}~%"
                 header
-                (format nil "    if (!fatal_sbcl_error_occurred && !~a(fatal_lisp_error_handler)) {
+                (format nil "    if (!fatal_sbcl_error_occurred && !~a((void **) fatal_lisp_error_handler)) {
         ~a
     } else {
         ~a