summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
7dcf04a)
It seems that CMU CL can't work this out on its own. I suppose that's
not completely surprising.
((atom vars) (setf vars (list vars))))
`(let ,(mapcar (lambda (v) `(,v (make-collector))) vars)
,@body
((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
(defmacro with-collection (vars collection &body body)
"Collect items into lists VARS according to the form COLLECTION; then