X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ftoplevel.lisp;h=0698a0bf4221e795f8244ff22726931c4c4d8a95;hb=74568bb8cdadfcb6bf5429976b92f3afb748b0c2;hp=701693de373624bfe3c0a1634df3b202f55441fe;hpb=c776eecf1a00c4bdcf8505afcbd834b16f018513;p=jscl.git

diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index 701693d..0698a0b 100644
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -50,33 +50,33 @@
 
 (export '(&body &key &optional &rest * ** *** *features* *gensym-counter*
           *package* *print-circle* + ++ +++ - / // /// 1+ 1- < <= = = > >= acons
-          adjoin and append apply aref arrayp assoc atom block boundp butlast
-          caaaar caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar
-          caddar cadddr caddr cadr car car case catch cdaaar cdaadr cdaar cdadar
-          cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr cdr
-          char char-code char= code-char cond cons consp constantly copy-alist
-          copy-list copy-tree decf declaim declare defconstant
-          define-setf-expander define-symbol-macro defmacro defparameter defun
-          defvar destructuring-bind digit-char digit-char-p disassemble do do*
-          documentation dolist dotimes ecase eighth eq eql equal error eval
-          every export expt fdefinition fifth find find-package find-symbol
-          first flet format fourth fset funcall function functionp gensym
-          get-internal-real-time get-setf-expansion get-universal-time go
-          identity if in-package incf integerp intern intersection keywordp
-          labels lambda last length let let* lisp-implementation-type list list*
-          list-all-packages listp loop make-array make-package make-symbol
-          mapcar member minusp mod multiple-value-bind multiple-value-call
-          multiple-value-list multiple-value-prog1 nconc nil ninth not nreconc
-          nth nthcdr null numberp or otherwise package-name package-use-list
-          packagep pairlis parse-integer plusp pop prin1-to-string print
-          proclaim prog prog1 prog2 progn psetq push quote rassoc
-          read-from-string remove remove-if remove-if-not return return-from
-          revappend reverse rplaca rplacd second set setf setq seventh sixth
-          some string string-upcase string= stringp subseq subst symbol-function
-          symbol-name symbol-package symbol-plist symbol-value symbolp t tagbody
-          tailp tenth third throw tree-equal truncate unless unwind-protect
-          values values-list variable vector-push-extend warn when write-line
-          write-string zerop))
+          adjoin alpha-char-p and append apply aref arrayp assoc atom block
+          boundp butlast caaaar caaadr caaar caadar caaddr caadr caar cadaar
+          cadadr cadar caddar cadddr caddr cadr car car case catch cdaaar
+          cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar
+          cddddr cdddr cddr cdr cdr char char-code char= code-char cond cons
+          consp constantly copy-alist copy-list copy-tree decf declaim declare
+          defconstant define-setf-expander define-symbol-macro defmacro
+          defparameter defun defvar destructuring-bind digit-char digit-char-p
+          disassemble do do* documentation dolist dotimes ecase eighth eq eql
+          equal error eval every export expt fdefinition fifth find
+          find-package find-symbol first flet format fourth fboundp fset funcall
+          function functionp gensym get-internal-real-time get-setf-expansion
+          get-universal-time go identity if in-package incf integerp intern
+          intersection keywordp labels lambda last length let let*
+          lisp-implementation-type list list* list-all-packages listp loop
+          make-array make-package make-symbol mapc mapcar member minusp mod
+          multiple-value-bind multiple-value-call multiple-value-list
+          multiple-value-prog1 nconc nil ninth not nreconc nth nthcdr null
+          numberp or otherwise package-name package-use-list packagep pairlis
+          parse-integer plusp pop prin1-to-string print proclaim prog prog1
+          prog2 progn psetq push quote rassoc read-from-string remove remove-if
+          remove-if-not return return-from revappend reverse rplaca rplacd
+          second set setf setq seventh sixth some string string-upcase string=
+          stringp subseq subst symbol-function symbol-name symbol-package
+          symbol-plist symbol-value symbolp t tagbody tailp tenth third throw
+          tree-equal truncate unless unwind-protect values values-list variable
+          vector-push-extend warn when write-line write-string zerop))
 
 (setq *package* *user-package*)