(require 'stdlib)
(require 'rep.io.sockets)

(defun callback (socket)
  (puts "callback")
  (socket-accept socket)
  (close-socket socket))                    ; reject

(defun sentinel (socket)
  (puts "sentinel")
  (close-socket socket))

(setq s (socket-server "localhost" 1234
                       (lambda (socket)
                         (puts "callback")
                         (socket-accept socket standard-output)
                         (write socket "*echo*")
                         (close-socket socket)) ; reject
                       (lambda (socket)
                         (puts "sentinel")
                         (close-socket socket))))

(puts "** server")
(puts (format nil "address: %s" (socket-address s)))
(puts (format nil "port: %s" (socket-port s)))

(setq c (socket-client "localhost" 1234
                       standard-output
                       (lambda (socket)
                         (puts "sentinel"))))

(puts "** client")
(puts (format nil "address: %s" (socket-address c)))
(puts (format nil "port: %s" (socket-port c)))
(puts (format nil "peer-address: %s" (socket-peer-address c)))
(puts (format nil "peer-port: %s" (socket-peer-port c)))
(format c "message")