Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

performance upgrade;multithreading support

  • Loading branch information...
commit dfab67f9eeb89b00926a817c2f941d63d885ad87 1 parent 3a66e1f
alfons haffmans authored
Showing with 0 additions and 12 deletions.
  1. +0 −12 perf/mem.lisp
View
12 perf/mem.lisp
@@ -1,12 +0,0 @@
-(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)))
-
-
-(defun cleanup()
- (dotimes (gen 7)
- (progn
- (format t "hello ~A~%" gen)
- (gen-clean gen))))

0 comments on commit dfab67f

Please sign in to comment.
Something went wrong with that request. Please try again.