Commit c4db47ac authored by rtoy's avatar rtoy
Browse files

Fix test in BOTH-CASE-P. The lower limit is +unicode-category-upper+, 

not unicode-category-lower+.
parent 90d0bbbb

code/char.lisp

+2 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ 
;;; Carnegie Mellon University, and has been placed in the public domain.

;;;

(ext:file-comment

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.15.18.3.2.12 2009/05/27 20:34:18 rtoy Exp $")

  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.15.18.3.2.13 2009/05/30 02:02:58 rtoy Exp $")

;;;

;;; **********************************************************************

;;;
@@ -265,7 +265,7 @@ 
    (or (< 64 m 91) (< 96 m 123)

	#+(and unicode (not unicode-bootstrap))

	(and (> m 127)

	     (<= +unicode-category-lower+

	     (<= +unicode-category-upper+

		 (unicode-category m)

		 +unicode-category-title+)))))