trivial improvement to char-{up,down}case
commitda00053f5cdbcd9170f24d47b144ed103d1867d1
authorChristophe Rhodes <csr21@cantab.net>
Mon, 6 Oct 2014 08:38:17 +0000 (6 09:38 +0100)
committerChristophe Rhodes <csr21@cantab.net>
Mon, 6 Oct 2014 12:23:59 +0000 (6 13:23 +0100)
treea124bab77ebca948f210c5c1d57747817ca63995
parent0aea382e5a63df48f6fd18c461d2d2f2d1b6c147
trivial improvement to char-{up,down}case

only look up the replacement if the source character is of the
relevant case
src/code/target-char.lisp