Commit 197cee90 authored by Eric Timmons's avatar Eric Timmons
Browse files

Parse t and nil config values from environment

parent f1b35962
......@@ -464,11 +464,17 @@ value."
(error "Unable to parse ~S as a boolean." orig-value)))))
((and (listp type)
(eql (first type) 'member)
(every #'keywordp (rest type)))
(every (lambda (x) (or (keywordp x) (eql x nil) (eql x t))) (rest type)))
(cond
((equalp value "t")
t)
((equalp value "nil")
nil)
(t
(let ((kw (make-keyword (uiop:standard-case-symbol-name value))))
(unless (typep kw type)
(error "Unknown value ~S for type ~S" kw type))
kw))
kw))))
((equal type '(or string pathname))
(uiop:parse-native-namestring value))
(t
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment