about summary refs log tree commit diff
path: root/third_party/lisp/alexandria/features.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/lisp/alexandria/features.lisp')
-rw-r--r--third_party/lisp/alexandria/features.lisp14
1 files changed, 0 insertions, 14 deletions
diff --git a/third_party/lisp/alexandria/features.lisp b/third_party/lisp/alexandria/features.lisp
deleted file mode 100644
index 67348dbba43b..000000000000
--- a/third_party/lisp/alexandria/features.lisp
+++ /dev/null
@@ -1,14 +0,0 @@
-(in-package :alexandria)
-
-(defun featurep (feature-expression)
-  "Returns T if the argument matches the state of the *FEATURES*
-list and NIL if it does not. FEATURE-EXPRESSION can be any atom
-or list acceptable to the reader macros #+ and #-."
-  (etypecase feature-expression
-    (symbol (not (null (member feature-expression *features*))))
-    (cons (check-type (first feature-expression) symbol)
-          (eswitch ((first feature-expression) :test 'string=)
-            (:and (every #'featurep (rest feature-expression)))
-            (:or  (some #'featurep (rest feature-expression)))
-            (:not (assert (= 2 (length feature-expression)))
-                  (not (featurep (second feature-expression))))))))