[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))))))
Commit	Line	Data
fc7489de MW	1	(defun test()
	2	(let ((list nil))
	3	(flet ((func (i)
	4	(jj:implementation java.lang.*runnable
	5	(run () (format t "running ~A~%" i)))))
	6	(mapc (lambda (j)
	7	(jj:send j :run))
	8	(loop for i in '(a b c d)
	9	collect (func i))))))