Changeset 7855


Ignore:
Timestamp:
Dec 9, 2007, 1:41:25 PM (13 years ago)
Author:
gb
Message:

Conditionalize gf call-count reporting.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/sysutils.lisp

    r7823 r7855  
    703703(setq *type-system-initialized* t)
    704704
    705 
    706 
    707 
     705#+count-gf-calls
     706(progn
     707;;; Call-counting for generic functions.  We overload the
     708;;; (previously unused
     709(defmethod generic-function-call-count ((gf generic-function))
     710  (gf.hash gf))
     711
     712
     713(defun (setf generic-function-call-count) (count gf)
     714  (setf (gf.hash gf) (require-type count 'fixnum)))
     715
     716(defun clear-all-generic-function-call-counts ()
     717  (dolist (gf (population.data %all-gfs%))
     718    (setf (gf.hash gf) 0)))
     719);#+count-gf-calls
     720
     721
Note: See TracChangeset for help on using the changeset viewer.