*slime-repl sbcl*

(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))))))