Instruct vl-gc to trigger a garbage collection when the current memory usage exceeds the baseline by some amount.
(set-vl-gc-threshold bytes) → nil
The default is 1 GB (2^30 bytes). You might want to raise this threshold if garbage is being collected too frequently.
Function:
(defun set-vl-gc-threshold (bytes) (declare (xargs :guard (natp bytes))) (declare (ignore bytes)) (let ((__function__ 'set-vl-gc-threshold)) (declare (ignorable __function__)) (raise "Under-the-hood definition not installed?")))