(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "E-ARRAY" (USE "LISP" "PT") (NICKNAMES "EA")
 (PREFIX-NAME "EA")))

(il:filecreated "28-Nov-88 12:24:14" il:{qv}<idl>next>e-array-package.\;4
 1998   

      il:|changes| il:|to:|  (il:vars il:e-array-packagecoms)

      il:|previous| il:|date:| "25-Nov-88 18:32:18" il:{qv}<idl>next>e-array-package.\;3)


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(il:prettycomprint il:e-array-packagecoms)

(il:rpaqq il:e-array-packagecoms ((il:p (export (quote (scalarp total-size rank element-type dimension dimensions linearize make-scalar as-list as-vector make-iterator array-blt array-fill select vector-select genvector shape ravel reshape array-adjoin degenerate-adjoin equirank-adjoin laminate compress compress-if expand array-reverse array-rotate transpose take drop define-monadic-op define-dyadic-op array-apply monadic-apply dyadic-apply nadic-apply define-reduction-op array-reduce define-scan-op array-scan array-sweep inner-product outer-product mean variance sample-variance)) (find-package "E-ARRAY"))) (xcl:file-environments "E-ARRAY-PACKAGE")))

(export (quote (scalarp total-size rank element-type dimension dimensions linearize make-scalar as-list as-vector make-iterator array-blt array-fill select vector-select genvector shape ravel reshape array-adjoin degenerate-adjoin equirank-adjoin laminate compress compress-if expand array-reverse array-rotate transpose take drop define-monadic-op define-dyadic-op array-apply monadic-apply dyadic-apply nadic-apply define-reduction-op array-reduce define-scan-op array-scan array-sweep inner-product outer-product mean variance sample-variance)) (find-package "E-ARRAY"))

(xcl:define-file-environment "E-ARRAY-PACKAGE" :readtable "XCL" :package (xcl:defpackage "E-ARRAY" (:use "LISP" "PT") (:nicknames "EA") (:prefix-name "EA")) :compiler :compile-file)
(il:putprops il:e-array-package il:copyright ("Xerox Corporation" 1988))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop