Emacs part 21
■ このスレッドは過去ログ倉庫に格納されています
0607名無しさん＠お腹いっぱい。
2007/04/06(金) 18:56:44(defun new-id () (let ((l '(0))) (setcar l (1+ (car l)))))
(new-id)
=> 1
(new-id)
=> 2
(new-id)
=> 3
■ このスレッドは過去ログ倉庫に格納されています
(defun new-id () (let ((l '(0))) (setcar l (1+ (car l)))))
(new-id)
=> 1
(new-id)
=> 2
(new-id)
=> 3