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

Commits:

2 changed files:

Changes:

  • src/code/exports.lisp
    ... ... @@ -1566,6 +1566,10 @@
    1566 1566
     	     "*TRUST-DYNAMIC-EXTENT-DECLARATIONS*"
    
    1567 1567
     
    
    1568 1568
     	     "INVALID-FASL")
    
    1569
    +  ;; gencgc features
    
    1570
    +  #+gencgc
    
    1571
    +  (:export "GET-GC-ASSERTIONS"
    
    1572
    +	   "SET-GC-ASSERTIONS")
    
    1569 1573
     
    
    1570 1574
       ;; run-program
    
    1571 1575
       (:export "RUN-PROGRAM" "PROCESS-ALIVE-P" "PROCESS-CLOSE"
    

  • src/code/gc.lisp
    ... ... @@ -22,7 +22,9 @@
    22 22
     	  *bytes-consed-between-gcs* *gc-verbose* *gc-inhibit-hook*
    
    23 23
     	  *gc-notify-before* *gc-notify-after* get-bytes-consed
    
    24 24
     	  *gc-run-time* bytes-consed-between-gcs
    
    25
    -	  get-bytes-consed-dfixnum))
    
    25
    +	  get-bytes-consed-dfixnum
    
    26
    +	  get-gc-assertions
    
    27
    +	  set-gc-assertions))
    
    26 28
     
    
    27 29
     (in-package "LISP")
    
    28 30
     (export '(room))
    
    ... ... @@ -99,7 +101,7 @@
    99 101
     			      (verify-generations 6 verify-generations-p)
    
    100 102
     			      (verify-new-objects nil verify-new-objects-p))
    
    101 103
         "Set GC assertion to the specified value:
    
    102
    -       :ASSERT-LEVEL-
    
    104
    +       :ASSERT-LEVEL
    
    103 105
                Defaults to 0, higher values indicate more assertions are enabled.
    
    104 106
     
    
    105 107
            :VERIFY-AFTER-FREE-HEAP