Commit 51857521 authored by Raymond Toy's avatar Raymond Toy

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.
parent 9f7e34ad
Pipeline #339 passed with stage
in 17 minutes and 6 seconds
......@@ -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"
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment