(defun test()
  (let ((list nil))
    (flet ((func (i)
	     (jj:implementation java.lang.*runnable
	       (run () (format t "running ~A~%" i)))))
      (mapc (lambda (j)
	      (jj:send j :run))
	    (loop for i in '(a b c d)
	       collect (func i))))))