~mdw
/
lisp
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7dcf04a
)
collect: Declare results as having type list.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 30 Apr 2006 14:37:53 +0000
(15:37 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 30 Apr 2006 14:37:53 +0000
(15:37 +0100)
It seems that CMU CL can't work this out on its own. I suppose that's
not completely surprising.
collect.lisp
patch
|
blob
|
blame
|
history
diff --git
a/collect.lisp
b/collect.lisp
index
946ba91
..
219f351
100644
(file)
--- 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