Raymond Toy pushed to branch issue-242-c-call-char-result-wrong at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • tests/issues.lisp
    ... ... @@ -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)