simple hunchentoot server

server.lisp

(ql:quickload :clack)
(ql:quickload :bordeaux-threads)

(defun main (&rest argv)
  (declare (ignorable argv))

  (defvar *handler*
    (clack:clackup
     (lambda (env)
       '(200 (:content-type "text/plain") ("alhamdulilLah")))))

  (handler-case (bordeaux-threads:join-thread
		 (find-if (lambda (th)
			    (search "hunchentoot" (bordeaux-threads:thread-name th)))
			  (bordeaux-threads:all-threads)))
    ;; Catch a user's C-c
    (#+sbcl sb-sys:interactive-interrupt
      #+ccl  ccl:interrupt-signal-condition
      #+clisp system::simple-interrupt-condition
      #+ecl ext:interactive-interrupt
      #+allegro excl:interrupt-signal
      () (progn
           (format *error-output* "Aborting.~&")
           (clack:stop *server*)
           (uiop:quit)))
    (error (c) (format t "Woops, an unknown error occured:~&~a~&" c))))