Parent Directory | Revision Log | Patch
revision 1.9 by pj, Wed May 8 16:38:21 2002 UTC | revision 1.10 by lektu, Thu May 16 12:00:59 2002 UTC | |
---|---|---|
# | Line 152 COND-FN takes one argument: the current | Line 152 COND-FN takes one argument: the current |
152 | (setq rv (append rv (list elt))))))) | (setq rv (append rv (list elt))))))) |
153 | ||
154 | (defun filesets-ormap (fsom-pred lst) | (defun filesets-ormap (fsom-pred lst) |
155 | "Return the the tail of FSOM-LST for the head of which FSOM-PRED is non-nil." | "Return the tail of FSOM-LST for the head of which FSOM-PRED is non-nil." |
156 | (let ((fsom-lst lst) | (let ((fsom-lst lst) |
157 | (fsom-rv nil)) | (fsom-rv nil)) |
158 | (while (and (not (null fsom-lst)) | (while (and (not (null fsom-lst)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |