From 16c605aad1017242745d72b519bd841d29a5293c Mon Sep 17 00:00:00 2001 From: David Botton Date: Mon, 15 Apr 2024 01:15:15 -0400 Subject: [PATCH] fixed forcing html-id to string --- source/clog-gui.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp index 2a8137b..b5d3483 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -1162,7 +1162,7 @@ the browser.")) (defmethod window-close ((obj clog-gui-window)) (let ((app (connection-data-item obj "clog-gui"))) (when app - (remhash (format nil "~A" (html-id obj)) (windows app)) + (remhash (html-id obj) (windows app)) (when (window-select app) (destroy (window-select-item obj))) (remove-from-dom obj)