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
asdf
asdf
Commits
b48328bc
Commit
b48328bc
authored
Dec 04, 2001
by
Christophe Rhodes
Browse files
Clean up string-unix-common-casify
parent
871b3f7f
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
b48328bc
...
...
@@ -91,9 +91,9 @@
(
setf
end
(
length
string
)))
(
let
((
result
(
copy-seq
string
)))
(
cond
((
every
(
lambda
(
x
)
(
or
(
not
(
alpha-char
-p
x
)
)
(
and
(
char>=
x
#\A
)
(
char<=
x
#\Z
))))
(
subseq
string
start
end
))
((
every
(
lambda
(
x
)
(
or
(
upper-case
-p
x
)
(
not
(
alpha-char-p
x
))))
(
subseq
string
start
end
))
(
nstring-downcase
result
:start
start
:end
end
))
((
every
(
lambda
(
x
)
(
or
(
not
(
alpha-char
-p
x
)
)
(
and
(
char>=
x
#\a
)
(
char<=
x
#\z
))))
(
subseq
string
start
end
))
((
every
(
lambda
(
x
)
(
or
(
lower-case
-p
x
)
(
not
(
alpha-char-p
x
))))
(
subseq
string
start
end
))
(
nstring-upcase
result
:start
start
:end
end
))
(
t
result
))))
...
...
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