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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/51857521b34f40acbc26557bfa... You're receiving this email because of your account on gitlab.common-lisp.net.