From 288343dfbc525556e1365ee38599d95c7e965c96 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 23 Apr 2006 01:57:42 +0100 Subject: [PATCH] collect: Whitespace rearrangement. --- collect.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collect.lisp b/collect.lisp index 813707e..5b48b20 100644 --- a/collect.lisp +++ b/collect.lisp @@ -34,6 +34,7 @@ (defun make-collector () (let ((c (cons nil nil))) (cons c c)))) + (defmacro collecting (vars &body body) "Collect items into lists. The VARS are a list of collection variables -- their values are unspecified, except that they may be passed to `collect' and @@ -45,6 +46,7 @@ values, one for each list constructed." `(let ,(mapcar (lambda (v) `(,v (make-collector))) vars) ,@body (values ,@(mapcar (lambda (v) `(cdar ,v)) vars)))) + (defmacro with-collection (vars collection &body body) "Collect items into lists VARS according to the form COLLECTION; then evaluate BODY with VARS bound to those lists." @@ -52,6 +54,7 @@ evaluate BODY with VARS bound to those lists." ,(listify vars) (collecting ,vars ,collection) ,@body)) + (defmacro collect (x &optional (name *collecting-anon-list-name*)) "Add item X to the `collecting' list NAME (or *collecting-anon-list-name* by default)." @@ -59,6 +62,7 @@ by default)." `(let ((,tmp (cons ,x nil))) (setf (cddr ,name) ,tmp) (setf (cdr ,name) ,tmp)))) + (defmacro collect-tail (x &optional (name *collecting-anon-list-name*)) "Make item X be the tail of `collecting' list NAME (or *collecting-anon-list-name* by default). It is an error to continue trying -- 2.11.0