From: David Vázquez Date: Sun, 20 Jan 2013 17:41:21 +0000 (+0000) Subject: Align exports X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=074f9ed60e79ef255b5060aaefae92161092ef6f;p=jscl.git Align exports --- 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*)