(make-thread :name common-lisp :part 5)

(make-thread :name c ..

397:デフォルトの名無しさん
08/08/24 09:38:40
>>395
こういう意味ならできる、が答かな。

CL-USER> (let ((count 0))
(defun count-up ()
(setf count (1+ count)))
(defun show-count ()
count))

CL-USER> (count-up)
1
CL-USER> (count-up)
2

次ページ