Changeset 5107

Timestamp:

Sep 4, 2006, 4:05:18 PM (18 years ago)

Author:

Gary Byers

Message:

Initial value of CHAR-CODE-LIMIT derived from the target arch (for
bootstrapping.)

File:

• trunk/ccl/level-1/l1-init.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-init.lisp

@@ -126 +126 @@
   GET-INTERNAL-REAL-TIME and GET-INTERNAL-RUN-TIME.")
 
-(defconstant char-code-limit #x100
+(defconstant char-code-limit #.(arch::target-char-code-limit
+                                (backend-target-arch *target-backend*))
   "the upper exclusive bound on values produced by CHAR-CODE")