Changeset 6577 for branches

Timestamp:

May 20, 2007, 9:03:35 AM (18 years ago)

Author:

Gary Byers

Message:

SYNTAX-CHAR-CODE: pin char-code to 255.

File:

• branches/ide-1.0/ccl/hemlock/src/charmacs.lisp (modified) (1 diff)

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

@@ -35 +35 @@
   table functions may have.")
 
+
+;;; This has the effect of treating all characters with code > 255
+;;; as if they were #\u+00ff.  Not quite right, but better than
+;;; flying off the end.
 (defmacro syntax-char-code (char)
-  `(char-code ,char))
+  `(min (char-code ,char) 255))