Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

• aabe67a0
  by Raymond Toy at 2024-07-25T13:16:53+00:00

  Fix #340:  Use +ascii-limit+ in srctran.lisp
  

• 8a2dbcb3
  by Raymond Toy at 2024-07-25T13:16:57+00:00

  Merge branch 'issue-340-srctran-use-ascii-limit' into 'master'
  
  Fix #340:  Use +ascii-limit+ in srctran.lisp
  
  Closes #340 and #337
  
  See merge request cmucl/cmucl!237

1 changed file:

• src/compiler/srctran.lisp

Changes:

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

   '(let* ((ac (char-code a))

 	  (bc (char-code b)))

-     (if (and (<= ac #x7f)

-	      (<= bc #x7f))

+     (if (and (<= ac +ascii-limit+)

+	      (<= bc +ascii-limit+))

 	 ;; ASCII

 	 (let ((sum (logxor ac bc)))

 	   (or (zerop sum)