Skip to content

Instantly share code, notes, and snippets.

@dvnmk
Created January 27, 2015 03:48
Show Gist options
  • Save dvnmk/f6bb5de9c43b9f40dba6 to your computer and use it in GitHub Desktop.
Save dvnmk/f6bb5de9c43b9f40dba6 to your computer and use it in GitHub Desktop.
ccl tcp socket m with
(defun st (port)
(ccl:with-open-socket (socket :connect :passive
:format :text
:local-port port
:reuse-address t)
(with-open-stream (stream (ccl:accept-connection socket))
(princ "CCL example response" stream))))
; example call
(st 20000)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment