From adac8d95735aa3dc001658f2438b79d1c38a58d4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 20 Mar 2011 07:50:21 +0000
Subject: More cleanups

---
 src/interp/g-opt.boot         | 3 ++-
 src/interp/lisp-backend.boot  | 1 +
 src/interp/sys-constants.boot | 4 ++++
 3 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index a2e3a4e8..aca6a00c 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -445,7 +445,8 @@ $VMsideEffectFreeOperators ==
     %zsinh %zcosh %ztanh %zasinh %zacosh %zatanh
     %nil %pair %list %pair? %lconcat %llength %lfirst %lsecond %lthird
     %lreverse %lempty? %hash %ismall? %string? %f2s
-    %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown %sname
+    %ccst %ccstmax %ceq %clt %cle %cgt %cge %c2i %i2c %s2c %c2s %cup %cdown
+    %sname
     %strlength %streq %i2s %schar %strlt %strconc %strcopy
     %vector %aref %vref %vlength
     %bitvector
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 84638ba4..8a9a2a4c 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -447,6 +447,7 @@ for x in [
     ['%or,    :'OR],
 
     -- character operations
+    ['%ccstmax,:'_$CharCodeMax],
     ['%ceq,    :'CHAR_=],
     ['%clt,    :'CHAR_<],
     ['%cle,    :'CHAR_<_=],
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index 3c61487e..c5d8656b 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -44,6 +44,10 @@ namespace BOOT
 --% Numeric limits
 --%
 
+++ Maximum value of character code point values
+$CharCodeMaximum ==
+  CHAR_-CODE_-LIMIT
+
 ++ Minimum for %Short values.
 $ShortMinimum ==
   MOST_-NEGATIVE_-FIXNUM
-- 
cgit v1.2.3