From b48328bcdc093b698b043ef203aa2e6059b091e1 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes <csr21@cantab.net> Date: Tue, 4 Dec 2001 16:22:14 +0000 Subject: [PATCH] Clean up string-unix-common-casify --- asdf.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index ba3acc35..acdef743 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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)))) -- GitLab