Merging from upstream

diff --cc src/toplevel.lisp
index 4afdc81,c975341..e7f417f
--- 1/src/toplevel.lisp
--- 2/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@@ -48,13 -48,8 +48,8 @@@
          + -)
    (values-list /))
  
- (export '(&body &key &optional &rest * ** ***
- 
-           *gensym-counter* *package* *features*
- 
-          + ++ +++ - / // /// 1+ 1- < <= = = > >=
- 
-           acons adjoin and append apply aref
 -(export '(&body &key &optional &rest * ** *** *gensym-counter* *package* *print-circle* + ++
++(export '(&body &key &optional &rest * ** *** *gensym-counter* *package* *print-circle* *features* + ++
+           +++ - / // /// 1+ 1- < <= = = > >= acons adjoin and append apply aref
            arrayp assoc atom block boundp butlast cadar caaar caadr cdaar cdadr
            cddar caaaar caaadr caadar caaddr cadaar cadadr caddar cdaaar
            cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr caar cadddr caddr