cl-sipc/test-server.lisp

;; Simple sipc server

(let ((*standard-output* (make-broadcast-stream)))
  (ql:quickload :cl-sipc))

(defparameter *socket-file* "sipc.socket")
(defparameter *socket* (cl-sipc:bind *socket-file*))

(when (not *socket*)
  (format t "[e] binding failed ~a~%" *socket-file*) (quit))

(format t "[+] listening on ~a...~%" *socket-file*)
(let ((rc (cl-sipc:hook *socket*
			#'(lambda (err)
			    (format t "Error: ~a~%" err)
			    nil)
			#'(lambda (type message)
			    (format t " <- (~a) ~a~%" type message)
			    (not (eql :close type))))))
  (format t "[-] listen rc ~a~%" rc)
  (cl-sipc:release *socket*))

(quit)