X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fgc.lisp;h=1a221d61c995aa303151f876abb7733157c5b62c;hb=2912f5f6c2acb2da3b9fcc0f5afd1ca89782a9f8;hp=10f4bcecf9650dbc0b78a1a7952fef8b74648c4c;hpb=e5e1b41799b814bca18e5f6e5c10b12d06c35c46;p=sbcl.git diff --git a/src/code/gc.lisp b/src/code/gc.lisp index 10f4bce..1a221d6 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -152,12 +152,6 @@ and submit it as a patch." The functions are run with interrupts disabled and all other threads paused. They should take no arguments.") -(defvar *gc-run-time* 0 - #!+sb-doc - "the total CPU time spent doing garbage collection (as reported by - GET-INTERNAL-RUN-TIME)") -(declaim (type index *gc-run-time*)) - ;;;; The following specials are used to control when garbage ;;;; collection occurs.