1 Jun 2007 12:40
event handlers not working
Aycan iRiCAN <aycan.irican <at> core.gen.tr>
2007-06-01 10:40:55 GMT
2007-06-01 10:40:55 GMT
I'm trying to write a simple example. But I cannot make the event
handler work. Could you please check this code (mostly stolen from
philip-jose).
(in-package :asdf)
(defpackage :iolib-test
(:use #:common-lisp #:net.sockets #:iomux #:bordeaux-threads))
(in-package :iolib-test)
(defparameter *server* nil)
(defparameter *event-base* (make-instance 'iomux:event-base))
(defparameter *server-event* nil)
(defun handle-connection (sock handler)
(unwind-protect
(progn
(apply handler sock)
(finish-output sock))
(close sock)))
(defun make-server (port)
(let ((sock (make-socket :address-family
:internet
:type
:stream
:connect
:passive
:ipv6 nil)))
(Continue reading)
RSS Feed