Skip to content

Instantly share code, notes, and snippets.

@ober

ober/gettowork.lisp

Created January 12, 2015 06:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ober/9f7b0cf017ee259537e6 to your computer and use it in GitHub Desktop.
Save ober/9f7b0cf017ee259537e6 to your computer and use it in GitHub Desktop.
Download ZIP
get to work
Raw
gettowork.lisp
(ql:quickload :restas)
(restas:define-module #:gettowork (:use :cl :restas))
(in-package #:gettowork)
(define-route gettowork-root ("/")
(format nil "<html><title>Get To Work</title><body><h1><bold><font color=\"red\">GET TO WORK!!!</font></bold></center></body></h1></html>"))
(defun main ()
(start '#:gettowork :port 80)
#+sbcl (loop (sleep 1))
#+clozure (loop (sleep 1))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment