diff -rN -u old-alexandria/alexandria.asd new-alexandria/alexandria.asd
--- old-alexandria/alexandria.asd	2008-02-09 18:50:32.000000000 +0100
+++ new-alexandria/alexandria.asd	2008-02-09 18:50:32.000000000 +0100
@@ -19,4 +19,4 @@
    (:file "lists" :depends-on ("package" "functions"))
    (:file "sequences" :depends-on ("package" "lists"))
    (:file "numbers" :depends-on ("package" "sequences"))
-   (:file "features" :depends-on ("package"))))
+   (:file "features" :depends-on ("package" "control-flow"))))
diff -rN -u old-alexandria/features.lisp new-alexandria/features.lisp
--- old-alexandria/features.lisp	2008-02-09 18:50:32.000000000 +0100
+++ new-alexandria/features.lisp	2008-02-09 18:50:32.000000000 +0100
@@ -6,7 +6,8 @@
 or list acceptable to the reader macros #+ and #-."
   (etypecase feature-expression
     (symbol (not (null (member feature-expression *features*))))
-    (cons (ecase (first feature-expression)
+    (cons (check-type (first feature-expression) symbol)
+          (switch ((first feature-expression) :test 'string=)
             (:and (every #'featurep (rest feature-expression)))
             (:or  (some #'featurep (rest feature-expression)))
             (:not (not (featurep (cadr feature-expression))))))))