(MAPCAR (FUNCTION (LAMBDA (X) (STORE-ARRAY-LEADER 341 (FSYMEVAL X) 0)))
  'SYS:(
micro-code-entry-area 
micro-code-entry-name-area micro-code-entry-args-info-area
micro-code-entry-arglist-area micro-code-exit-area 
micro-code-entry-max-pdl-usage micro-code-symbol-area
micro-code-symbol-name-area))