From 074f9ed60e79ef255b5060aaefae92161092ef6f Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 20 Jan 2013 17:41:21 +0000 Subject: [PATCH] Align exports --- ecmalisp.lisp | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 69425df..58cce52 100644 --- 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*) -- 1.7.10.4