actually actually commit stuff

example.asd

@@ -0,0 +1,14 @@
+(in-package :asdf)
+
+(defsystem :example
+    :name "example"
+    :description "Example cl-heroku application"
+    :depends-on (:aserve :wuwei)
+    :components
+    ((:static-file "example.asd")
+     (:module :src
+	      :serial t      
+	      :components
+	      ((:file "hello-world"))
+	      )))
+

heroku-setup.lisp

@@ -0,0 +1,11 @@
+(in-package :cl-user)
+
+(print ">>> Building system....")
+
+(load (make-pathname :directory *build-dir* :defaults "example.asd"))
+
+(ql:quickload :example)
+
+;;; Redefine / extend heroku-toplevel here if necessary.
+
+(print ">>> Done building system")

src/hello-world.lisp

@@ -0,0 +1,12 @@
+(in-package :net.aserve)
+
+(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"))))))
+
+
+