mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

checkedp correction

Browse source
This commit is contained in:
David Botton 2025-11-25 11:56:47 -05:00
parent 1e3f3de05a
commit d0da81cbac
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

@ -693,8 +693,8 @@ the File form element type.
(defmethod (setf checkedp) (value (obj clog-form-element)) (defmethod (setf checkedp) (value (obj clog-form-element))
(if value (if value
(setf (attribute obj "checked") "true") (setf (property obj "checked") "true")
(remove-attribute obj "checked"))) (setf (property obj "checked") "")))
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
;; input-mode ;; ;; input-mode ;;