[CM] for keyword for funcall pattern

[Torsten Anders]

Hi list,

It looks like as if the :for key for the funcall pattern does not work
as it should (or at least as I expect it should ;).

;; Example: :for in cycle pattern works fine:
(next (new cycle of (list 'a 'b 'c
			  (new cycle :of
			       (list 1 2 3)
			       :for 5)))
      10)

-> (A B C 1 2 3 1 2 A B)

;; :for seems to have no effect on a funcall pattern
;; (I expect the same result as above)
(next (new cycle
	   :of (list 'a 'b 'c
		     (new funcall
			  :of #'(lambda () (list 1 2 3))
			  :for 5)))
      10)
-> (A B C 1 2 3 A B C 1)


Best regards,
Torsten


PS: I am running CM 2.4.0 on CMU Common Lisp 18d at RH 8.0


-- 
Torsten Anders
Sonic Arts Research Centre
Queens University Belfast
Tel: +44 28 9027 4831 (office)
     +44 28 9066 7439 (private)