mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
21 lines
501 B
Bash
21 lines
501 B
Bash
. ./subr.sh
|
|
|
|
create_test_subdirectory
|
|
|
|
tmpfasl=$TEST_DIRECTORY/$TEST_FILESTEM.fasl
|
|
tmpcore=$TEST_DIRECTORY/$TEST_FILESTEM.core
|
|
set -e
|
|
|
|
run_sbcl <<EOF
|
|
(load (compile-file "../src/code/repack-xref" :output-file "$tmpfasl"))
|
|
(save-lisp-and-die "$tmpcore")
|
|
EOF
|
|
run_sbcl <<EOF
|
|
(load "../tools-for-build/editcore")
|
|
(let ((result (sb-editcore::scan-for-end-of-page-garbage "$tmpcore")))
|
|
;; result = number of junk words found
|
|
(sb-sys:os-exit (if (> result 0) 1 $EXIT_TEST_WIN)))
|
|
EOF
|
|
|
|
exit $?
|