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