Permalink
Browse files

Show hunchentoot version. Clean up.

  • Loading branch information...
1 parent 8fa760c commit 6bd0f0ab63d10627d9fd7eec6fe3a911f276b3b7 @jsmpereira committed Mar 13, 2012
Showing with 1 addition and 19 deletions.
  1. +1 −19 src/hello-world.lisp
View
@@ -2,25 +2,7 @@
(hunchentoot:define-easy-handler (hello-sbcl :uri "/hello-sbcl") (name)
(setf (hunchentoot:content-type*) "text/plain")
- (format nil "Hey~@[ ~A~]! ~A ~A" name (lisp-implementation-type) (lisp-implementation-version)))
-
-;(publish :path "/"
-; :function #'(lambda (req ent)
-; (with-http-response (req ent)
-; (with-http-body (req ent)
-; (html
-; (:h1 "Hello World")
-; (:princ "Congratulations, you are running Lisp on Heroku!!!")
-; :p
-; ((:img :src "lisp-glossy.jpg"))
-; )))))
-;
-;(publish-directory
-; :prefix "/"
-; :destination "./public/"
-; )
-
-
+ (format nil "Hey~@[ ~A~]! ~A ~A, Hunchentoot ~A" name (lisp-implementation-type) (lisp-implementation-version) hunchentoot::*hunchentoot-version*))

0 comments on commit 6bd0f0a

Please sign in to comment.