From 58823eae3d5df7cf07a7e84e09ba8fe8a24a10cb Mon Sep 17 00:00:00 2001 From: ormf Date: Sat, 22 Jul 2023 18:22:14 +0200 Subject: [PATCH] removed keys from ignorable statement in create-form-element --- source/clog-form.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/clog-form.lisp b/source/clog-form.lisp index e37499e..4afa08a 100644 --- a/source/clog-form.lisp +++ b/source/clog-form.lisp @@ -205,7 +205,7 @@ elements.")) :reset :search :submit :tel :text :time :url :week)) (defgeneric create-form-element (clog-obj element-type &rest args - &key name class style hidden html-id auto-place label + &key name label class style hidden html-id auto-place &allow-other-keys) (:documentation "Create a new clog-form-element as child of CLOG-OBJ. It is importamt that clog-form-elements are a child or descendant of a @@ -221,7 +221,7 @@ attribute/value pairs in the form attr= 'value'")) (hidden nil) (html-id nil) (auto-place t)) - (declare (ignorable name value min max)) + (declare (ignorable name)) (dolist (key '(name class style hidden html-id auto-place)) (remf args key)) (let* (