marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Fix type checking

Browse source
This commit is contained in:
Marcus Kammer 2024-03-29 11:07:39 +01:00
parent 752c6b5e02
commit 63106b6a43
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/component/form.lisp
View file

@ -189,8 +189,7 @@ TYPE: Specifies the type of input. See `input-types`
NAME: The name attribute for the control.
LABEL: The label to display next to the control."
(unless (find type input-types :test 'string=)
(error "Wrong type for HTML input element. See `input-types`"))
(check-type type input-element)
(let* ((name-str (build-name-str name))
(class-str (build-class-str "form-label" name))
(id-str (build-id-str name label)))