Added accessors for SI-WRITE-AST.
Added accessors for SI-WRITE-AST.

clasp-developers/SICL,clasp-developers/SICL,vtomole/SICL,clasp-developers/SICL,vtomole/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL