From f4da6d6f8a8ddd35c2c41485c552230ab25b4fe9 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Fri, 18 Oct 2013 11:59:48 -0400
Subject: [PATCH] Tweak how we compute the char-code-limit on allegro in
 test-utilities.script

---
 test/test-utilities.script | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/test-utilities.script b/test/test-utilities.script
index 8db75efcf..ad151a8da 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -203,7 +203,7 @@
 (assert-equal "abcd" (strcat "a" nil "bc" "d"))
 (assert-equal "abcd" (reduce/strcat '("a" nil "bc" "d")))
 
-(defparameter *last-char-code* (1- (or #+(and allegro (not ics)) 256 char-code-limit)))
+(defparameter *last-char-code* (1- (or #+allegro excl:real-char-code-limit char-code-limit)))
 (defparameter *last-char* (code-char *last-char-code*))
 (defparameter *last-char-string* (string *last-char*))
 
-- 
GitLab