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

Commits:

1 changed file:

Changes:

  • tests/issues.lisp
    ... ... @@ -991,12 +991,6 @@
    991 991
       ;; load-foreign apparently returns NIL if it succeeds.
    
    992 992
       (assert-true (eql nil (ext:load-foreign (merge-pathnames "test-return.o" *test-path*)))))
    
    993 993
     
    
    994
    -(defun return-unsigned-int (x)
    
    995
    -  ((alien:alien-funcall
    
    996
    -    (alien:extern-alien "int_to_unsigned_int"
    
    997
    -			(function c-call:unsigned-int c-call:unsigned-int))
    
    998
    -    n)))
    
    999
    -
    
    1000 994
     (define-test issue.242.test-alien-return-signed-char
    
    1001 995
       (:tag :issues)
    
    1002 996
       (flet ((fun (n)