Raymond Toy pushed to branch issue-242-c-call-char-result-wrong at cmucl / cmucl
Commits:
-
40f30050
by Raymond Toy at 2023-07-01T07:25:32-07:00
1 changed file:
Changes:
... | ... | @@ -1074,7 +1074,7 @@ |
1074 | 1074 | (flet ((fun (n)
|
1075 | 1075 | (setf test-arg n)
|
1076 | 1076 | (alien:alien-funcall
|
1077 | - (alien:extern-alien "unsigned_to_bool"
|
|
1077 | + (alien:extern-alien "int_to_bool"
|
|
1078 | 1078 | (function c-call:char))))
|
1079 | 1079 | (expected (n)
|
1080 | 1080 | (if (zerop n)
|