Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: b1d59004c4
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (11 sloc) 0.391 kb
(in-package :cl-mongo)
#+sbcl(defun gen-clean (gen)
(let ((thr (sb-ext:generation-minimum-age-before-gc gen)))
(setf (sb-ext:generation-minimum-age-before-gc gen) 0.d0)
(sb-ext:gc :gen gen)
(setf (sb-ext:generation-minimum-age-before-gc gen) thr)))
#+sbcl(defun reclaim-memory()
(dotimes (gen 7)
(progn
;;(format t "hello ~A~%" gen)
(gen-clean gen))))
Jump to Line
Something went wrong with that request. Please try again.