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

No need to check and concatenate string

Browse source
This commit is contained in:
Marcus Kammer 2023-07-21 09:39:56 +02:00
parent 9e8d66b922
commit 93e79a66a7
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
examples/album.lisp
View file

@ -67,8 +67,7 @@ Example usage:
; provided content." ; provided content."
`(spinneret:with-html `(spinneret:with-html
(:h4 "About") (:h4 "About")
(:p :class ,(concatenate 'string (:p :class ,(apply #'cl-sbt/utility:color color)
(if color (apply #'cl-sbt/utility:color color) ""))
,@body))) ,@body)))
(defmacro contact (&rest rest) (defmacro contact (&rest rest)