optparse: Make enum opthandler take an evaluated list.

[lisp] / optparse-test

diff --git a/optparse-test b/optparse-test
index 0fe74b9..b5fe41f 100755 (executable)
--- a/optparse-test
+++ b/optparse-test
@@ -53,7 +53,7 @@
            (#\k "keywword" (:arg "KEYWORD") (keyword opt-keyword)
                 ("Set an arbitrary keyword."))
            (#\e "enumeration" (:arg "ENUM")
-                (keyword opt-enum :apple :apple-pie :abacus :banana)
+                (keyword opt-enum (list :apple :apple-pie :abacus :banana))
                 ("Set a keyword from a fixed set."))
            (#\x "xray" (:arg "WAVELENGTH")
                 "Report an option immediately.")