/[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.21.2.2 by pw, Tue May 23 16:36:31 2000 UTC revision 1.21.2.3 by pw, Sat Mar 23 18:50:01 2002 UTC
# Line 27  Line 27 
27    
28  ;;;; DYNAMIC-USAGE and friends.  ;;;; DYNAMIC-USAGE and friends.
29    
30  (proclaim '(special *read-only-space-free-pointer*  (declaim (special *read-only-space-free-pointer*
31                      *static-space-free-pointer*))                    *static-space-free-pointer*))
32    
33  (eval-when (compile eval)  (eval-when (compile eval)
34    (defmacro c-var-frob (lisp-fun c-var-name)    (defmacro c-var-frob (lisp-fun c-var-name)
# Line 148  Line 148 
148  (defun get-bytes-consed ()  (defun get-bytes-consed ()
149    "Returns the number of bytes consed since the first time this function    "Returns the number of bytes consed since the first time this function
150    was called.  The first time it is called, it returns zero."    was called.  The first time it is called, it returns zero."
151    (declare (optimize (speed 3) (safety 0)))    (declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))
152    (cond ((null *last-bytes-in-use*)    (cond ((null *last-bytes-in-use*)
153           (setq *last-bytes-in-use* (dynamic-usage))           (setq *last-bytes-in-use* (dynamic-usage))
154           (setq *total-bytes-consed* 0))           (setq *total-bytes-consed* 0))

Legend:
Removed from v.1.21.2.2  
changed lines
  Added in v.1.21.2.3

  ViewVC Help
Powered by ViewVC 1.1.5