From: pnathan <pnathan@vandals.uidaho.edu>
Date: Wed, 8 May 2013 05:31:42 +0000 (-0700)
Subject: Added *features* parameter.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=fe7d0343705be47573c0a0a9de9cbaa7070ba3e2

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
--- 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
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
--- 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