From fe7d0343705be47573c0a0a9de9cbaa7070ba3e2 Mon Sep 17 00:00:00 2001
From: pnathan <pnathan@vandals.uidaho.edu>
Date: Tue, 7 May 2013 22:31:42 -0700
Subject: [PATCH] Added *features* parameter.

*features* exists as a way to detect capabilities of a Common Lisp
 system.
---
 jscl.lisp         |    1 +
 src/features.lisp |    5 +++++
 src/toplevel.lisp |    9 +++++++--
 3 files changed, 13 insertions(+), 2 deletions(-)
 create mode 100644 src/features.lisp

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