Ignore:
Timestamp:
08/22/04 01:11:52 (17 years ago)
Author:
piso
Message:

SHOW-CALL-COUNT-FOR-SYMBOL: flag interpreted functions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/profiler.lisp

    r4754 r7479  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: profiler.lisp,v 1.9 2003-11-14 18:02:22 piso Exp $
     4;;; $Id: profiler.lisp,v 1.10 2004-08-22 01:11:52 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3939  (let ((count (sys::%call-count (fdefinition sym))))
    4040    (if max-count
    41         (format t "~A ~A (~A%)~%" sym count
     41        (format t "~A ~A ~A (~A%)~%"
     42                sym
     43                (if (compiled-function-p (fdefinition sym))
     44                    ""
     45                    "[interpreted function]")
     46                count
    4247                (/ (round (/ (* count 10000.0) max-count)) 100.0))
    4348        (format t "~A ~A~%" sym count))))
Note: See TracChangeset for help on using the changeset viewer.