From be2825409d4d213cecb55608dbc72c3a9a82e154 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Mon, 29 Apr 2024 23:31:58 -0400 Subject: [PATCH] Remove unrelated warning from deprecation test --- tests/deprecation.impure.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/deprecation.impure.lisp b/tests/deprecation.impure.lisp index 2604dab1d..127b98fb7 100644 --- a/tests/deprecation.impure.lisp +++ b/tests/deprecation.impure.lisp @@ -347,7 +347,7 @@ (let ((source (scratch-file-name "tmp")) fasl) (with-open-file (f source :direction :output :if-does-not-exist :create :if-exists :supersede) - (write-string "(defun a () (sb-unix:unix-exit))" f) + (write-string "(defun a () (sb-unix:unix-exit 0))" f) ;; a full warning even though the PLEASE-DONT- function is only :early (write-string "(defun b () (please-dont-use-this 1) (really-dont-do-it 2))" f) (write-string "(defun c () (you-cant-use-this 3))" f))