Added *features* parameter.

*features* exists as a way to detect capabilities of a Common Lisp
 system.

diff --git a/jscl.lisp b/jscl.lisp
index 84fe550..29c328b 100644 (file)
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -32,6 +32,7 @@
     ("print"            :target)
     ("package"          :target)
     ("ffi"              :target)
+    ("features"         :target)
     ("read"             :both)
     ("defstruct"        :both)
     ("lambda-list"      :both)

diff --git a/src/features.lisp b/src/features.lisp
new file mode 100644 (file)
index 0000000..ecb3912
--- /dev/null
+++ b/src/features.lisp
@@ -0,0 +1,5 @@
+(defparameter *features*
+  (list
+   :jscl
+   :common-lisp
+   :ansi-cl))

diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index d51f76f..4afdc81 100644 (file)
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -48,8 +48,13 @@
         + -)
   (values-list /))
 
-(export '(&body &key &optional &rest * ** *** *gensym-counter* *package* + ++
-          +++ - / // /// 1+ 1- < <= = = > >= acons adjoin and append apply aref
+(export '(&body &key &optional &rest * ** ***
+
+          *gensym-counter* *package* *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