cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

csys:environ:find-cells: issue warning on empty result

Browse source
This commit is contained in:
Helmut Merz 2026-07-31 08:57:42 +02:00
parent 8c33e4bbb6
commit 98df278cf6
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
csys/environ.lisp
View file

@ -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)))