From 654f8c6e5178322545d9f3fe540ba4dae1ee82dc Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Tue, 5 Aug 2025 07:59:07 +0300
Subject: [PATCH] Fixing stklos

---
 foreign/c/pointer.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index f99bb55..92434e6 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -102,6 +102,12 @@
   (kawa #t) ; FIXME
   (chibi #t)
   (gauche (define c-null? pointer-null?))
+  (stklos (define c-null?
+            (lambda (pointer)
+              (cond ((void? pointer) #t)
+                    ((and (c-bytevector? pointer)
+                          (= (c-memset-pointer->address pointer 0 0) 0)) #t
+                     (else #f))))))
   (else (define c-null?
           (lambda (pointer)
             (if (c-bytevector? pointer)