Hi Friederich, here's two simple optimizations:
#(#nul #soh #stx #etx #eot #enq #ack #bel #bs #tab #lf)
withIndexDo: [:each :index |
self class compile: each asString , ' ^ asciiField at: ', index
asString.].Array withAll: #(1 2 3) is equivalent to #(1 2 3), and if you're not going to use the array again, you don't even need to assign it to a variable :) Instead of manually using an index, it is more elegant to use withIndexDo: Cheers, Bernat Romagosa.
