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

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

diff --git a/foreign/c/pointer.scm b/foreign/c/pointer.scm
index a23c805..9fc2ad1 100644
--- a/foreign/c/pointer.scm
+++ b/foreign/c/pointer.scm
@@ -104,6 +104,9 @@
   (gauche (define c-null? pointer-null?))
   (stklos (define c-null?
             (lambda (pointer)
+              (display "HERE c-null?: ")
+              (write pointer)
+              (newline)
               (and (not (void? pointer))
                    pointer
                    (cpointer-null? pointer)))))