Commit d9c93d1c authored by Eric Timmons's avatar Eric Timmons
Browse files

Better parse boolean config values from environment

parent 197cee90
......@@ -450,15 +450,17 @@ value."
(let ((value (string-downcase value))
(orig-value value))
(cond
((or (equal value "0")
(equal value "n")
(equal value "no")
(equal value "false"))
((or (equalp value "0")
(equalp value "n")
(equalp value "no")
(equalp value "false")
(equalp value "nil"))
nil)
((or (equal value "1")
(equal value "y")
(equal value "yes")
(equal value "true"))
((or (equalp value "1")
(equalp value "y")
(equalp value "yes")
(equalp value "true")
(equalp value "t"))
t)
(t
(error "Unable to parse ~S as a boolean." orig-value)))))
......
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