SHARE
TWEET

Untitled

a guest Jul 19th, 2019 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defvar *server*
  2.     (lambda (env)
  3.       (let ((ws (make-server env)))
  4.         (on :open ws
  5.             (lambda ()
  6.               (format *standard-output* "someone connected")))
  7.         (on :message ws
  8.             (lambda (msg)
  9.               (format *standard-output*  msg)))
  10.         (lambda (responder)
  11.           (declare (ignore responder))
  12.           (start-connection ws)))
  13.       (print "server started" *terminal-io*)))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top