code output not rendered. cannot embed lisp code.

[fselcukcan]

i try to make use of cl-markup as follows. i have some functions that is created by markup to create parts of a single page.
and a big function that uses html and other little functions to create whole page.
but on browser this yields only created strings of html. only div in the code below is rendered.
(defun compose-home-page ()
(html
(:body
(morph-categories-axis)
(morph-time-axis)
(:div :style "height:45px; border:1px solid;"
(morph-name)
(morph-search)))))

and i cannot embed do lists inside the markup or html. this below code is rendered just like the above, all lines starting from dolist are ignored by the browser.
(defun compose-home-page ()
(html
(:body
(morph-categories-axis)
(morph-time-axis)
(:div :style "height:45px; border:1px solid;"
(morph-name)
(morph-search))
(dolist (itable (gather-all-artickles))
(dolist (iart itable)
(morph-artickle-section (getf iart :date)
(getf iart :author)
(getf iart :title)
(getf iart :body)
(getf iart :unique-id)
(getf iart :upvotes)
(getf iart :downvotes)))))))

the part of the first function above is similar to the followings. a part of it:
(setf time-axis-url
'(( "29s" . "1")("28s" . 2)("27f" . 3)("26t" . 4)("25w" . 5)("24t" . 6)("23m" . 7)("22m" . 8)))

(defun morph-time-axis ()
(markup
(:div :id "time-axis"
:style "height:100%; width:18px; position: fixed; border:1px solid; right: 0px;"
(loop for i in time-axis-url
collect (markup (:a :href (car i))
(:span " "))))))

[fukamachi]

dolist doesn't return any values. Use mapcar or loop ... collect instead.