/[cmucl]/src/code/gc.lisp
ViewVC logotype

Diff of /src/code/gc.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42.38.2 by rtoy, Mon Feb 8 20:21:44 2010 UTC revision 1.42.38.3 by rtoy, Tue Feb 9 02:44:32 2010 UTC
# Line 209  Line 209 
209    
210  #-(or cgc gencgc)  #-(or cgc gencgc)
211  (defun get-bytes-consed-dfixnum ()  (defun get-bytes-consed-dfixnum ()
212    _N"Returns the number of bytes consed since the first time this function    "Returns the number of bytes consed since the first time this function
213    was called.  The first time it is called, it returns zero."    was called.  The first time it is called, it returns zero."
214    (declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))    (declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))
215    (cond ((null *last-bytes-in-use*)    (cond ((null *last-bytes-in-use*)
# Line 509  Line 509 
509  ;;;  ;;;
510  #-gencgc  #-gencgc
511  (defun gc (&optional (verbose-p *gc-verbose*))  (defun gc (&optional (verbose-p *gc-verbose*))
512    _N"Initiates a garbage collection.  The optional argument, VERBOSE-P,    "Initiates a garbage collection.  The optional argument, VERBOSE-P,
513    which defaults to the value of the variable *GC-VERBOSE* controls    which defaults to the value of the variable *GC-VERBOSE* controls
514    whether or not GC statistics are printed."    whether or not GC statistics are printed."
515    (sub-gc :verbose-p verbose-p :force-p t))    (sub-gc :verbose-p verbose-p :force-p t))

Legend:
Removed from v.1.42.38.2  
changed lines
  Added in v.1.42.38.3

  ViewVC Help
Powered by ViewVC 1.1.5