Export MAKE-ARRAY, ARRAYP, AREF and ASET functions

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index a02f3f6..67e5716 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1919,22 +1919,22 @@
       (js-eval code)))
 
   (export '(&rest &optional &body * *gensym-counter* *package* + - / 1+ 1- < <= =
-= > >= and append apply assoc atom block boundp boundp butlast caar
-cadddr caddr cadr car car case catch cdar cdddr cddr cdr cdr char
-char-code char= code-char cond cons consp copy-list decf declaim
-defparameter defun defvar digit-char-p disassemble documentation
-dolist dotimes ecase eq eql equal error eval every export fdefinition
-find-package find-symbol first fourth fset funcall function functionp
-gensym go identity if in-package incf integerp integerp intern
-keywordp lambda last length let let* list-all-packages list listp
-make-package make-symbol mapcar member minusp mod nil not nth nthcdr
-null numberp or package-name package-use-list packagep plusp
-prin1-to-string print proclaim prog1 prog2 pron push quote remove
-remove-if remove-if-not return return-from revappend reverse second
-set setq some string-upcase string string= stringp subseq
-symbol-function symbol-name symbol-package symbol-plist symbol-value
-symbolp t tagbody third throw truncate unless unwind-protect variable
-warn when write-line write-string zerop))
+           = > >= and append apply aref arrayp aset assoc atom block boundp
+           boundp butlast caar cadddr caddr cadr car car case catch cdar cdddr
+           cddr cdr cdr char char-code char= code-char cond cons consp copy-list
+           decf declaim defparameter defun defvar digit-char-p disassemble
+           documentation dolist dotimes ecase eq eql equal error eval every
+           export fdefinition find-package find-symbol first fourth fset funcall
+           function functionp gensym go identity if in-package incf integerp
+           integerp intern keywordp lambda last length let let* list-all-packages
+           list listp make-array make-package make-symbol mapcar member minusp
+           mod nil not nth nthcdr null numberp or package-name package-use-list
+           packagep plusp prin1-to-string print proclaim prog1 prog2 pron push
+           quote remove remove-if remove-if-not return return-from revappend
+           reverse second set setq some string-upcase string string= stringp
+           subseq symbol-function symbol-name symbol-package symbol-plist
+           symbol-value symbolp t tagbody third throw truncate unless
+           unwind-protect variable warn when write-line write-string zerop))
 
   (setq *package* *user-package*)