Proper concatenation of inline CSS

CSS-INLINE does a simple concatenation of the results of CSS
directives.

This looks like:

	color:blacksize:200%

Unfortunately, it should look like this:

	color:black;size:200%

It now does.

diff --git a/css.lisp b/css.lisp
index 09cba29..8eee232 100644 (file)
--- a/css.lisp
+++ b/css.lisp
@@ -36,8 +36,9 @@
     (:princ "-->" #\Newline)))
 
 (defmacro css-inline (&rest propvals)
-  `(concatenate 'string ,@(loop for propval on propvals by #'cddr
-                               collect (propval-to-string propval))))
+  (string-join (loop for propval on propvals by #'cddr
+                    collect (propval-to-string propval))
+              ";"))
 
 (defmacro css-file (&rest rules)
   `(html