Skip to content
Snippets Groups Projects
Commit f4da6d6f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak how we compute the char-code-limit on allegro in test-utilities.script

parent b4d77c43
No related branches found
No related tags found
No related merge requests found
......@@ -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*))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment