From 447aca398f4bb96c4b2b3318ea79ccd29af87075 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Apr 2006 15:37:53 +0100
Subject: [PATCH] collect: Declare results as having type list.

It seems that CMU CL can't work this out on its own.  I suppose that's
not completely surprising.
---
 collect.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collect.lisp b/collect.lisp
index 946ba91..219f351 100644
--- a/collect.lisp
+++ b/collect.lisp
@@ -45,7 +45,7 @@
 	((atom vars) (setf vars (list vars))))
   `(let ,(mapcar (lambda (v) `(,v (make-collector))) vars)
      ,@body
-     (values ,@(mapcar (lambda (v) `(cdr ,v)) vars))))
+     (values ,@(mapcar (lambda (v) `(the list (cdr ,v))) vars))))
 
 (defmacro with-collection (vars collection &body body)
   "Collect items into lists VARS according to the form COLLECTION; then
-- 
2.11.0