From 93e79a66a73c999468b77d4968f13e42e0024132 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 21 Jul 2023 09:39:56 +0200
Subject: [PATCH] No need to check and concatenate string

---
 examples/album.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/examples/album.lisp b/examples/album.lisp
index 66d9c70..2a23bbf 100644
--- 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)