Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
197cee90
Commit
197cee90
authored
Feb 24, 2020
by
Eric Timmons
Browse files
Parse t and nil config values from environment
parent
f1b35962
Changes
1
Show whitespace changes
Inline
Side-by-side
src/clpm/config.lisp
View file @
197cee90
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment