(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