From 98df278cf6dd5e4c20e51d409827b42937af2545 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Fri, 31 Jul 2026 08:57:42 +0200
Subject: [PATCH] csys:environ:find-cells: issue warning on empty result

---
 csys/environ.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/csys/environ.lisp b/csys/environ.lisp
index c672aa4..4a1a643 100644
--- a/csys/environ.lisp
+++ b/csys/environ.lisp
@@ -65,7 +65,9 @@
 
 (defun find-cells (reg addr)
   (destructuring-bind (dom cat &optional (key "")) addr
-    (let ((idx (gethash (list dom cat) reg)))
-      (when idx
-        (index:query idx key)))))
+    (let* ((idx (gethash (list dom cat) reg))
+           (cells (when idx (index:query idx key))))
+      (unless cells
+        (util:lgw "not found" addr reg idx))
+      cells)))