(FILECREATED "25-Aug-86 12:03:20" {ERIS}<TAMARIN>UCODE>XARRAY.;1 523    

      changes to:  (VARS XARRAYCOMS)
		   (FNS XELT))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT XARRAYCOMS)

(RPAQQ XARRAYCOMS ((FNS XELT)))
(DEFINEQ

(XELT
  [LAMBDA (ar n)                                             (* agb: "25-Aug-86 12:00")
    (\GETBASEPTR (\GETBASEPTR ar 0)
		   (LLSH n 1])
)
(PUTPROPS XARRAY COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (268 446 (XELT 278 . 444)))))
STOP