From 75b5c1241fc7c976e5115081e1b3e0f344622717 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 20 Jan 2013 16:13:46 +0000 Subject: [PATCH] Export MAKE-ARRAY, ARRAYP, AREF and ASET functions --- ecmalisp.lisp | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index a02f3f6..67e5716 100644 --- 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*) -- 1.7.10.4