mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

removed keys from ignorable statement in create-form-element

Browse source
This commit is contained in:
ormf 2023-07-22 18:22:14 +02:00
parent f518a9b1c8
commit 58823eae3d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-form.lisp
View file

@ -205,7 +205,7 @@ elements."))
:reset :search :submit :tel :text :time :url :week)) :reset :search :submit :tel :text :time :url :week))
(defgeneric create-form-element (clog-obj element-type &rest args (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) &allow-other-keys)
(:documentation "Create a new clog-form-element as child of CLOG-OBJ. (: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 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) (hidden nil)
(html-id nil) (html-id nil)
(auto-place t)) (auto-place t))
(declare (ignorable name value min max)) (declare (ignorable name))
(dolist (key '(name class style hidden html-id auto-place)) (dolist (key '(name class style hidden html-id auto-place))
(remf args key)) (remf args key))
(let* ( (let* (