Keep eliss-control-group from outputting nil="nil"

This commit is contained in:
Tom Willemse 2013-05-19 03:16:33 +02:00
parent 57a4ee838a
commit 49639ee0ee

View file

@ -80,8 +80,9 @@ certain other properties.
(input (@ (type "text") (input (@ (type "text")
(name ,name) (name ,name)
(id ,name) (id ,name)
,(when placeholder `(placeholder ,placeholder)) ,@(when placeholder
,(when default `(value ,default)))))))) `((placeholder ,placeholder)))
,@(when default `((value ,default)))))))))
(defun eliss-project-page (httpcon) (defun eliss-project-page (httpcon)
"Send a list of issues and an issue-creation form over HTTPCON." "Send a list of issues and an issue-creation form over HTTPCON."