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

Don't output anything when running sb-sprof tests.

Browse source
This commit is contained in:
Stas Boukarev 2019-01-28 02:57:59 +03:00
parent 5090286027
commit 429c7f57ec
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
contrib/sb-sprof/test.lisp
View file

@ -44,8 +44,9 @@
do (consalot))))
(defun run-tests ()
(test)
(consing-test))
(let ((*standard-output* (make-broadcast-stream)))
(test)
(consing-test)))
;; For debugging purposes, print output for visual inspection to see if
;; the allocation sequence gets hit in the right places (i.e. not at all