From d6dbfcc614b9ffda3bb1594c040bdf424c2bdc70 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Tue, 16 Mar 2021 23:35:13 -0400
Subject: [PATCH] style issues

---
 source/clog-web.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source/clog-web.lisp b/source/clog-web.lisp
index 88f9031..d8fc51f 100644
--- a/source/clog-web.lisp
+++ b/source/clog-web.lisp
@@ -660,6 +660,7 @@ is placed in DOM at top of OBJ instead of bottom of OBJ."
     (set-on-click
      (attach-as-child obj (format nil "~A-closer" html-id))
      (lambda (obj)
+       (declare (ignore obj))
        (destroy panel)))
     (when time-out
       (sleep time-out)
@@ -783,6 +784,7 @@ if confirmed or nil if canceled. CANCEL-TEXT is only displayed if modal is t"
 	 (cancel (if modal
 		     (attach-as-child win (format nil "~A-cancel" html-id))
 		     nil)))
+    (declare (ignore cancel))
     (setf (visiblep win) t)
     (when modal
       (js-execute obj (format nil "$('[name=~A-~A]').focus()"