[cells-cvs] CVS cells/utils-kt

[ktilton]

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)