Changeset 7855 for branches/working-0711/ccl/level-1/sysutils.lisp

Timestamp:

Dec 9, 2007, 1:41:25 PM (14 years ago)

Author:

gb

Message:

Conditionalize gf call-count reporting.

File:

• branches/working-0711/ccl/level-1/sysutils.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/sysutils.lisp

@@ -703 +703 @@
 (setq *type-system-initialized* t)
 
-
-
-
+#+count-gf-calls
+(progn
+;;; Call-counting for generic functions.  We overload the
+;;; (previously unused
+(defmethod generic-function-call-count ((gf generic-function))
+  (gf.hash gf))
+
+
+(defun (setf generic-function-call-count) (count gf)
+  (setf (gf.hash gf) (require-type count 'fixnum)))
+
+(defun clear-all-generic-function-call-counts ()
+  (dolist (gf (population.data %all-gfs%))
+    (setf (gf.hash gf) 0)))
+);#+count-gf-calls
+
+