[Git][cmucl/cmucl][issue-69-compile-in-gc-assert] Move gc-assert stuff to EXTENSIONS package
Raymond Toy
rtoy at common-lisp.net
Sat Sep 22 17:22:10 UTC 2018
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/51857521b34f40acbc26557bfa42efcee2a8d106
--
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/51857521b34f40acbc26557bfa42efcee2a8d106
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20180922/8cc42d1a/attachment-0001.html>
More information about the cmucl-cvs
mailing list