Work in progress.

[jlisp] / test.lisp

(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))))))