- (export '(&rest &optional &body * *gensym-counter* *package* + - /
- 1+ 1- < <= = = > >= 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))
+ (export '(&rest &optional &body * *gensym-counter* *package* + - / 1+ 1- < <= =
+ = > >= 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 defmacro 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 get-universal-time 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 multiple-value-call nil not nth nthcdr null
+ numberp or package-name package-use-list packagep plusp prin1-to-string
+ print proclaim prog1 prog2 progn psetq 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 values values-list variable
+ warn when write-line write-string zerop))