Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv12351/utils-kt

Modified Files: detritus.lisp utils-kt.lpr Log Message:

--- /project/cells/cvsroot/cells/utils-kt/detritus.lisp 2006/04/01 21:47:00 1.4 +++ /project/cells/cvsroot/cells/utils-kt/detritus.lisp 2006/05/03 08:22:16 1.5 @@ -62,6 +62,9 @@ (defun fifo-length (q) (length (fifo-data q))) (defun fifo-peek (q) (car (fifo-data q)))

+(defun fifo-browse (q fn) + (map nil fn (fifo-data q))) + (defun fifo-add (q new) (if (car q) (let ((last (cdr q)) --- /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr 2006/05/01 20:23:14 1.7 +++ /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr 2006/05/03 08:22:16 1.8 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (Apr 10, 2006 23:36)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (Apr 21, 2006 10:24)"; cg: "1.81"; -*-

(in-package :cg-user)