From bba4fa029c774d626f2c1159e6f2be78a315899c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 8 Sep 2007 06:25:04 +0000
Subject: 	* core.lisp.pamphlet (|%hasFeature|): New.

---
 src/lisp/ChangeLog          |  4 ++++
 src/lisp/core.lisp.pamphlet | 10 ++++++++++
 2 files changed, 14 insertions(+)

(limited to 'src/lisp')

diff --git a/src/lisp/ChangeLog b/src/lisp/ChangeLog
index 9402faaa..b4b96645 100644
--- a/src/lisp/ChangeLog
+++ b/src/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-08  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* core.lisp.pamphlet (|%hasFeature|): New.
+
 2007-09-05  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* core.lisp.pamphlet (|compileLispFile|): Tidy.
diff --git a/src/lisp/core.lisp.pamphlet b/src/lisp/core.lisp.pamphlet
index c781417f..2e12ebc9 100644
--- a/src/lisp/core.lisp.pamphlet
+++ b/src/lisp/core.lisp.pamphlet
@@ -33,6 +33,9 @@
 	   "errorCount"
 	   "countError"
 	   "warn"
+	   
+	   "%hasFeature"
+
 	   "getCommandLineArguments"
 	   "processCommandLine"
 	   "handleCommandLine"
@@ -736,6 +739,13 @@ it would return $0$, meaning that everything is OK.
 
 \subsection{Lisp implementation-dependent support}
 
+\subsectionFeature tests}
+
+<<AxiomCore>>=
+(defun |%hasFeature| (f)
+  (member f *features* :test #'eq))
+@
+
 \subsubsection{SBCL}
 
 <<AxiomCore>>=
-- 
cgit v1.2.3