No need to check and concatenate string

2023-07-21 09:39:56 +02:00 · 2023-07-21 09:39:56 +02:00 · 93e79a66a7
commit 93e79a66a7
parent 9e8d66b922
1 changed files with 1 additions and 2 deletions
--- a/examples/album.lisp
+++ b/examples/album.lisp
@ -67,8 +67,7 @@ Example usage:
  ; provided content."
  `(spinneret:with-html
     (:h4 "About")
-     (:p :class ,(concatenate 'string
-                              (if color (apply #'cl-sbt/utility:color color) ""))
+     (:p :class ,(apply #'cl-sbt/utility:color color)
         ,@body)))

 (defmacro contact (&rest rest)