record: filename fout := FileStream forceNewFileNamed: filename. fout = nil ifTrue: [...] ...
record: filename fout = nil ifTrue: [fout := FileStream 書き込みオープン] ifFalse: [fout close. fout := FileStream 書き込みオープン]