Align exports

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 69425df..58cce52 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1912,22 +1912,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 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))
 
   (setq *package* *user-package*)