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

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

227:デフォルトの名無しさん
08/08/03 13:35:20
>>226
* (macroexpand-1 '(multi-setf (+ 1 1) (a b c d)))

(PROGN (SETF A (+ 1 1)) (SETF B (+ 1 1)) (SETF C (+ 1 1)) (SETF D (+ 1 1)))
T

次ページ

続きを表示

1を表示