Changeset 6583 for branches

Timestamp:

May 20, 2007, 9:07:29 AM (18 years ago)

Author:

Gary Byers

Message:

Pin char-code to 255 when looking for attributes.

File:

• branches/ide-1.0/ccl/hemlock/src/hemlock-ext.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/hemlock/src/hemlock-ext.lisp

@@ -635 +635 @@
       ((= index end) nil)
     (declare (fixnum index))
-    (if (/= (logand (aref table (char-code (elt string index))) mask) 0)
+    (if (/= (logand (aref table (min 255 (char-code (schar string index)))) mask) 0)
         (return index))))
 
@@ -647 +647 @@
       ((< index start) nil)
     (declare (fixnum index))
-    (if (/= (logand (aref table (char-code (elt string index))) mask) 0)
+    (if (/= (logand (aref table (min 255 (char-code (aref string index)))) mask) 0)
         (return index))))