lisp-implementation-type

diff --git a/src/misc.lisp b/src/misc.lisp
index a7cabcc..b1958b3 100644 (file)
--- a/src/misc.lisp
+++ b/src/misc.lisp
@@ -1,4 +1,19 @@
-(defparameter *features*
-  (list
-   :jscl
-   :common-lisp))
+;;; misc.lisp --
+
+;; JSCL is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation, either version 3 of the
+;; License, or (at your option) any later version.
+;;
+;; JSCL is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
+
+(defparameter *features* '(:jscl :common-lisp))
+
+(defun lisp-implementation-type ()
+  "JSCL")

diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index e7f417f..701693d 100644 (file)
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -48,34 +48,35 @@
         + -)
   (values-list /))
 
-(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
-          cadr car car case catch cdar cdddr cddr cdr cdr char
-          char-code char= code-char cond cons consp constantly
-          copy-alist copy-list copy-tree decf declaim declare defconstant
+(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-package find 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* 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 seventh
-          setq 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))
+          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))
 
 (setq *package* *user-package*)