cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

commit dc07ae35737f58cbac09f2054f1eeabccb4dbe25
parent ec5632cbea261e4fba765d9811b365b3efcb5bde
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 16 Apr 2015 16:57:59 +0200

more porting

Diffstat:
Mdemo-counter.lisp | 5++++-
Mdemo-zappel.lisp | 5++++-
2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/demo-counter.lisp b/demo-counter.lisp @@ -95,7 +95,10 @@ (draw-counter))))) (defun start () - (rw.http:server "0.0.0.0" 2349 'counter-handler :quit (lambda () nil))) + (rw.http:server (rw.socket:make-ipv4-address "0.0.0.0") + 2349 + 'counter-handler + :quit (lambda () nil))) ;;(start) diff --git a/demo-zappel.lisp b/demo-zappel.lisp @@ -185,7 +185,10 @@ (draw-zappel))))) (defun start () - (rw.http:server "0.0.0.0" 2340 'zappel-handler :quit (lambda () nil))) + (rw.http:server (rw.socket:make-ipv4-address "0.0.0.0") + 2340 + 'zappel-handler + :quit (lambda () nil))) ;;(start)