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/core.lisp.pamphlet | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/lisp/core.lisp.pamphlet')

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