(defun main()
  (handler-case
      (with-user-abort:with-user-abort
        (start-site)
        (sleep most-positive-fixnum))
  (with-user-abort:user-abort ()
	(print "Quitting gracefully")
    (stop-site)
	(uiop:quit 1))))