[Git][cmucl/cmucl][issue-242-c-call-char-result-wrong] Remove unused function testing alien funcalls

Raymond Toy (@rtoy) gitlab at common-lisp.net
Fri Jun 16 13:42:09 UTC 2023



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


Commits:
a7a7029b by Raymond Toy at 2023-06-16T06:41:00-07:00
Remove unused function testing alien funcalls

In restructuring the tests, I forgot to remove a function for testing
alien funcalls.  Remove it now.

- - - - -


1 changed file:

- tests/issues.lisp


Changes:

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



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a7a7029baf371e6c0f6f623433dccf59dd886ca1

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a7a7029baf371e6c0f6f623433dccf59dd886ca1
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230616/56fe3b89/attachment-0001.html>


More information about the cmucl-cvs mailing list