(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