Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-easy-handler (test-page :uri "/") (entered-text)
- (setf (content-type*) "text/html")
- (html-string
- (:html
- (:head
- (:title "Hello world!"))
- (:body
- (:h1 "Foo Bar")
- (:p "Text you entered:" (:br)
- (str entered-text) (:br)
- "Test link:" (:br)
- (str thefacepalm-link))))))
Add Comment
Please, Sign In to add comment