generator function unknown

[lispm]

(defun |tee| (iterable &optional (n 2))
  "Create N independent generators"
  (check-type n integer)
  (cond ((zerop n)
         (make-tuple-from-list ()))
        (t
         (let ((iter-func (clpython::get-py-iterate-fun iterable))
               (deques (loop repeat n collect (clpython.module._collections:|deque|))))
           (flet ((generator (deque)
                    (clpython::make-iterator-from-function
                     :name :tee-iterator
                     :func (lambda () 
                             (if (clpython::py-val->lisp-bool deque)
                                 (clpython.module._collections::deque.popleft deque)
                               (let ((new-val (funcall iter-func)))
                                 ;; also continue if NEW-VAL is NIL
                                 (dolist (d deques)
                                   (unless (eq d deque)
                                     (clpython.module._collections::deque.append d new-val)))
                                 new-val))))))
             (make-tuple-from-list (mapcar 'generator deques)))))))

Probably the MAPCAR should use #'generator and not 'generator

[metawilm]

Thanks, it's corrected in commit 0f47bf7.
Allegro CL did the wrong thing by using the FLET binding, hiding the error for me.