1 ;;;; This file was originally written by Peter Keller (psilord@cs.wisc.edu)
2 ;;;; and this code is released under the same license as IOLib.
4 (defpackage :iolib.examples
5 (:nicknames
:iolib
/examples
)
6 (:use
:cl
:iolib
:bordeaux-threads
)
9 (:export
:run-ex1-client
26 (in-package :iolib.examples
)
28 ;;;; This file also contains some simply utilities to help the writing of the
31 ;; The example host:port to which clients connect. Servers often bind to
32 ;; any interface, but listen on this port.
33 (defparameter *host
* "localhost")
34 (defparameter *port
* 9999)
36 ;; A simple, but efficient, queue implementation, used by some examples.
40 (defun enqueue (obj q
)
42 (setf (cdr q
) (setf (car q
) (list obj
)))
43 (setf (cdr (cdr q
)) (list obj
)
44 (cdr q
) (cdr (cdr q
))))
50 (defun empty-queue (q)