provides a read macro "#M(..)" as a synonym of "(markup ..)".

README.markdown

@@ -48,6 +48,17 @@ Markup macros output html tags into \*output-stream\*. The default is <code>NIL<
     ;;=> <p>hoge</p>
     ;=> T
 
+## Markup syntax
+
+You can embeded Lisp code in a tag body.
+
+    (markup (:ul (loop for item in '(1 2 3) collect (markup (:li item)))))
+
+But, <code>markup</code> is too long to embed. cl-markup provides an usefull syntax to write more shortly.
+
+    (enable-markup-syntax)
+    #M(:ul (loop for item in '(1 2 3) collect #M(:li item))))
+
 ## License
 
 Copyright (c) 2011 Eitarow Fukamachi.  

cl-markup.asd

@@ -14,4 +14,5 @@
                 :serial t
                 :components ((:file "package")
                              (:file "special")
-                             (:file "markup")))))
+                             (:file "markup")
+                             (:file "readmacro")))))

src/package.lisp

@@ -5,6 +5,7 @@
   (:export :markup :html :xhtml :xml
            :doctype
            :escape-string :raw :esc
+           :enable-markup-syntax
            :*auto-escape*
            :*output-stream*
            :*markup-language*))

src/readmacro.lisp

@@ -0,0 +1,8 @@
+(in-package :cl-markup)
+
+(defun markup-reader (stream char arg)
+  (declare (ignore char arg))
+  `(markup ,(read stream t nil t)))
+
+(defun enable-markup-syntax ()
+  (set-dispatch-macro-character #\# #\M #'markup-reader))