貴重なフィードバック、ありがとうございます！
物凄く勉強になります。

> with-open-fileも含めて展開するほうがよさそうです。
> マクロ展開時にformatすると、attrs内で変数を使いたいというときに困るかなぁと思ったので、
formatやwrite-stringなどに展開するようにすればもっと表現力が増すかもしれません。
確かにそうですね！
このあたりに関しまして、マクロの鍵である データモードとコードモードの切り替えに対する自分の意識と理解が欠如しておりました…。

> LASS, css-lite に関しまして
シェアしていただきありがとうございます！
深町さんから頂いたコード含め、こちらのコードを拝見しつつ勉強させていただきます。

ありがとうございます！

(追記: ご指摘いただきました通り コメント欄にご記載いただいたソースコードが読みづらくなってしまうため、誠に勝手ながら表示を修正させていただきました。お手数をおかけしてしまい申し訳ございませんでした)

あと、マクロ展開時にformatすると、attrs内で変数を使いたいというときに困るかなぁと思ったので、
formatやwrite-stringなどに展開するようにすればもっと表現力が増すかもしれません。

簡単に書き直してみました。

(defmacro css (name elems)
  `(with-open-file
       (*standard-output* ,(string-downcase name) :direction :output :if-exists :supersede)
     ,@(loop for (elem attrs) in elems
             collect
             `(format t "~a {~%" ,elem)
             append
             (mapcar (lambda (attr)
                       (destructuring-bind (name val)
                           attr
                         `(format t "~2T~(~a~): ~a~%" ',name ,val)))
                     attrs)
             collect
             `(format t "}~2%"))
     t))

全部format文に展開されます。

;; (macroexpand-1
;;  '(css
;;    test.css
;;    ((".hoge"
;;      ((background "#F00")
;;       (border-radius "5px")))
;;     ("#fuga"
;;      ((background "#009")
;;       (color "#FFF"))))))

;; =>

;; (WITH-OPEN-FILE
;;     (*STANDARD-OUTPUT* "test.css" :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE)
;;   (FORMAT T "~a {~%" ".hoge")
;;   (FORMAT T "~2T~(~a~): ~a~%" 'BACKGROUND "#F00")
;;   (FORMAT T "~2T~(~a~): ~a~%" 'BORDER-RADIUS "5px")
;;   (FORMAT T "}~2%")
;;   (FORMAT T "~a {~%" "#fuga")
;;   (FORMAT T "~2T~(~a~): ~a~%" 'BACKGROUND "#009")
;;   (FORMAT T "~2T~(~a~): ~a~%" 'COLOR "#FFF")
;;   (FORMAT T "}~2%")
;;   T)

あと、CSSに出力する似たプロジェクトとして、
つい最近@ShinmeraがLASS (https://github.com/Shinmera/LASS) を公開しています。
LASSはCSSというよりもLESSっぽいものを目指しているようで、CSSを拡張した機能を提供しています。

単純にCSSのS式記法としてはcss-liteがあります。
https://github.com/paddymul/css-lite