Permalink
Browse files

whoops! The perfect hash function for case conversion...

... not so perfect
  • Loading branch information...
csrhodes committed Oct 6, 2014
1 parent da00053 commit eac127e71dcd86d3956e4c3dc0ed03e036b258cc
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/code/target-char.lisp
@@ -120,7 +120,7 @@
:hash-function
(lambda (key)
(let ((page (sorted-position
(ash key 6)
(ash key -6)
**character-case-pages**)))
(if page
(+ (ash page 6) (ldb (byte 6 0) key))

0 comments on commit eac127e

Please sign in to comment.