Changeset 7855 for branches/working-0711/ccl/level-1/sysutils.lisp
- Timestamp:
- Dec 9, 2007, 1:41:25 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/level-1/sysutils.lisp
r7823 r7855 703 703 (setq *type-system-initialized* t) 704 704 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.