Guest User

Untitled

a guest
Jul 19th, 2019
66
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