Oops. I want to make a correction.

(concatenate 'string ...)

wasn't right. I can make my code work with

(defun css-to-string (rules) ;; (string-join (mapcar #'css-rule-to-string rules) "; ") (string-join (mapcar #'css-rule-to-string rules) " "))

...notice the missing semicolon from the string-join string.

Thanks.

On Wed, May 21, 2008 at 4:45 PM, Stuart Overton stuartoverton@gmail.com wrote:

I'm really liking parenscript and just got started with it, so this question might be off base, but here goes...

I'm writing a parenscript/cl-who/hunchentoot application, and I'm using some code along the lines of:

(css-to-string '(((a.foo) (:color "green" :font-size "25pt")) ((a.foo:hover) (:color "red"))))

which generates the following string:

"A.FOO { color:green; font-size:25pt; }

; A.FOO:HOVER { color:red; }

"

Firefox doesn't seem to like the second rule, since it starts with a semicolon. The code of css-to-string I have is:

(defun css-to-string (rules) (string-join (mapcar #'css-rule-to-string rules) "; "))

If I substitute it with

(defun css-to-string (rules) (concatenate 'string (mapcar #'css-rule-to-string rules)))

That problem goes away and Firefox recognizes the second rule.

Am I doing something wrong or is this a bug?