diff --git a/test/test-utilities.script b/test/test-utilities.script index 8db75efcf4175411edaa805644c96752d4227c07..ad151a8da29bfe5886ce22794cb92db614133bc1 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*))