Raymond Toy pushed to branch issue-69-compile-in-gc-assert at cmucl / cmucl

Commits: 51857521 by Raymond Toy at 2018-09-22T17:21:47Z Move gc-assert stuff to EXTENSIONS package

Move GET-GC-ASSERTIONS and SET-GC-ASSERTIONS to the EXTENSIONS package since that's where *GC-VERBOSE* is.

- - - - -

2 changed files:

- src/code/exports.lisp - src/code/gc.lisp

Changes:

===================================== src/code/exports.lisp ===================================== @@ -1566,6 +1566,10 @@ "*TRUST-DYNAMIC-EXTENT-DECLARATIONS*"

"INVALID-FASL") + ;; gencgc features + #+gencgc + (:export "GET-GC-ASSERTIONS" + "SET-GC-ASSERTIONS")

;; run-program (:export "RUN-PROGRAM" "PROCESS-ALIVE-P" "PROCESS-CLOSE"

===================================== src/code/gc.lisp ===================================== @@ -22,7 +22,9 @@ *bytes-consed-between-gcs* *gc-verbose* *gc-inhibit-hook* *gc-notify-before* *gc-notify-after* get-bytes-consed *gc-run-time* bytes-consed-between-gcs - get-bytes-consed-dfixnum)) + get-bytes-consed-dfixnum + get-gc-assertions + set-gc-assertions))

(in-package "LISP") (export '(room)) @@ -99,7 +101,7 @@ (verify-generations 6 verify-generations-p) (verify-new-objects nil verify-new-objects-p)) "Set GC assertion to the specified value: - :ASSERT-LEVEL- + :ASSERT-LEVEL Defaults to 0, higher values indicate more assertions are enabled.

:VERIFY-AFTER-FREE-HEAP

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