By the way:
arc> (bound 'fill-array!) nil arc> (def fill-array! parms parms) #<procedure: fill-array!> arc> (bound 'fill-array!) t arc> (ssexpand 'fill-array!) (fill-array (quote #<eof>))
-----