common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Remove unrelated warning from deprecation test

Browse source
This commit is contained in:
Douglas Katzman 2024-04-29 23:31:58 -04:00
parent 65dce4fffe
commit be2825409d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/deprecation.impure.lisp
View file

@ -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))