Skip to content
Browse files

Clean clack-handler-toot up.

  • Loading branch information
fukamachi committed Mar 26, 2015
1 parent cbf284a commit 97f8a59ade03edaf720bf041adefc2bf499d050a
Showing with 12 additions and 23 deletions.
  1. +5 −4 clack-handler-toot.asd
  2. +7 −19 src/handler/toot.lisp
@@ -22,10 +22,11 @@
:version "0.2.0"
:author "Eitaro Fukamachi"
:license "LLGPL"
:depends-on (:cl-syntax
:depends-on (:toot
:components ((:file "src/handler/toot"))
:description "Clack handler for Toot.")
@@ -1,11 +1,3 @@
This file is a part of Clack package.
Copyright (c) 2011 Eitaro Fukamachi <>

Clack is freely distributable under the LLGPL License.

(in-package :cl-user)
(defpackage clack.handler.toot
(:use :cl
@@ -17,16 +9,15 @@
(:import-from :flexi-streams
(:import-from :alexandria
(:export :run))
(in-package :clack.handler.toot)

(cl-syntax:use-syntax :annot)

(defun run (app &key debug (port 5000)
ssl ssl-key-file ssl-cert-file ssl-key-password)
"Start Toot server."
@@ -59,13 +50,10 @@
:reuseaddress t
:backlog (listen-backlog acceptor)
:element-type '(unsigned-byte 8)))
(accept-connections acceptor)))

(defun stop (acceptor)
"Stop Toot server."
(toot:stop-acceptor acceptor))
(setf (acceptor-process (toot:taskmaster acceptor)) (bt:current-thread))
(accept-connections acceptor)
(toot:stop-acceptor acceptor))))

(defun handle-request (req &key ssl)
"Convert Request from server into a plist

0 comments on commit 97f8a59

Please sign in to comment.
You can’t perform that action at this time.