Skip to content

Instantly share code, notes, and snippets.

@swannodette
Created December 7, 2009 20:55
Show Gist options
  • Select an option

  • Save swannodette/251100 to your computer and use it in GitHub Desktop.

Select an option

Save swannodette/251100 to your computer and use it in GitHub Desktop.
(start-thread
(let [G__1997 *compile-path*
G__1998 *3
G__1999 *2
G__2000 *ns*
G__2001 *print-level*
G__2002 *allow-unresolved-vars*
G__2003 *macro-meta*
G__2004 *math-context*
G__2005 *read-eval*
G__2006 *
G__2007 *compile-files*
G__2008 *command-line-args*
G__2009 *warn-on-reflection*
G__2010 *e
G__2011 *flush-on-newline*
G__2012 *out*
G__2013 *print-length*
G__2014 *1
G__2015 *file*
G__2016 *clojure-version*
G__2017 *use-context-classloader*
G__2018 *err*
G__2019 *agent*
G__2020 *print-dup*
G__2021 *print-readably*
G__2022 *print-meta*
G__2023 *in*
G__2024 *source-path*
G__2025 *assert*]
(fn [& args__67__auto__]
(binding [*compile-path* G__1997
*3 G__1998
*2 G__1999
*ns* G__2000
*print-level* G__2001
*allow-unresolved-vars* G__2002
*macro-meta* G__2003
*math-context* G__2004
*read-eval* G__2005
* G__2006
*compile-files* G__2007
*command-line-args* G__2008
*warn-on-reflection* G__2009
*e G__2010
*flush-on-newline* G__2011
*out* G__2012
*print-length* G__2013
*1 G__2014
*file* G__2015
*clojure-version* G__2016
*use-context-classloader* G__2017
*err* G__2018
*agent* G__2019
*print-dup* G__2020
*print-readably* G__2021
*print-meta* G__2022
*in* G__2023
*source-path* G__2024
*assert* G__2025]
(apply
(fn []
(thread-set-name (str "Socket Server [" (thread-id) "]"))
(with-open [server server-socket]
(try
(if multiple-connections?
(while
(not (.isClosed server))
(handle-socket (.accept server)))
(handle-socket (.accept server))))))
args__67__auto__)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment