diff options
| author | Vincent Ambo <mail@tazj.in> | 2021-12-15T20·10+0300 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2021-12-15T21·02+0000 |
| commit | 28ac55e94a4c71c1594d7ec51846315aed03e815 (patch) | |
| tree | 3cedf2ff4a608605163b848c727690a39821ee10 /third_party/lisp/alexandria/features.lisp | |
| parent | 50b43cfb66a46fb5579e71d0e55174bb77fa2858 (diff) | |
chore(3p/lisp): Unvendor alexandria and use nixpkgs sources r/3254
Change-Id: Idee3cb18ac42bd820d87aac0c68206436c1f4691 Reviewed-on: https://cl.tvl.fyi/c/depot/+/4338 Autosubmit: tazjin <mail@tazj.in> Tested-by: BuildkiteCI Reviewed-by: grfn <grfn@gws.fyi>
Diffstat (limited to 'third_party/lisp/alexandria/features.lisp')
| -rw-r--r-- | third_party/lisp/alexandria/features.lisp | 14 |
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)))))))) |