[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