gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Gcl-devel] question about the reduce function


From: Bill Six
Subject: Re: [Gcl-devel] question about the reduce function
Date: Thu, 20 Dec 2007 20:18:11 -0500

Great!  Thanks for the help!  I'm glad to see that it was just my inexperience with GCL.

On 20 Dec 2007 17:48:31 -0500, Camm Maguire <address@hidden > wrote:
Greetings!

Please also note again the gprof profiling ability in the gcl and
gclcvs packages:


address@hidden:/fix/t1/camm/cvs/foo/ansi-tests$ GCL_PROF=t GCL_ANSI=t gclcvs
GCL (GNU Common Lisp)  2.7.0 ANSI  profiling  Dec 18 2007 12:45:57
Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd,xgcl)
Binary License:  GPL due to GPL'ed components: (XGCL READLINE BFD UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.

Temporary directory for compiler files set to /tmp/

>(defun range (start end) (loop for i from start below end collect i))

RANGE

>(progn (setf *foo* (range 0 200000)) (length *foo*))

200000

>(si::gprof-start)

NIL

>(time (reduce #'+ *foo*))

real time       :      0.180 secs
run-gbc time    :      0.060 secs
child run time  :      0.000 secs
gbc time        :      0.070 secs
19999900000

>(si::gprof-quit)
Flat profile:

Each sample counts as 0.01 seconds.
 %   cumulative   self              self     total
 time   seconds   seconds    calls  ms/call  ms/call  name
 66.67      0.04     0.04    52565     0.00     0.00  mark_cons
 33.33      0.06     0.02        1    20.00    59.99  LI19__REDUCE__recompile
 0.00       0.06     0.00   268728     0.00     0.00  mark_object
 0.00      0.06     0.00   200002     0.00     0.00  fixint
 0.00      0.06     0.00   176860     0.00     0.00  alloc_object
 0.00      0.06     0.00   176842     0.00     0.00  number_plus
 0.00      0.06     0.00   134487     0.00     0.00  alloc_relblock
 0.00      0.06     0.00   134473     0.00     0.00  m__gmpz_fits_slong_p
 0.00      0.06     0.00   134469     0.00     0.00  maybe_replace_big
 0.00      0.06     0.00   134464     0.00     0.00  m__gmpz_add_ui
 0.00      0.06     0.00    42379     0.00     0.00  fixnum_add
 0.00      0.06     0.00    42366     0.00     0.00  make_fixnum1
 0.00      0.06     0.00      328     0.00     0.00  symbol_value
 0.00      0.06     0.00      201     0.00     0.00  add_page_to_freelist
 0.00      0.06     0.00      201     0.00     0.00  alloc_page
 0.00      0.06     0.00      158     0.00     0.00  rl_putc_em
 0.00      0.06     0.00      158     0.00     0.00  writec_stream
 0.00      0.06     0.00       96     0.00     0.00  flush_stream
 0.00       0.06     0.00       91     0.00     0.00  string_eq
 0.00      0.06     0.00       85     0.00     0.00  rl_getc_em
 0.00      0.06     0.00       72     0.00     0.00  designate_package
 0.00      0.06     0.00       46     0.00     0.00  listen_stream
 0.00      0.06     0.00       45     0.00     0.00  readc_stream
 0.00      0.06     0.00       43     0.00     0.00  list
 0.00      0.06     0.00       42     0.00     0.00  check_stream
 0.00      0.06     0.00       42     0.00     0.00  rl_ungetc_em
 0.00      0.06     0.00       42     0.00     0.00  stream_at_end
 0.00      0.06     0.00       36     0.00     1.67  eval
 0.00      0.06     0.00       28     0.00     0.00  funcall
 0.00      0.06     0.00       26     0.00     0.00  IapplyVector
 0.00      0.06     0.00       18     0.00     0.00  numberp_fn
 0.00      0.06     0.00       17     0.00     0.00  m__gmpz_set_si
 0.00      0.06     0.00       14     0.00     0.00  c_apply_n
 0.00      0.06     0.00       14     0.00     0.00  writec_queue
 0.00      0.06     0.00       13     0.00     0.00  bind_var
 0.00      0.06     0.00       13     0.00     0.00  funcall_no_event
 0.00      0.06     0.00       12     0.00     0.00  m__gmpz_init
 0.00      0.06     0.00       12     0.00     0.00  read_object
 0.00      0.06     0.00       11     0.00     0.00  fSgensym0
 0.00      0.06     0.00       11     0.00     0.00  gensym_int
 0.00      0.06     0.00       11     0.00     0.00  ihash_equal1
 0.00      0.06     0.00        9     0.00     0.00  m__gmpz_get_si
 0.00      0.06     0.00        9     0.00     0.00  number_minusp
 0.00      0.06     0.00        9     0.00     0.00  symbol_function
 0.00      0.06     0.00        8     0.00     0.00  edit_double
 0.00      0.06     0.00        8     0.00     0.00  number_to_double
 0.00      0.06     0.00        8     0.00     0.00  super_funcall
 0.00      0.06     0.00        6     0.00     0.00  Ifuncall_n
 0.00      0.06     0.00        6     0.00     0.00  Imacro_expand1
 0.00      0.06     0.00        6     0.00     0.00  Ivs_values
 0.00      0.06     0.00        6     0.00     0.00  assoc_eq
 0.00      0.06     0.00        6     0.00     0.00  c_apply_n3
 0.00      0.06     0.00        6     0.00     0.00  consp_fn
 0.00      0.06     0.00        6     0.00     0.00  fLfuncall
 0.00      0.06     0.00        6     0.00     0.00  fLrplacd
 0.00      0.06     0.00        6     0.00     0.00  integer_divide1
 0.00      0.06     0.00        6     0.00     0.00  integer_quotient_remainder_1
 0.00      0.06     0.00        6     0.00     0.00  m__gmpz_tdiv_qr
 0.00      0.06     0.00        6     0.00     0.00  pack_hash
 0.00      0.06     0.00        6     0.00     0.00  quick_call_sfun
 0.00      0.06     0.00        5     0.00     0.00  Llist
 0.00      0.06     0.00        5     0.00     0.00  c_apply_n0
 0.00      0.06     0.00        5     0.00     0.00  current_package
 0.00      0.06     0.00        5     0.00     0.00  file_column
 0.00      0.06     0.00        5     0.00     0.00  intern
 0.00      0.06     0.00        5     0.00     0.00  streamp_fn
 0.00      0.06     0.00        4     0.00     0.00  Fsetq
 0.00      0.06     0.00        4     0.00     0.00  Ieval
 0.00      0.06     0.00        4     0.00     0.00  LI55__CAR__recompile
 0.00      0.06     0.00        4     0.00     0.00  Ldivide
 0.00      0.06     0.00        4     0.00     0.00  Lminus
 0.00      0.06     0.00        4     0.00     0.00  fmt_fix_float
 0.00      0.06     0.00        4     0.00     0.00  interactive_stream_p
 0.00       0.06     0.00        4     0.00     0.00  m__gmpz_set_ui
 0.00      0.06     0.00        4     0.00     0.00  m__gmpz_sub_ui
 0.00      0.06     0.00        4     0.00     0.00  make_ratio
 0.00      0.06     0.00        4     0.00     0.00  make_shortfloat
 0.00      0.06     0.00        4     0.00     0.00  number_divide
 0.00      0.06     0.00        4     0.00     0.00  number_minus
 0.00      0.06     0.00        4     0.00     0.00  pprint_dispatch
 0.00      0.06     0.00        4     0.00     0.00  setq
 0.00      0.06     0.00        4     0.00     0.00  siLgbc_time
 0.00      0.06     0.00        4     0.00     7.50  simple_symlispcall
 0.00      0.06     0.00        4     0.00     0.00  write_object
 0.00      0.06     0.00        4     0.00     0.00  writestr_stream
 0.00      0.06     0.00        4     0.00     0.00  zero_big
 0.00       0.06     0.00        3     0.00     0.00  Fmultiple_value_call
 0.00      0.06     0.00        3     0.00     0.00  Fprogn
 0.00      0.06     0.00        3     0.00     0.00  Fquote
 0.00      0.06     0.00        3     0.00     0.00  L29__MULTIPLE_VALUE_LIST__evalmacros
 0.00      0.06     0.00        3     0.00     0.00  Lfresh_line
 0.00      0.06     0.00        3     0.00     0.00  Lleft_parenthesis_reader
 0.00      0.06     0.00        3     0.00     0.00  bds_unwind
 0.00      0.06     0.00        3     0.00     0.00  coerce_stream
 0.00      0.06     0.00        3     0.00     0.00  digitp
 0.00      0.06     0.00        3     0.00     0.00  fLformat
 0.00      0.06     0.00        3     0.00     0.00  find_package
 0.00      0.06     0.00        3     0.00     0.00  find_special
 0.00      0.06     0.00        3     0.00     0.00  format
 0.00      0.06     0.00        3     0.00     0.00  get_gcd
 0.00      0.06     0.00        3     0.00     0.00  let_var_list
 0.00      0.06     0.00        3     0.00     0.00  macro_expand
 0.00       0.06     0.00        2     0.00     0.00  FletA
 0.00      0.06     0.00        2     0.00     0.00  L32__MULTIPLE_VALUE_BIND__evalmacros
 0.00      0.06     0.00        2     0.00     0.00  LI1__USER_PACKAGE__top
 0.00      0.06     0.00        2     0.00     0.00  LI4__TYPEP(long double *,...)(double, long, int, bool)
 0.00      0.06     0.00        2     0.00     0.00  LI51__CDR__recompile
 0.00      0.06     0.00        2     0.00     0.00  LI71__TYPEP_INT__recompile
 0.00      0.06     0.00        2     0.00     0.00  Lfind_package
 0.00      0.06     0.00        2     0.00     0.00  Lprin1
 0.00      0.06     0.00        2     0.00    15.00  Lread
 0.00      0.06     0.00        2     0.00     0.00  c_apply_n1
 0.00      0.06     0.00        2     0.00     0.00  current_readtable
 0.00      0.06     0.00        2     0.00     0.00  fLeval
 0.00      0.06     0.00        2     0.00     0.00  fLget_internal_real_time
 0.00      0.06     0.00        2     0.00     0.00  fSget_internal_run_times
 0.00      0.06     0.00        2     0.00     0.00  file_position
 0.00      0.06     0.00        2     0.00     0.00  flush_queue
 0.00      0.06     0.00        2     0.00     0.00  letA_bind
 0.00      0.06     0.00        2     0.00     0.00  listA
 0.00      0.06     0.00        2     0.00     0.00  parse_number
 0.00      0.06     0.00        2     0.00     0.00  prin1
 0.00      0.06     0.00        2     0.00     0.00  princ
 0.00      0.06     0.00        2     0.00     0.00  princ_char
 0.00      0.06     0.00        2     0.00    15.00  read_object_non_recursive
 0.00      0.06     0.00        2     0.00     0.00  runtime
 0.00      0.06     0.00        2     0.00     0.00  setupPRINTdefault
 0.00      0.06     0.00        2     0.00     0.00  setup_READ
 0.00      0.06     0.00        2     0.00     0.00  siLreset_stack_limits
 0.00      0.06     0.00        2     0.00     0.00  symlispcall
  0.00      0.06     0.00        2     0.00     0.00  unreadc_stream
 0.00      0.06     0.00        1     0.00     0.00  Ffunction
 0.00      0.06     0.00        1     0.00     0.00  Flet
 0.00      0.06     0.00        1     0.00    40.00  GBC
 0.00      0.06     0.00        1     0.00     0.00  L1__TIME__mislib
 0.00      0.06     0.00        1     0.00     0.00  LI113__PROPER_CONSP(long double *,...)(double, long, int, bool)
 0.00      0.06     0.00        1     0.00     0.00  LI114__PROPER_LISTP(long double *,...)(double, long, int, bool)
 0.00      0.06     0.00        1     0.00     0.00  LI115__PROPER_SEQUENCEP(long double *,...)(double, long, int, bool)
 0.00      0.06     0.00        1     0.00     0.00  LI6__IN_INTERVAL_P(long double *,...)(double, long, int, bool)
 0.00      0.06     0.00        1     0.00     0.00  LI70__IMPROPER_CONSP(long double *,...)(double, long, int, bool)
 0.00      0.06     0.00        1     0.00     0.00  Ldispatch_reader
 0.00      0.06     0.00        1     0.00     0.00  Lplus
 0.00      0.06     0.00        1     0.00     0.00  Lsharp_single_quote_reader
 0.00      0.06     0.00        1     0.00     0.00  Lvalues_list
 0.00      0.06     0.00        1     0.00     0.00  alloc_simple_string
 0.00      0.06     0.00        1     0.00     0.00  big_sign
 0.00      0.06     0.00        1     0.00     0.00  c_apply_n6
 0.00      0.06     0.00        1     0.00    59.99  call_vfun
 0.00      0.06     0.00        1     0.00     0.00  clear_stack
 0.00      0.06     0.00        1     0.00     0.00  coerce_big_to_string
 0.00      0.06     0.00        1     0.00     0.00  fSgprof_quit
 0.00      0.06     0.00        1     0.00     0.00  find_symbol
 0.00      0.06     0.00        1     0.00     0.00  getwd
 0.00      0.06     0.00        1     0.00     0.00  let_bind
 0.00      0.06     0.00        1     0.00     0.00  m__gmpz_get_strp
 0.00      0.06     0.00        1     0.00     0.00  m__gmpz_sizeinbase
 0.00      0.06     0.00        1     0.00     0.00  mark_c_stack
 0.00      0.06     0.00        1     0.00    40.00  mark_phase
 0.00      0.06     0.00        1     0.00     0.00  mark_stack_carefully
  0.00      0.06     0.00        1     0.00     0.00  normalize_big_to_object
 0.00      0.06     0.00        1     0.00     0.00  opt_maxpage
 0.00      0.06     0.00        1     0.00     0.00  parse_key_new_new
 0.00      0.06     0.00        1     0.00     0.00  print_symbol_name_body

 %         the percentage of the total running time of the
time       program used by this function.

cumulative a running sum of the number of seconds accounted
 seconds   for by this function and those listed above it.

 self      the number of seconds accounted for by this
seconds    function alone.  This is the major sort for this
          listing.

calls      the number of times this function was invoked, if
          this function is profiled, else blank.

 self      the average number of milliseconds spent in this
ms/call    function per call, if this function is profiled,
          else blank.

 total     the average number of milliseconds spent in this
ms/call    function and its descendents per call, if this
          function is profiled, else blank.

name       the name of the function.  This is the minor sort
          for this listing. The index shows the location of
          the function in the gprof listing. If the index is
          in parenthesis it shows where it would appear in
          the gprof listing if it were to be printed.

                    Call graph (explanation follows)


granularity: each sample hit covers 4 byte(s) for 16.67% of 0.06 seconds

index % time    self  children    called     name
                                                <spontaneous>
[1]     100.0    0.00    0.06                 LI5__TOP_LEVEL1__top [1]
               0.00    0.03       4/4           simple_symlispcall [12]
               0.00    0.03       2/4           funcall <cycle 1> [21]
               0.00    0.00       2/3           fLformat [28]
               0.00    0.00       2/2           LI1__USER_PACKAGE__top [124]
               0.00    0.00       2/2           siLreset_stack_limits [142]
               0.00    0.00       2/2           symlispcall [143]
               0.00    0.00       2/5           Llist [91]
               0.00    0.00       2/3           Lfresh_line [113]
                0.00    0.00       2/96          flush_stream [56]
               0.00    0.00       2/2           princ_char [138]
-----------------------------------------------
[2]    100.0    0.00    0.06       4+157     <cycle 1 as a whole> [2]
               0.00    0.06      36+36          eval <cycle 1> [3]
               0.00    0.00      28             funcall <cycle 1> [21]
               0.00    0.00      14             c_apply_n <cycle 1> [33]
               0.00    0.00      12             read_object <cycle 1> [38]
               0.00    0.00      26             IapplyVector <cycle 1> [66]
               0.00    0.00       6             fLfuncall <cycle 1> [86]
               0.00    0.00       6             Imacro_expand1 <cycle 1> [81]
               0.00    0.00       4             Fsetq <cycle 1> [97]
               0.00    0.00       4             Ieval <cycle 1> [98]
               0.00    0.00       3             Fmultiple_value_call <cycle 1> [109]
               0.00    0.00       3             Fprogn <cycle 1> [110]
               0.00    0.00       3             Lleft_parenthesis_reader <cycle 1> [114]
               0.00    0.00       2             FletA <cycle 1> [123]
               0.00    0.00       2             letA_bind <cycle 1> [136]
               0.00    0.00       2             fLeval <cycle 1> [131]
               0.00    0.00       1             Flet <cycle 1> [146]
               0.00    0.00       1             let_bind <cycle 1> [161]
               0.00    0.00       1             Ldispatch_reader <cycle 1> [152]
               0.00    0.00       1             Lsharp_single_quote_reader <cycle 1> [154]
-----------------------------------------------
                                 36             eval <cycle 1> [3]
                                  2             fLeval <cycle 1> [131]
                                  4             Ieval <cycle 1> [98]
                                  5             let_bind <cycle 1> [161]
                                  6             Fmultiple_value_call <cycle 1> [109]
                                  8             letA_bind <cycle 1> [136]
                                 11             Fprogn <cycle 1> [110]
[3]    100.0    0.00    0.06      36+36      eval <cycle 1> [3]
               0.00    0.06       1/1           call_vfun [4]
               0.00    0.00       4/4           Ldivide [16]
                0.00    0.00       4/4           Lminus [27]
               0.00    0.00      13/13          funcall_no_event [71]
               0.00    0.00       6/6           quick_call_sfun [90]
               0.00    0.00       4/4           siLgbc_time [106]
               0.00    0.00       3/3           bds_unwind [115]
               0.00    0.00       3/8           super_funcall [79]
               0.00    0.00       3/3           Fquote [111]
               0.00    0.00       1/1           Ffunction [145]
               0.00    0.00       1/1           Lvalues_list [155]
               0.00    0.00       1/3           Lfresh_line [113]
                0.00    0.00       1/1           Lplus [153]
                                  9             funcall <cycle 1> [21]
                                  6             Imacro_expand1 <cycle 1> [81]
                                  4             Fsetq <cycle 1> [97]
                                  3             Fmultiple_value_call <cycle 1> [109]
                                  2             FletA <cycle 1> [123]
                                  1             Flet <cycle 1> [146]
                                 36             eval <cycle 1> [3]
-----------------------------------------------
               0.00    0.06       1/1           eval <cycle 1> [3]
[4]    100.0    0.00    0.06       1         call_vfun [4]
               0.02    0.04       1/1           LI19__REDUCE__recompile [5]
-----------------------------------------------
               0.02    0.04       1/1           call_vfun [4]
[5]    100.0    0.02    0.04       1         LI19__REDUCE__recompile [5]
               0.00    0.03  134464/134469      maybe_replace_big [11]
               0.00    0.01   42366/42366       make_fixnum1 [15]
               0.00    0.00  200002/200002      fixint [45]
               0.00    0.00  176830/176842      number_plus [46]
               0.00    0.00   42367/42379       fixnum_add [50]
                0.00    0.00       3/9           symbol_function [76]
               0.00    0.00       1/1           parse_key_new_new [166]
               0.00    0.00       1/1           LI113__PROPER_CONSP(long double *,...)(double, long, int, bool) [147]
               0.00    0.00       1/1           LI114__PROPER_LISTP(long double *,...)(double, long, int, bool) [148]
               0.00    0.00       1/1           LI115__PROPER_SEQUENCEP(long double *,...)(double, long, int, bool) [149]
               0.00    0.00       1/1           LI4__TYPEP(long double *,...)(double, long, int, bool) <cycle 3> [125]
-----------------------------------------------
[6]     66.7    0.04    0.00   24375+296918  <cycle 2 as a whole> [6]
               0.00    0.00  268728+516157      mark_object <cycle 2> [44]
-----------------------------------------------
               0.00    0.00       1/176860      alloc_simple_string [36]
                0.00    0.00       3/176860      make_shortfloat [31]
               0.00    0.00       3/176860      make_ratio [17]
               0.00    0.00      11/176860      gensym_int [23]
               0.00    0.00      12/176860      integer_quotient_remainder_1 [20]
               0.00    0.01   42366/176860      make_fixnum1 [15]
               0.00    0.03  134464/176860      maybe_replace_big [11]
[7]     66.7    0.00    0.04  176860         alloc_object [7]
               0.00    0.04       1/1           GBC [9]
               0.00    0.00     201/201         alloc_page [53]
               0.00    0.00     201/201         add_page_to_freelist [52]
-----------------------------------------------
                              39011             mark_cons <cycle 2> [8]
                              52565             mark_object <cycle 2> [44]
[8]     66.7    0.04    0.00   52565+39011   mark_cons <cycle 2> [8]
                             244353             mark_object <cycle 2> [44]
                              39011             mark_cons <cycle 2> [8]
-----------------------------------------------
               0.00    0.04       1/1           alloc_object [7]
[9]     66.7    0.00    0.04       1         GBC [9]
               0.00    0.04       1/1           mark_phase [10]
               0.00    0.00       2/2           runtime [139]
               0.00    0.00       1/328         symbol_value [51]
               0.00    0.00       1/1           opt_maxpage [165]
-----------------------------------------------
               0.00    0.04       1/1           GBC [9]
[10]    66.7    0.00    0.04       1         mark_phase [10]
               0.04    0.00   24374/24375       mark_object <cycle 2> [44]
                0.00    0.00       1/1           mark_c_stack [25]
               0.00    0.00       1/1           clear_stack [157]
-----------------------------------------------
               0.00    0.00       1/134469      parse_number [39]
               0.00    0.00       4/134469      Lminus [27]
               0.00    0.03  134464/134469      LI19__REDUCE__recompile [5]
[11]    50.7    0.00    0.03  134469         maybe_replace_big [11]
                0.00    0.03  134464/176860      alloc_object [7]
               0.00    0.00  134467/134473      m__gmpz_fits_slong_p [48]
               0.00    0.00  134464/134487      alloc_relblock [47]
               0.00    0.00       3/9           m__gmpz_get_si [74]
-----------------------------------------------
               0.00    0.03       4/4           LI5__TOP_LEVEL1__top [1]
[12]    50.0    0.00    0.03       4         simple_symlispcall [12]
               0.00    0.03       2/2           Lread [13]
               0.00    0.00       2/2           Lprin1 [40]
               0.00    0.00       4/9           symbol_function [76]
-----------------------------------------------
               0.00    0.03       2/2           simple_symlispcall [12]
[13]    50.0    0.00    0.03       2         Lread [13]
               0.00    0.03       2/2           read_object_non_recursive [14]
               0.00    0.00       2/5           streamp_fn [96]
-----------------------------------------------
               0.00    0.03       2/2           Lread [13]
[14]    50.0    0.00    0.03       2         read_object_non_recursive [14]
               0.00    0.03       2/4           read_object <cycle 1> [38]
               0.00    0.00       4/4           interactive_stream_p [100]
               0.00    0.00       4/46          listen_stream [60]
               0.00    0.00       2/2           setup_READ [141]
               0.00    0.00       2/45          readc_stream [61]
-----------------------------------------------
               0.00    0.01   42366/42366       LI19__REDUCE__recompile [5]
[15]    16.0    0.00    0.01   42366         make_fixnum1 [15]
               0.00    0.01   42366/176860      alloc_object [7]
-----------------------------------------------
               0.00    0.00       4/4           eval <cycle 1> [3]
[16]     0.0    0.00    0.00       4         Ldivide [16]
               0.00    0.00       4/4           number_divide [18]
                0.00    0.00       8/18          numberp_fn [67]
-----------------------------------------------
               0.00    0.00       4/4           number_divide [18]
[17]     0.0    0.00    0.00       4         make_ratio [17]
               0.00    0.00       6/6           integer_divide1 [19]
               0.00    0.00       3/176860      alloc_object [7]
               0.00    0.00       3/9           number_minusp [75]
                0.00    0.00       3/3           get_gcd [120]
-----------------------------------------------
               0.00    0.00       4/4           Ldivide [16]
[18]     0.0    0.00    0.00       4         number_divide [18]
               0.00    0.00       4/4           make_ratio [17]
-----------------------------------------------
               0.00    0.00       6/6           make_ratio [17]
[19]     0.0    0.00    0.00       6         integer_divide1 [19]
               0.00    0.00       6/6           integer_quotient_remainder_1 [20]
-----------------------------------------------
               0.00    0.00       6/6           integer_divide1 [19]
[20]     0.0    0.00    0.00       6         integer_quotient_remainder_1 [20]
               0.00    0.00      12/176860      alloc_object [7]
               0.00    0.00      12/12          m__gmpz_init [72]
                0.00    0.00      12/17          m__gmpz_set_si [68]
               0.00    0.00       6/6           m__gmpz_tdiv_qr [88]
               0.00    0.00       6/134473      m__gmpz_fits_slong_p [48]
                0.00    0.00       6/9           m__gmpz_get_si [74]
-----------------------------------------------
                                  1             Ldispatch_reader <cycle 1> [152]
                                  4             read_object <cycle 1> [38]
                                  9             eval <cycle 1> [3]
                                 12             IapplyVector <cycle 1> [66]
               0.00    0.03       2/4           LI5__TOP_LEVEL1__top [1]
[21]     0.0    0.00    0.00      28         funcall <cycle 1> [21]
               0.00    0.00       1/1           L1__TIME__mislib [24]
               0.00    0.00       2/2           L32__MULTIPLE_VALUE_BIND__evalmacros [32]
               0.00    0.00       3/5           Llist [91]
               0.00    0.00       3/3           L29__MULTIPLE_VALUE_LIST__evalmacros [112]
                                 14             IapplyVector <cycle 1> [66]
                                  3             Lleft_parenthesis_reader <cycle 1> [114]
                                  1             Lsharp_single_quote_reader <cycle 1> [154]
                                  1             Ldispatch_reader <cycle 1> [152]
-----------------------------------------------
               0.00    0.00       2/11          L32__MULTIPLE_VALUE_BIND__evalmacros [32]
               0.00    0.00       9/11          L1__TIME__mislib [24]
[22]     0.0    0.00    0.00      11         fSgensym0 [22]
               0.00    0.00      11/11          gensym_int [23]
               0.00    0.00      11/42379       fixnum_add [50]
               0.00     0.00      11/176842      number_plus [46]
-----------------------------------------------
               0.00    0.00      11/11          fSgensym0 [22]
[23]     0.0    0.00    0.00      11         gensym_int [23]
               0.00    0.00      11/176860      alloc_object [7]
               0.00    0.00      22/134487      alloc_relblock [47]
               0.00    0.00      11/11          ihash_equal1 [73]
-----------------------------------------------
               0.00    0.00       1/1           funcall <cycle 1> [21]
[24]     0.0    0.00    0.00       1         L1__TIME__mislib [24]
               0.00    0.00       9/11          fSgensym0 [22]
               0.00    0.00      24/43          list [62]
-----------------------------------------------
                                  2             mark_c_stack [25]
               0.00    0.00       1/1           mark_phase [10]
[25]     0.0    0.00    0.00       1+2       mark_c_stack [25]
               0.00    0.00       1/1           mark_stack_carefully [26]
                                  2             mark_c_stack [25]
-----------------------------------------------
               0.00    0.00       1/1           mark_c_stack [25]
[26]     0.0    0.00    0.00       1         mark_stack_carefully [26]
               0.00    0.00       1/24375       mark_object <cycle 2> [44]
-----------------------------------------------
               0.00    0.00       4/4           eval <cycle 1> [3]
[27]     0.0    0.00    0.00       4         Lminus [27]
               0.00    0.00       4/134469      maybe_replace_big [11]
               0.00    0.00       8/18          numberp_fn [67]
               0.00    0.00       4/4           number_minus [103]
-----------------------------------------------
               0.00    0.00       1/3           c_apply_n6 [34]
               0.00    0.00       2/3           LI5__TOP_LEVEL1__top [1]
[28]     0.0    0.00    0.00       3         fLformat [28]
               0.00    0.00       3/3           format [29]
               0.00    0.00       5/328         symbol_value [51]
               0.00    0.00       3/96          flush_stream [56]
               0.00    0.00       1/5           streamp_fn [96]
-----------------------------------------------
               0.00    0.00       3/3           fLformat [28]
[29]     0.0    0.00    0.00       3         format [29]
               0.00    0.00       4/4           fmt_fix_float [30]
               0.00    0.00       2/2           princ [42]
               0.00    0.00     100/158         writec_stream [55]
               0.00    0.00       2/5           file_column [94]
-----------------------------------------------
               0.00    0.00       4/4           format [29]
[30]     0.0    0.00    0.00       4         fmt_fix_float [30]
               0.00    0.00       4/4           make_shortfloat [31]
                0.00    0.00      20/158         writec_stream [55]
               0.00    0.00       8/8           number_to_double [78]
               0.00    0.00       8/8           edit_double [77]
               0.00     0.00       4/4           writestr_stream [107]
-----------------------------------------------
               0.00    0.00       4/4           fmt_fix_float [30]
[31]     0.0    0.00    0.00       4         make_shortfloat [31]
               0.00    0.00       3/176860      alloc_object [7]
-----------------------------------------------
               0.00    0.00       2/2           funcall <cycle 1> [21]
[32]     0.0     0.00    0.00       2         L32__MULTIPLE_VALUE_BIND__evalmacros [32]
               0.00    0.00       2/11          fSgensym0 [22]
               0.00    0.00      16/43          list [62]
               0.00    0.00       6/6           fLrplacd [87]
               0.00    0.00       2/2           listA [137]
-----------------------------------------------
                                 14             IapplyVector <cycle 1> [66]
[33]     0.0    0.00    0.00      14         c_apply_n <cycle 1> [33]
               0.00    0.00       1/1           c_apply_n6 [34]
               0.00    0.00       6/6           c_apply_n3 [84]
                0.00    0.00       5/5           c_apply_n0 [92]
               0.00    0.00       2/2           c_apply_n1 [129]
               0.00    0.00       2/6           Ivs_values [82]
               0.00    0.00       2/2           fLget_internal_real_time [132]
               0.00    0.00       2/2           fSget_internal_run_times [133]
               0.00    0.00       1/1           fSgprof_quit [158]
                                  6             fLfuncall <cycle 1> [86]
                                  2             fLeval <cycle 1> [131]
-----------------------------------------------
               0.00    0.00       1/1           c_apply_n <cycle 1> [33]
[34]     0.0    0.00    0.00       1         c_apply_n6 [34]
               0.00    0.00       1/3           fLformat [28]
-----------------------------------------------
               0.00    0.00       2/4           prin1 [41]
               0.00    0.00       2/4           princ [42]
[35]     0.0    0.00    0.00       4         write_object [35]
               0.00    0.00       1/1           coerce_big_to_string [37]
                0.00    0.00      11/14          writec_queue [69]
               0.00    0.00       4/4           pprint_dispatch [104]
               0.00    0.00       1/5           current_package [93]
               0.00    0.00       1/1           find_symbol [159]
               0.00    0.00       1/1           big_sign [156]
-----------------------------------------------
               0.00    0.00       1/1           coerce_big_to_string [37]
[36]     0.0    0.00    0.00       1         alloc_simple_string [36]
               0.00    0.00       1/176860      alloc_object [7]
-----------------------------------------------
               0.00     0.00       1/1           write_object [35]
[37]     0.0    0.00    0.00       1         coerce_big_to_string [37]
               0.00    0.00       1/1           alloc_simple_string [36]
               0.00     0.00       1/1           m__gmpz_sizeinbase [163]
               0.00    0.00       1/134487      alloc_relblock [47]
               0.00    0.00       1/1           m__gmpz_get_strp [162]
-----------------------------------------------
                                  1             Lsharp_single_quote_reader <cycle 1> [154]
                                  9             Lleft_parenthesis_reader <cycle 1> [114]
               0.00    0.03       2/4           read_object_non_recursive [14]
[38]     0.0    0.00    0.00      12         read_object <cycle 1> [38]
               0.00    0.00       2/2           parse_number [39]
                0.00    0.00      42/42          stream_at_end [65]
               0.00    0.00      42/45          readc_stream [61]
               0.00    0.00       5/5           intern [95]
               0.00    0.00       4/5           current_package [93]
               0.00    0.00       4/8           super_funcall [79]
               0.00    0.00       2/42          rl_ungetc_em [64]
               0.00    0.00       2/2           unreadc_stream [144]
                0.00    0.00       1/3           find_package [118]
                                  4             funcall <cycle 1> [21]
-----------------------------------------------
               0.00    0.00       2/2           read_object <cycle 1> [38]
[39]     0.0    0.00    0.00       2         parse_number [39]
               0.00    0.00       1/134469      maybe_replace_big [11]
               0.00    0.00       4/4           zero_big [108]
                0.00    0.00       1/1           normalize_big_to_object [164]
               0.00    0.00       1/3           digitp [117]
-----------------------------------------------
               0.00    0.00       2/2           simple_symlispcall [12]
[40]     0.0    0.00    0.00       2         Lprin1 [40]
               0.00    0.00       2/2           prin1 [41]
-----------------------------------------------
               0.00    0.00       2/2           Lprin1 [40]
[41]     0.0    0.00    0.00       2         prin1 [41]
               0.00    0.00       2/4           write_object [35]
               0.00    0.00       2/2           setupPRINTdefault [140]
                0.00    0.00       2/96          flush_stream [56]
               0.00    0.00       2/2           flush_queue [135]
               0.00    0.00       2/328         symbol_value [51]
               0.00    0.00       1/1           print_symbol_name_body [167]
-----------------------------------------------
               0.00    0.00       2/2           format [29]
[42]     0.0    0.00    0.00       2         princ [42]
               0.00    0.00       2/4           write_object [35]
-----------------------------------------------
[43]     0.0    0.00    0.00       1+4       <cycle 3 as a whole> [43]
                0.00    0.00       2             LI4__TYPEP(long double *,...)(double, long, int, bool) <cycle 3> [125]
               0.00    0.00       2             LI71__TYPEP_INT__recompile <cycle 3> [127]
-----------------------------------------------
                             516157             mark_object <cycle 2> [44]
                             244353             mark_cons <cycle 2> [8]
               0.00    0.00       1/24375       mark_stack_carefully [26]
               0.04    0.00   24374/24375       mark_phase [10]
[44]     0.0    0.00    0.00  268728+516157  mark_object <cycle 2> [44]
                              52565             mark_cons <cycle 2> [8]
                             516157             mark_object <cycle 2> [44]
-----------------------------------------------
               0.00    0.00  200002/200002      LI19__REDUCE__recompile [5]
[45]     0.0    0.00    0.00  200002         fixint [45]
-----------------------------------------------
               0.00    0.00       1/176842      Lplus [153]
               0.00    0.00      11/176842      fSgensym0 [22]
               0.00    0.00  176830/176842      LI19__REDUCE__recompile [5]
[46]     0.0    0.00    0.00  176842         number_plus [46]
               0.00    0.00  134463/134464      m__gmpz_add_ui [49]
-----------------------------------------------
               0.00    0.00       1/134487      coerce_big_to_string [37]
               0.00    0.00      22/134487      gensym_int [23]
               0.00     0.00  134464/134487      maybe_replace_big [11]
[47]     0.0    0.00    0.00  134487         alloc_relblock [47]
-----------------------------------------------
               0.00    0.00       6/134473      integer_quotient_remainder_1 [20]
               0.00    0.00  134467/134473      maybe_replace_big [11]
[48]     0.0    0.00    0.00  134473         m__gmpz_fits_slong_p [48]
-----------------------------------------------
               0.00    0.00       1/134464      fixnum_add [50]
               0.00    0.00  134463/134464      number_plus [46]
[49]     0.0    0.00    0.00  134464         m__gmpz_add_ui [49]
-----------------------------------------------
               0.00    0.00       1/42379       Lplus [153]
               0.00    0.00      11/42379       fSgensym0 [22]
               0.00    0.00   42367/42379       LI19__REDUCE__recompile [5]
[50]     0.0    0.00    0.00   42379         fixnum_add [50]
               0.00    0.00       1/17          m__gmpz_set_si [68]
               0.00    0.00       1/134464      m__gmpz_add_ui [49]
-----------------------------------------------
               0.00    0.00       1/328         GBC [9]
               0.00    0.00       2/328         Lfresh_line [113]
               0.00    0.00       2/328         prin1 [41]
               0.00     0.00       2/328         current_readtable [130]
               0.00    0.00       2/328         file_column [94]
               0.00    0.00       2/328         file_position [134]
               0.00    0.00       2/328         unreadc_stream [144]
               0.00    0.00       3/328         coerce_stream [116]
               0.00    0.00       4/328         pprint_dispatch [104]
               0.00    0.00       4/328         princ_char [138]
               0.00    0.00       4/328         interactive_stream_p [100]
               0.00    0.00       4/328         listen_stream [60]
               0.00    0.00       5/328         current_package [93]
               0.00    0.00       5/328         fLformat [28]
               0.00    0.00       7/328         flush_stream [56]
               0.00    0.00       8/328         setup_READ [141]
                0.00    0.00      28/328         setupPRINTdefault [140]
               0.00    0.00      42/328         stream_at_end [65]
               0.00    0.00      45/328         readc_stream [61]
               0.00    0.00     156/328         writec_stream [55]
[51]     0.0    0.00    0.00     328         symbol_value [51]
-----------------------------------------------
               0.00    0.00     201/201         alloc_object [7]
[52]     0.0    0.00    0.00     201         add_page_to_freelist [52]
-----------------------------------------------
               0.00    0.00     201/201         alloc_object [7]
[53]     0.0    0.00     0.00     201         alloc_page [53]
-----------------------------------------------
               0.00    0.00     158/158         writec_stream [55]
[54]     0.0    0.00    0.00     158         rl_putc_em [54]
-----------------------------------------------
               0.00    0.00       2/158         princ_char [138]
               0.00    0.00       2/158         Lfresh_line [113]
               0.00    0.00      14/158         flush_queue [135]
               0.00    0.00      20/158         writestr_stream [107]
               0.00    0.00      20/158         fmt_fix_float [30]
               0.00    0.00     100/158         format [29]
[55]     0.0    0.00    0.00     158         writec_stream [55]
               0.00    0.00     158/158         rl_putc_em [54]
               0.00    0.00     156/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       2/96          Lfresh_line [113]
               0.00    0.00       2/96          prin1 [41]
               0.00    0.00       2/96          LI5__TOP_LEVEL1__top [1]
                0.00    0.00       3/96          fLformat [28]
               0.00    0.00      42/96          stream_at_end [65]
               0.00    0.00      45/96          readc_stream [61]
[56]     0.0    0.00    0.00      96         flush_stream [56]
               0.00    0.00       7/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00      91/91          designate_package [59]
[57]     0.0    0.00     0.00      91         string_eq [57]
-----------------------------------------------
               0.00    0.00      40/85          stream_at_end [65]
               0.00    0.00      45/85          readc_stream [61]
[58]     0.0    0.00    0.00      85         rl_getc_em [58]
-----------------------------------------------
               0.00    0.00      72/72          find_package [118]
[59]     0.0    0.00    0.00      72         designate_package [59]
               0.00    0.00      91/91          string_eq [57]
-----------------------------------------------
               0.00    0.00       4/46          read_object_non_recursive [14]
                0.00    0.00      42/46          stream_at_end [65]
[60]     0.0    0.00    0.00      46         listen_stream [60]
               0.00    0.00       4/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       1/45          Ldispatch_reader <cycle 1> [152]
               0.00    0.00       2/45          read_object_non_recursive [14]
               0.00    0.00      42/45          read_object <cycle 1> [38]
[61]     0.0    0.00    0.00      45         readc_stream [61]
               0.00    0.00      45/85          rl_getc_em [58]
               0.00    0.00      45/328         symbol_value [51]
                0.00    0.00      45/96          flush_stream [56]
-----------------------------------------------
               0.00    0.00       3/43          L29__MULTIPLE_VALUE_LIST__evalmacros [112]
               0.00     0.00      16/43          L32__MULTIPLE_VALUE_BIND__evalmacros [32]
               0.00    0.00      24/43          L1__TIME__mislib [24]
[62]     0.0    0.00    0.00      43         list [62]
-----------------------------------------------
               0.00    0.00      42/42          stream_at_end [65]
[63]     0.0    0.00    0.00      42         check_stream [63]
-----------------------------------------------
               0.00    0.00       2/42          read_object <cycle 1> [38]
               0.00    0.00      40/42          stream_at_end [65]
[64]     0.0    0.00    0.00      42         rl_ungetc_em [64]
-----------------------------------------------
               0.00    0.00      42/42          read_object <cycle 1> [38]
[65]     0.0    0.00    0.00      42         stream_at_end [65]
               0.00    0.00      42/96          flush_stream [56]
               0.00    0.00      42/328         symbol_value [51]
                0.00    0.00      42/42          check_stream [63]
               0.00    0.00      42/46          listen_stream [60]
               0.00    0.00      40/85          rl_getc_em [58]
               0.00    0.00      40/42          rl_ungetc_em [64]
-----------------------------------------------
                                  6             Ifuncall_n <cycle 1> [80]
                                  6             fLfuncall <cycle 1> [86]
                                 14             funcall <cycle 1> [21]
[66]     0.0    0.00    0.00      26         IapplyVector <cycle 1> [66]
                                 14             c_apply_n <cycle 1> [33]
                                 12             funcall <cycle 1> [21]
-----------------------------------------------
               0.00    0.00       2/18          Lplus [153]
               0.00     0.00       8/18          Lminus [27]
               0.00    0.00       8/18          Ldivide [16]
[67]     0.0    0.00    0.00      18         numberp_fn [67]
-----------------------------------------------
                0.00    0.00       1/17          fixnum_add [50]
               0.00    0.00       4/17          number_minus [103]
               0.00    0.00      12/17          integer_quotient_remainder_1 [20]
[68]     0.0    0.00    0.00      17         m__gmpz_set_si [68]
-----------------------------------------------
               0.00    0.00       3/14          print_symbol_name_body [167]
               0.00    0.00      11/14          write_object [35]
[69]     0.0    0.00    0.00      14         writec_queue [69]
-----------------------------------------------
               0.00    0.00       5/13          let_bind <cycle 1> [161]
               0.00    0.00       8/13          letA_bind <cycle 1> [136]
[70]     0.0    0.00    0.00      13         bind_var [70]
-----------------------------------------------
               0.00    0.00      13/13          eval <cycle 1> [3]
[71]     0.0    0.00    0.00      13         funcall_no_event [71]
-----------------------------------------------
               0.00    0.00      12/12          integer_quotient_remainder_1 [20]
[72]     0.0    0.00    0.00      12         m__gmpz_init [72]
-----------------------------------------------
               0.00    0.00      11/11          gensym_int [23]
[73]     0.0    0.00    0.00      11         ihash_equal1 [73]
-----------------------------------------------
               0.00    0.00       3/9           maybe_replace_big [11]
               0.00    0.00       6/9           integer_quotient_remainder_1 [20]
[74]     0.0    0.00    0.00       9         m__gmpz_get_si [74]
-----------------------------------------------
               0.00    0.00       3/9           make_ratio [17]
               0.00    0.00       6/9           get_gcd [120]
[75]     0.0    0.00    0.00       9         number_minusp [75]
-----------------------------------------------
               0.00    0.00       2/9           symlispcall [143]
               0.00    0.00       3/9           LI19__REDUCE__recompile [5]
               0.00    0.00       4/9           simple_symlispcall [12]
[76]     0.0    0.00    0.00       9         symbol_function [76]
-----------------------------------------------
               0.00     0.00       8/8           fmt_fix_float [30]
[77]     0.0    0.00    0.00       8         edit_double [77]
-----------------------------------------------
                                  6             number_to_double [78]
               0.00    0.00       8/8           fmt_fix_float [30]
[78]     0.0    0.00    0.00       8+6       number_to_double [78]
                                  6             number_to_double [78]
-----------------------------------------------
               0.00    0.00       1/8           Ldispatch_reader <cycle 1> [152]
               0.00    0.00       3/8           eval <cycle 1> [3]
               0.00    0.00       4/8           read_object <cycle 1> [38]
[79]     0.0    0.00    0.00       8         super_funcall [79]
-----------------------------------------------
                                  6             Imacro_expand1 <cycle 1> [81]
[80]     0.0    0.00    0.00       6         Ifuncall_n <cycle 1> [80]
                                  6             IapplyVector <cycle 1> [66]
-----------------------------------------------
                                  6             eval <cycle 1> [3]
[81]     0.0    0.00    0.00       6         Imacro_expand1 <cycle 1> [81]
                                  6             Ifuncall_n <cycle 1> [80]
-----------------------------------------------
               0.00    0.00       2/6           c_apply_n <cycle 1> [33]
               0.00    0.00       4/6           Fsetq <cycle 1> [97]
[82]     0.0    0.00    0.00       6         Ivs_values [82]
-----------------------------------------------
               0.00    0.00       1/6           Ffunction [145]
               0.00    0.00       1/6           macro_expand [122]
               0.00    0.00       4/6           setq [105]
[83]     0.0    0.00    0.00       6         assoc_eq [83]
-----------------------------------------------
               0.00    0.00       6/6           c_apply_n <cycle 1> [33]
[84]     0.0    0.00    0.00       6         c_apply_n3 [84]
-----------------------------------------------
               0.00    0.00       6/6           fLrplacd [87]
[85]     0.0    0.00    0.00       6         consp_fn [85]
-----------------------------------------------
                                  6             c_apply_n <cycle 1> [33]
[86]     0.0    0.00    0.00       6         fLfuncall <cycle 1> [86]
                                  6             IapplyVector <cycle 1> [66]
-----------------------------------------------
               0.00    0.00       6/6           L32__MULTIPLE_VALUE_BIND__evalmacros [32]
[87]     0.0    0.00    0.00       6         fLrplacd [87]
                0.00    0.00       6/6           consp_fn [85]
-----------------------------------------------
               0.00    0.00       6/6           integer_quotient_remainder_1 [20]
[88]     0.0    0.00    0.00       6         m__gmpz_tdiv_qr [88]
-----------------------------------------------
               0.00    0.00       1/6           find_symbol [159]
               0.00    0.00       5/6           intern [95]
[89]     0.0    0.00    0.00       6         pack_hash [89]
-----------------------------------------------
               0.00    0.00       6/6           eval <cycle 1> [3]
[90]     0.0    0.00    0.00       6         quick_call_sfun [90]
               0.00    0.00       4/4           LI55__CAR__recompile [99]
               0.00    0.00       2/2           LI51__CDR__recompile [126]
-----------------------------------------------
               0.00    0.00       2/5           LI5__TOP_LEVEL1__top [1]
               0.00    0.00       3/5           funcall <cycle 1> [21]
[91]     0.0    0.00    0.00       5         Llist [91]
-----------------------------------------------
               0.00    0.00       5/5           c_apply_n <cycle 1> [33]
[92]     0.0    0.00    0.00       5         c_apply_n0 [92]
-----------------------------------------------
               0.00    0.00       1/5           write_object [35]
               0.00    0.00       4/5           read_object <cycle 1> [38]
[93]     0.0    0.00    0.00       5         current_package [93]
               0.00    0.00       5/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       2/5           format [29]
               0.00    0.00       3/5           Lfresh_line [113]
[94]     0.0    0.00    0.00       5         file_column [94]
               0.00    0.00       2/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       5/5           read_object <cycle 1> [38]
[95]     0.0    0.00    0.00       5         intern [95]
               0.00    0.00       5/6           pack_hash [89]
-----------------------------------------------
               0.00    0.00       1/5           fLformat [28]
               0.00    0.00       2/5           princ_char [138]
               0.00    0.00       2/5           Lread [13]
[96]     0.0    0.00    0.00       5         streamp_fn [96]
-----------------------------------------------
                                  4             eval <cycle 1> [3]
[97]     0.0    0.00    0.00       4         Fsetq <cycle 1> [97]
               0.00    0.00       4/6           Ivs_values [82]
               0.00    0.00       4/4           setq [105]
                                  4             Ieval <cycle 1> [98]
-----------------------------------------------
                                  4             Fsetq <cycle 1> [97]
[98]     0.0    0.00    0.00       4         Ieval <cycle 1> [98]
                                  4             eval <cycle 1> [3]
-----------------------------------------------
                0.00    0.00       4/4           quick_call_sfun [90]
[99]     0.0    0.00    0.00       4         LI55__CAR__recompile [99]
-----------------------------------------------
               0.00    0.00       4/4           read_object_non_recursive [14]
[100]    0.0    0.00    0.00       4         interactive_stream_p [100]
               0.00    0.00       4/328         symbol_value [51]
-----------------------------------------------
               0.00     0.00       4/4           zero_big [108]
[101]    0.0    0.00    0.00       4         m__gmpz_set_ui [101]
-----------------------------------------------
               0.00    0.00       4/4           number_minus [103]
[102]    0.0    0.00    0.00       4         m__gmpz_sub_ui [102]
-----------------------------------------------
               0.00    0.00       4/4           Lminus [27]
[103]    0.0    0.00    0.00       4         number_minus [103]
               0.00    0.00       4/17          m__gmpz_set_si [68]
               0.00    0.00       4/4           m__gmpz_sub_ui [102]
-----------------------------------------------
               0.00     0.00       4/4           write_object [35]
[104]    0.0    0.00    0.00       4         pprint_dispatch [104]
               0.00    0.00       4/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       4/4           Fsetq <cycle 1> [97]
[105]    0.0    0.00    0.00       4         setq [105]
               0.00    0.00       4/6           assoc_eq [83]
-----------------------------------------------
               0.00    0.00       4/4           eval <cycle 1> [3]
[106]    0.0    0.00    0.00       4         siLgbc_time [106]
-----------------------------------------------
               0.00     0.00       4/4           fmt_fix_float [30]
[107]    0.0    0.00    0.00       4         writestr_stream [107]
               0.00    0.00      20/158         writec_stream [55]
-----------------------------------------------
               0.00    0.00       4/4           parse_number [39]
[108]    0.0    0.00    0.00       4         zero_big [108]
               0.00    0.00       4/4           m__gmpz_set_ui [101]
-----------------------------------------------
                                  3             eval <cycle 1> [3]
[109]    0.0    0.00    0.00       3         Fmultiple_value_call <cycle 1> [109]
                                  6             eval <cycle 1> [3]
-----------------------------------------------
                                  1             Flet <cycle 1> [146]
                                  2             FletA <cycle 1> [123]
[110]     0.0    0.00    0.00       3         Fprogn <cycle 1> [110]
                                 11             eval <cycle 1> [3]
-----------------------------------------------
               0.00    0.00       3/3           eval <cycle 1> [3]
[111]    0.0    0.00    0.00       3         Fquote [111]
-----------------------------------------------
               0.00    0.00       3/3           funcall <cycle 1> [21]
[112]    0.0    0.00    0.00       3         L29__MULTIPLE_VALUE_LIST__evalmacros [112]
               0.00    0.00       3/43          list [62]
-----------------------------------------------
                0.00    0.00       1/3           eval <cycle 1> [3]
               0.00    0.00       2/3           LI5__TOP_LEVEL1__top [1]
[113]    0.0    0.00    0.00       3         Lfresh_line [113]
               0.00    0.00       3/3           coerce_stream [116]
               0.00    0.00       3/5           file_column [94]
               0.00    0.00       2/158         writec_stream [55]
               0.00    0.00       2/96          flush_stream [56]
               0.00    0.00       2/328         symbol_value [51]
-----------------------------------------------
                                  3             funcall <cycle 1> [21]
[114]    0.0     0.00    0.00       3         Lleft_parenthesis_reader <cycle 1> [114]
                                  9             read_object <cycle 1> [38]
-----------------------------------------------
                0.00    0.00       3/3           eval <cycle 1> [3]
[115]    0.0    0.00    0.00       3         bds_unwind [115]
-----------------------------------------------
               0.00    0.00       3/3           Lfresh_line [113]
[116]    0.0    0.00    0.00       3         coerce_stream [116]
               0.00    0.00       3/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       1/3           print_symbol_name_body [167]
               0.00    0.00       1/3           parse_number [39]
               0.00    0.00       1/3           Ldispatch_reader <cycle 1> [152]
[117]     0.0    0.00    0.00       3         digitp [117]
-----------------------------------------------
               0.00    0.00       1/3           read_object <cycle 1> [38]
               0.00    0.00       2/3           Lfind_package [128]
[118]    0.0    0.00    0.00       3         find_package [118]
               0.00    0.00      72/72          designate_package [59]
-----------------------------------------------
               0.00     0.00       1/3           let_bind <cycle 1> [161]
               0.00    0.00       2/3           letA_bind <cycle 1> [136]
[119]    0.0    0.00    0.00       3         find_special [119]
                0.00    0.00       3/3           macro_expand [122]
-----------------------------------------------
               0.00    0.00       3/3           make_ratio [17]
[120]    0.0    0.00    0.00       3         get_gcd [120]
               0.00    0.00       6/9           number_minusp [75]
-----------------------------------------------
               0.00    0.00       1/3           Flet <cycle 1> [146]
                0.00    0.00       2/3           FletA <cycle 1> [123]
[121]    0.0    0.00    0.00       3         let_var_list [121]
-----------------------------------------------
               0.00    0.00       3/3           find_special [119]
[122]    0.0    0.00    0.00       3         macro_expand [122]
               0.00    0.00       1/6           assoc_eq [83]
-----------------------------------------------
                                  2             eval <cycle 1> [3]
[123]    0.0    0.00    0.00       2         FletA <cycle 1> [123]
               0.00    0.00       2/3           let_var_list [121]
                                  2             letA_bind <cycle 1> [136]
                                  2             Fprogn <cycle 1> [110]
-----------------------------------------------
               0.00    0.00       2/2           LI5__TOP_LEVEL1__top [1]
[124]     0.0    0.00    0.00       2         LI1__USER_PACKAGE__top [124]
               0.00    0.00       2/2           Lfind_package [128]
-----------------------------------------------
                                  1             LI6__IN_INTERVAL_P(long double *,...)(double, long, int, bool) <cycle 3> [150]
               0.00    0.00       1/1           LI19__REDUCE__recompile [5]
[125]    0.0    0.00    0.00       2         LI4__TYPEP(long double *,...)(double, long, int, bool) <cycle 3> [125]
                                  2             LI71__TYPEP_INT__recompile <cycle 3> [127]
-----------------------------------------------
               0.00    0.00       2/2           quick_call_sfun [90]
[126]    0.0    0.00    0.00       2         LI51__CDR__recompile [126]
-----------------------------------------------
                                  2             LI4__TYPEP(long double *,...)(double, long, int, bool) <cycle 3> [125]
[127]    0.0    0.00    0.00       2         LI71__TYPEP_INT__recompile <cycle 3> [127]
                                  1             LI6__IN_INTERVAL_P(long double *,...)(double, long, int, bool) <cycle 3> [150]
-----------------------------------------------
               0.00    0.00       2/2           LI1__USER_PACKAGE__top [124]
[128]    0.0    0.00    0.00       2         Lfind_package [128]
               0.00    0.00       2/3           find_package [118]
-----------------------------------------------
               0.00    0.00       2/2           c_apply_n <cycle 1> [33]
[129]    0.0    0.00    0.00       2         c_apply_n1 [129]
-----------------------------------------------
               0.00    0.00       2/2           setup_READ [141]
[130]    0.0    0.00    0.00       2         current_readtable [130]
               0.00    0.00       2/328         symbol_value [51]
-----------------------------------------------
                                  2             c_apply_n <cycle 1> [33]
[131]    0.0    0.00    0.00       2         fLeval <cycle 1> [131]
                                  2             eval <cycle 1> [3]
-----------------------------------------------
                0.00    0.00       2/2           c_apply_n <cycle 1> [33]
[132]    0.0    0.00    0.00       2         fLget_internal_real_time [132]
-----------------------------------------------
               0.00     0.00       2/2           c_apply_n <cycle 1> [33]
[133]    0.0    0.00    0.00       2         fSget_internal_run_times [133]
-----------------------------------------------
               0.00    0.00       2/2           flush_queue [135]
[134]    0.0    0.00    0.00       2         file_position [134]
               0.00    0.00       2/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       2/2           prin1 [41]
[135]    0.0    0.00    0.00       2         flush_queue [135]
               0.00    0.00      14/158         writec_stream [55]
               0.00    0.00       2/2           file_position [134]
-----------------------------------------------
                                  2             FletA <cycle 1> [123]
[136]    0.0    0.00    0.00       2         letA_bind <cycle 1> [136]
                0.00    0.00       8/13          bind_var [70]
               0.00    0.00       2/3           find_special [119]
                                  8             eval <cycle 1> [3]
-----------------------------------------------
               0.00    0.00       2/2           L32__MULTIPLE_VALUE_BIND__evalmacros [32]
[137]    0.0    0.00    0.00       2         listA [137]
-----------------------------------------------
                0.00    0.00       2/2           LI5__TOP_LEVEL1__top [1]
[138]    0.0    0.00    0.00       2         princ_char [138]
               0.00    0.00       4/328         symbol_value [51]
               0.00    0.00       2/5           streamp_fn [96]
               0.00    0.00       2/158         writec_stream [55]
-----------------------------------------------
               0.00    0.00       2/2           GBC [9]
[139]    0.0    0.00    0.00       2         runtime [139]
-----------------------------------------------
               0.00    0.00       2/2           prin1 [41]
[140]    0.0    0.00    0.00       2         setupPRINTdefault [140]
               0.00    0.00      28/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       2/2           read_object_non_recursive [14]
[141]    0.0     0.00    0.00       2         setup_READ [141]
               0.00    0.00       8/328         symbol_value [51]
               0.00    0.00       2/2           current_readtable [130]
-----------------------------------------------
               0.00    0.00       2/2           LI5__TOP_LEVEL1__top [1]
[142]    0.0    0.00    0.00       2         siLreset_stack_limits [142]
-----------------------------------------------
                0.00    0.00       2/2           LI5__TOP_LEVEL1__top [1]
[143]    0.0    0.00    0.00       2         symlispcall [143]
               0.00    0.00       2/9           symbol_function [76]
-----------------------------------------------
               0.00    0.00       2/2           read_object <cycle 1> [38]
[144]    0.0    0.00    0.00       2         unreadc_stream [144]
               0.00    0.00       2/328         symbol_value [51]
-----------------------------------------------
               0.00    0.00       1/1           eval <cycle 1> [3]
[145]    0.0    0.00    0.00       1         Ffunction [145]
               0.00    0.00       1/6           assoc_eq [83]
-----------------------------------------------
                                  1             eval <cycle 1> [3]
[146]    0.0    0.00    0.00       1         Flet <cycle 1> [146]
               0.00    0.00       1/3           let_var_list [121]
                                  1             let_bind <cycle 1> [161]
                                  1             Fprogn <cycle 1> [110]
-----------------------------------------------
               0.00    0.00       1/1           LI19__REDUCE__recompile [5]
[147]    0.0    0.00    0.00       1         LI113__PROPER_CONSP(long double *,...)(double, long, int, bool) [147]
               0.00    0.00       1/1           LI70__IMPROPER_CONSP(long double *,...)(double, long, int, bool) [151]
-----------------------------------------------
               0.00    0.00       1/1           LI19__REDUCE__recompile [5]
[148]    0.0    0.00    0.00       1         LI114__PROPER_LISTP(long double *,...)(double, long, int, bool) [148]
-----------------------------------------------
               0.00    0.00       1/1           LI19__REDUCE__recompile [5]
[149]    0.0    0.00    0.00       1         LI115__PROPER_SEQUENCEP(long double *,...)(double, long, int, bool) [149]
-----------------------------------------------
                                  1             LI71__TYPEP_INT__recompile <cycle 3> [127]
[150]    0.0    0.00    0.00       1         LI6__IN_INTERVAL_P(long double *,...)(double, long, int, bool) <cycle 3> [150]
                                  1             LI4__TYPEP(long double *,...)(double, long, int, bool) <cycle 3> [125]
-----------------------------------------------
               0.00    0.00       1/1           LI113__PROPER_CONSP(long double *,...)(double, long, int, bool) [147]
[151]    0.0    0.00    0.00       1         LI70__IMPROPER_CONSP(long double *,...)(double, long, int, bool) [151]
-----------------------------------------------
                                  1             funcall <cycle 1> [21]
[152]    0.0    0.00    0.00       1         Ldispatch_reader <cycle 1> [152]
               0.00    0.00       1/45          readc_stream [61]
               0.00    0.00       1/3           digitp [117]
               0.00    0.00       1/8           super_funcall [79]
                                  1             funcall <cycle 1> [21]
-----------------------------------------------
               0.00    0.00       1/1           eval <cycle 1> [3]
[153]    0.0    0.00    0.00       1         Lplus [153]
               0.00    0.00       2/18          numberp_fn [67]
               0.00    0.00       1/42379       fixnum_add [50]
               0.00    0.00       1/176842      number_plus [46]
-----------------------------------------------
                                  1             funcall <cycle 1> [21]
[154]    0.0    0.00    0.00       1         Lsharp_single_quote_reader <cycle 1> [154]
                                  1             read_object <cycle 1> [38]
-----------------------------------------------
               0.00    0.00       1/1           eval <cycle 1> [3]
[155]    0.0    0.00    0.00       1         Lvalues_list [155]
-----------------------------------------------
               0.00     0.00       1/1           write_object [35]
[156]    0.0    0.00    0.00       1         big_sign [156]
-----------------------------------------------
               0.00    0.00       1/1           mark_phase [10]
[157]    0.0    0.00    0.00       1         clear_stack [157]
-----------------------------------------------
               0.00    0.00       1/1           c_apply_n <cycle 1> [33]
[158]    0.0    0.00    0.00       1         fSgprof_quit [158]
               0.00    0.00       1/1           getwd [160]
-----------------------------------------------
               0.00    0.00       1/1           write_object [35]
[159]    0.0    0.00    0.00       1         find_symbol [159]
               0.00    0.00       1/6           pack_hash [89]
-----------------------------------------------
               0.00    0.00       1/1           fSgprof_quit [158]
[160]    0.0    0.00    0.00       1         getwd [160]
-----------------------------------------------
                                  1             Flet <cycle 1> [146]
[161]    0.0    0.00    0.00       1         let_bind <cycle 1> [161]
               0.00    0.00       5/13          bind_var [70]
               0.00    0.00       1/3           find_special [119]
                                  5             eval <cycle 1> [3]
-----------------------------------------------
               0.00    0.00       1/1           coerce_big_to_string [37]
[162]    0.0    0.00    0.00       1         m__gmpz_get_strp [162]
-----------------------------------------------
               0.00    0.00       1/1           coerce_big_to_string [37]
[163]    0.0    0.00    0.00       1         m__gmpz_sizeinbase [163]
-----------------------------------------------
                0.00    0.00       1/1           parse_number [39]
[164]    0.0    0.00    0.00       1         normalize_big_to_object [164]
-----------------------------------------------
               0.00    0.00       1/1           GBC [9]
[165]    0.0    0.00    0.00       1         opt_maxpage [165]
-----------------------------------------------
               0.00    0.00       1/1           LI19__REDUCE__recompile [5]
[166]    0.0    0.00    0.00       1         parse_key_new_new [166]
-----------------------------------------------
               0.00    0.00       1/1           prin1 [41]
[167]    0.0    0.00    0.00       1         print_symbol_name_body [167]
               0.00    0.00       3/14          writec_queue [69]
               0.00    0.00       1/3           digitp [117]
-----------------------------------------------

 This table describes the call tree of the program, and was sorted by
 the total amount of time spent in each function and its children.

 Each entry in this table consists of several lines.  The line with the
 index number at the left hand margin lists the current function.
 The lines above it list the functions that called this function,
 and the lines below it list the functions this one called.
 This line lists:
    index      A unique number given to each element of the table.
               Index numbers are sorted numerically.
               The index number is printed next to every function name so
               it is easier to look up where the function in the table.

    % time     This is the percentage of the `total' time that was spent
               in this function and its children.  Note that due to
               different viewpoints, functions excluded by options, etc,
               these numbers will NOT add up to 100%.

    self       This is the total amount of time spent in this function.

    children   This is the total amount of time propagated into this
               function by its children.

    called     This is the number of times the function was called.
               If the function called itself recursively, the number
               only includes non-recursive calls, and is followed by
               a `+' and the number of recursive calls.

    name       The name of the current function.  The index number is
               printed after it.  If the function is a member of a
               cycle, the cycle number is printed between the
               function's name and the index number.


 For the function's parents, the fields have the following meanings:

    self       This is the amount of time that was propagated directly
               from the function into this parent.

    children   This is the amount of time that was propagated from
               the function's children into this parent.

    called     This is the number of times this parent called the
               function `/' the total number of times the function
               was called.  Recursive calls to the function are not
               included in the number after the `/'.

    name       This is the name of the parent.  The parent's index
               number is printed after it.  If the parent is a
               member of a cycle, the cycle number is printed between
               the name and the index number.

 If the parents of the function cannot be determined, the word
 `<spontaneous>' is printed in the `name' field, and all the other
 fields are blank.

 For the function's children, the fields have the following meanings:

    self       This is the amount of time that was propagated directly
               from the child into the function.

    children   This is the amount of time that was propagated from the
               child's children to the function.

    called     This is the number of times the function called
               this child `/' the total number of times the child
               was called.  Recursive calls by the child are not
               listed in the number after the `/'.

    name       This is the name of the child.  The child's index
               number is printed after it.  If the child is a
               member of a cycle, the cycle number is printed
               between the name and the index number.

 If there are any cycles (circles) in the call graph, there is an
 entry for the cycle-as-a-whole.  This entry shows who called the
 cycle (as parents) and the members of the cycle (as children.)
 The `+' recursive calls entry shows the number of function calls that
 were internal to the cycle, and the calls entry for each member shows,
 for that member, how many times it was called from other members of
 the cycle.


Index by function name

 [145] Ffunction              [37] coerce_big_to_string   [17] make_ratio
 [146] Flet                  [116] coerce_stream          [31] make_shortfloat
 [123] FletA                  [85] consp_fn               [25] mark_c_stack
 [109] Fmultiple_value_call   [93] current_package         [8] mark_cons
 [110] Fprogn                [130] current_readtable      [44] mark_object
 [111] Fquote                 [59] designate_package      [10] mark_phase
 [97] Fsetq                 [117] digitp                 [26] mark_stack_carefully
  [9] GBC                    [77] edit_double            [11] maybe_replace_big
 [66] IapplyVector            [3] eval                  [164] normalize_big_to_object
 [98] Ieval                 [131] fLeval                 [18] number_divide
 [80] Ifuncall_n             [28] fLformat              [103] number_minus
 [81] Imacro_expand1         [86] fLfuncall              [75] number_minusp
 [82] Ivs_values            [132] fLget_internal_real_time [46] number_plus
 [24] L1__TIME__mislib       [87] fLrplacd               [78] number_to_double
 [112] L29__MULTIPLE_VALUE_LIST__evalmacros [22] fSgensym0 [67] numberp_fn
 [32] L32__MULTIPLE_VALUE_BIND__evalmacros [133] fSget_internal_run_times [165] opt_maxpage
 [147] LI113__PROPER_CONSP(long double *,...)(double, long, int, bool) [158] fSgprof_quit [89] pack_hash
 [148] LI114__PROPER_LISTP(long double *,...)(double, long, int, bool) [94] file_column [166] parse_key_new_new
 [149] LI115__PROPER_SEQUENCEP(long double *,...)(double, long, int, bool) [134] file_position [39] parse_number
  [5] LI19__REDUCE__recompile [118] find_package        [104] pprint_dispatch
 [124] LI1__USER_PACKAGE__top [119] find_special          [41] prin1
 [125] LI4__TYPEP(long double *,...)(double, long, int, bool) [159] find_symbol [42] princ
 [126] LI51__CDR__recompile   [45] fixint                [138] princ_char
 [99] LI55__CAR__recompile   [50] fixnum_add            [167] print_symbol_name_body
 [150] LI6__IN_INTERVAL_P(long double *,...)(double, long, int, bool) [135] flush_queue [90] quick_call_sfun
 [151] LI70__IMPROPER_CONSP(long double *,...)(double, long, int, bool) [56] flush_stream [38] read_object
 [127] LI71__TYPEP_INT__recompile [30] fmt_fix_float      [14] read_object_non_recursive
 [152] Ldispatch_reader       [29] format                 [61] readc_stream
 [16] Ldivide                [21] funcall                [58] rl_getc_em
 [128] Lfind_package          [71] funcall_no_event       [54] rl_putc_em
 [113] Lfresh_line            [23] gensym_int             [64] rl_ungetc_em
 [114] Lleft_parenthesis_reader [120] get_gcd            [139] runtime
 [91] Llist                 [160] getwd                 [105] setq
 [27] Lminus                 [73] ihash_equal1          [140] setupPRINTdefault
 [153] Lplus                  [19] integer_divide1       [141] setup_READ
 [40] Lprin1                 [20] integer_quotient_remainder_1 [106] siLgbc_time
 [13] Lread                 [100] interactive_stream_p  [142] siLreset_stack_limits
 [154] Lsharp_single_quote_reader [95] intern             [12] simple_symlispcall
 [155] Lvalues_list          [136] letA_bind              [65] stream_at_end
 [52] add_page_to_freelist  [161] let_bind               [96] streamp_fn
  [7] alloc_object          [121] let_var_list           [57] string_eq
 [53] alloc_page             [62] list                   [79] super_funcall
 [47] alloc_relblock        [137] listA                  [76] symbol_function
 [36] alloc_simple_string    [60] listen_stream          [51] symbol_value
 [83] assoc_eq               [49] m__gmpz_add_ui        [143] symlispcall
 [115] bds_unwind             [48] m__gmpz_fits_slong_p  [144] unreadc_stream
 [156] big_sign               [74] m__gmpz_get_si         [35] write_object
 [70] bind_var              [162] m__gmpz_get_strp       [69] writec_queue
 [33] c_apply_n              [72] m__gmpz_init           [55] writec_stream
 [92] c_apply_n0             [68] m__gmpz_set_si        [107] writestr_stream
 [129] c_apply_n1            [101] m__gmpz_set_ui        [108] zero_big
 [84] c_apply_n3            [163] m__gmpz_sizeinbase      [2] <cycle 1>
 [34] c_apply_n6            [102] m__gmpz_sub_ui          [6] <cycle 2>
  [4] call_vfun              [88] m__gmpz_tdiv_qr        [43] <cycle 3>
 [63] check_stream          [122] macro_expand
 [157] clear_stack            [15] make_fixnum1

NIL

>(setq a (compile nil '(lambda nil (reduce '+ *foo*))))

;; Compiling /tmp/gazonk_12812_0.lsp.
; (DEFUN COMPILER::CMP-ANON ...) is being compiled.
;; Warning: ;; The variable *FOO* is undefined.
;; The compiler will assume this variable is a global.

;; End of Pass 1.
;; End of Pass 2.
;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, (Debug quality ignored)
;; Finished compiling /tmp/gazonk_12812_0.o.
;; Loading /tmp/gazonk_12812_0.o
 ;; start address -T 0x12da1b8 ;; Finished loading /tmp/gazonk_12812_0.o
#<compiled-function COMPILER::CMP-ANON>

>(si::gprof-start)

NIL

>(time (funcall a))

real time       :      0.200 secs
run-gbc time    :      0.050 secs
child run time  :      0.000 secs
gbc time        :      0.070 secs
19999900000

>(si::gprof-quit)
Flat profile:

Each sample counts as 0.01 seconds.
 %   cumulative   self              self     total
 time   seconds   seconds    calls  ms/call  ms/call  name
 50.00      0.02     0.02    52505     0.00     0.00  mark_cons
 25.00      0.03     0.01        1    10.00    30.00  GBC
 0.00      0.03     0.00   268505     0.00     0.00  mark_object
 0.00      0.03     0.00   176860     0.00     0.00  alloc_object
 0.00      0.03     0.00   176842     0.00     0.00  number_plus
 0.00      0.03     0.00   134487     0.00     0.00  alloc_relblock
 0.00      0.03     0.00   134473     0.00     0.00  m__gmpz_fits_slong_p
 0.00      0.03     0.00   134468     0.00     0.00  maybe_replace_big
 0.00      0.03     0.00   134464     0.00     0.00  m__gmpz_add_ui
 0.00      0.03     0.00    42379     0.00     0.00  fixnum_add
 0.00      0.03     0.00    42366     0.00     0.00  make_fixnum1
 0.00      0.03     0.00      314     0.00     0.00  symbol_value
 0.00      0.03     0.00      158     0.00     0.00  rl_putc_em
 0.00      0.03     0.00      158     0.00     0.00  writec_stream
 0.00      0.03     0.00       91     0.00     0.00  string_eq
 0.00      0.03     0.00       83     0.00     0.00  flush_stream
 0.00      0.03     0.00       72     0.00     0.00  designate_package
 0.00      0.03     0.00       72     0.00     0.00  rl_getc_em
 0.00      0.03     0.00       43     0.00     0.00  list
 0.00      0.03     0.00       40     0.00     0.00  listen_stream
 0.00      0.03     0.00       38     0.00     0.00  readc_stream
 0.00      0.03     0.00       36     0.00     0.00  check_stream
 0.00      0.03     0.00       36     0.00     0.00  eval
 0.00      0.03     0.00       36     0.00     0.00  rl_ungetc_em
 0.00      0.03     0.00       36     0.00     0.00  stream_at_end
 0.00      0.03     0.00       28     0.00     0.00  IapplyVector
 0.00      0.03     0.00       28     0.00     0.00  funcall
 0.00      0.03     0.00       18     0.00     0.00  numberp_fn
 0.00      0.03     0.00       17     0.00     0.00  m__gmpz_set_si
 0.00       0.03     0.00       15     0.00     0.00  c_apply_n
 0.00      0.03     0.00       14     0.00     0.00  writec_queue
 0.00      0.03     0.00       13     0.00     0.00  bind_var
 0.00      0.03     0.00       13     0.00     0.00  funcall_no_event
 0.00      0.03     0.00       12     0.00     0.00  m__gmpz_init
 0.00      0.03     0.00       11     0.00     0.00  fSgensym0
 0.00      0.03     0.00       11     0.00     0.00  gensym_int
 0.00      0.03     0.00       11     0.00     0.00  ihash_equal1
 0.00      0.03     0.00       10     0.00     0.00  read_object
 0.00      0.03     0.00        9     0.00     0.00  m__gmpz_get_si
 0.00      0.03     0.00        9     0.00     0.00  number_minusp
 0.00      0.03     0.00        8     0.00     0.00  edit_double
 0.00      0.03     0.00        8     0.00     0.00  number_to_double
 0.00      0.03     0.00        7     0.00     0.00  fLfuncall
 0.00      0.03     0.00        7     0.00     0.00  quick_call_sfun
 0.00      0.03     0.00        6     0.00     0.00  Ifuncall_n
 0.00      0.03     0.00        6     0.00     0.00  Imacro_expand1
 0.00      0.03     0.00        6     0.00     0.00  Ivs_values
 0.00      0.03     0.00        6     0.00     0.00  c_apply_n3
 0.00      0.03     0.00        6     0.00     0.00  consp_fn
 0.00      0.03     0.00        6     0.00     0.00  fLrplacd
 0.00      0.03     0.00        6     0.00     0.00  integer_divide1
 0.00      0.03     0.00        6     0.00     0.00  integer_quotient_remainder_1
 0.00      0.03     0.00        6     0.00     0.00  m__gmpz_tdiv_qr
 0.00      0.03     0.00        6     0.00     0.00  super_funcall
 0.00      0.03     0.00        6     0.00     0.00  symbol_function
 0.00      0.03     0.00        5     0.00     0.00  Llist
 0.00      0.03     0.00        5     0.00     0.00  assoc_eq
 0.00      0.03     0.00        5     0.00     0.00  c_apply_n0
 0.00      0.03     0.00        5     0.00     0.00  file_column
 0.00      0.03     0.00        5     0.00     0.00  pack_hash
 0.00      0.03     0.00        5     0.00     0.00  streamp_fn
 0.00      0.03     0.00        4     0.00     0.00  Fsetq
 0.00      0.03     0.00        4     0.00     0.00  Ieval
 0.00      0.03     0.00        4     0.00     0.00  LI55__CAR__recompile
 0.00      0.03     0.00        4     0.00     0.00  Ldivide
 0.00      0.03     0.00        4     0.00     0.00  Lminus
 0.00      0.03     0.00        4     0.00     0.00  current_package
 0.00      0.03     0.00        4     0.00     0.00  fmt_fix_float
 0.00       0.03     0.00        4     0.00     0.00  interactive_stream_p
 0.00      0.03     0.00        4     0.00     0.00  intern
 0.00      0.03     0.00        4     0.00     0.00  m__gmpz_sub_ui
 0.00      0.03     0.00        4     0.00     0.00  make_ratio
 0.00      0.03     0.00        4     0.00     0.00  make_shortfloat
 0.00      0.03     0.00        4     0.00     0.00  number_divide
 0.00      0.03     0.00        4     0.00     0.00  number_minus
 0.00      0.03     0.00        4     0.00     0.00  pprint_dispatch
 0.00      0.03     0.00        4     0.00     0.00  setq
 0.00      0.03     0.00        4     0.00     0.00  siLgbc_time
 0.00      0.03     0.00        4     0.00     0.00  simple_symlispcall
 0.00      0.03     0.00        4     0.00     0.00  write_object
 0.00      0.03     0.00        4     0.00     0.00  writestr_stream
 0.00      0.03     0.00        3     0.00     0.00  Fmultiple_value_call
 0.00      0.03     0.00        3     0.00     0.00  Fprogn
 0.00      0.03     0.00        3     0.00     0.00  Fquote
 0.00      0.03     0.00        3     0.00     0.00  L29__MULTIPLE_VALUE_LIST__evalmacros
 0.00      0.03     0.00        3     0.00     0.00  Lfresh_line
 0.00      0.03     0.00        3     0.00     0.00  Lleft_parenthesis_reader
 0.00      0.03     0.00        3     0.00     0.00  bds_unwind
 0.00      0.03     0.00        3     0.00     0.00  c_apply_n1
 0.00      0.03     0.00        3     0.00     0.00  coerce_stream
 0.00       0.03     0.00        3     0.00     0.00  fLformat
 0.00      0.03     0.00        3     0.00     0.00  find_package
 0.00      0.03     0.00        3     0.00     0.00  find_special
 0.00      0.03     0.00        3     0.00     0.00  format
 0.00      0.03     0.00        3     0.00     0.00  get_gcd
 0.00      0.03     0.00        3     0.00     0.00  let_var_list
 0.00      0.03     0.00        3     0.00     0.00  macro_expand
 0.00      0.03     0.00        2     0.00     0.00  FletA
 0.00      0.03     0.00        2     0.00     0.00  L32__MULTIPLE_VALUE_BIND__evalmacros
 0.00      0.03     0.00        2     0.00     0.00  LI1__USER_PACKAGE__top
 0.00      0.03     0.00        2     0.00     0.00  LI51__CDR__recompile
 0.00      0.03     0.00        2     0.00     0.00  Lfind_package
 0.00      0.03     0.00        2     0.00     0.00  Lprin1
 0.00      0.03     0.00        2     0.00     0.00  Lread
 0.00      0.03     0.00        2     0.00     0.00  current_readtable
 0.00      0.03     0.00        2     0.00     0.00  fLeval
 0.00      0.03     0.00        2     0.00     0.00  fLget_internal_real_time
 0.00      0.03     0.00        2     0.00     0.00  fSget_internal_run_times
 0.00      0.03     0.00        2     0.00     0.00  file_position
 0.00       0.03     0.00        2     0.00     0.00  flush_queue
 0.00      0.03     0.00        2     0.00     0.00  letA_bind
 0.00      0.03     0.00        2     0.00     0.00  listA
 0.00      0.03     0.00        2     0.00     0.00  prin1
 0.00      0.03     0.00        2     0.00     0.00  princ
 0.00      0.03     0.00        2     0.00     0.00  princ_char
 0.00      0.03     0.00        2     0.00     0.00  read_object_non_recursive
 0.00      0.03     0.00        2     0.00     0.00  runtime
 0.00      0.03     0.00        2     0.00     0.00  setupPRINTdefault
 0.00      0.03     0.00        2     0.00     0.00  setup_READ
 0.00       0.03     0.00        2     0.00     0.00  siLreset_stack_limits
 0.00      0.03     0.00        2     0.00     0.00  symlispcall
 0.00      0.03     0.00        2     0.00     0.00  unreadc_stream
 0.00      0.03     0.00        1     0.00     0.00  Flet
 0.00      0.03     0.00        1     0.00     0.00  L1__TIME__mislib
 0.00      0.03     0.00        1     0.00     0.00  Lplus
 0.00      0.03     0.00        1     0.00     0.00  Lvalues_list
 0.00      0.03     0.00        1     0.00     0.00  alloc_simple_string
 0.00      0.03     0.00        1     0.00     0.00  big_sign
 0.00      0.03     0.00        1     0.00     0.00  c_apply_n6
 0.00      0.03     0.00        1     0.00     0.00  clear_stack
 0.00      0.03     0.00        1     0.00     0.00  coerce_big_to_string
 0.00      0.03     0.00        1     0.00     0.00  data_start
 0.00      0.03     0.00        1     0.00     0.00  digitp
 0.00      0.03     0.00        1     0.00     0.00  fSgprof_quit
 0.00      0.03     0.00        1     0.00     0.00  find_symbol
 0.00      0.03     0.00        1     0.00     0.00  getwd
 0.00      0.03     0.00        1     0.00     0.00  let_bind
 0.00      0.03     0.00        1     0.00     0.00  m__gmpz_get_strp
 0.00      0.03     0.00        1     0.00     0.00  m__gmpz_sizeinbase
 0.00      0.03     0.00        1     0.00     0.00  mark_c_stack
 0.00      0.03     0.00        1     0.00    20.00  mark_phase
 0.00      0.03     0.00        1     0.00     0.00  mark_stack_carefully
 0.00      0.03     0.00        1     0.00     0.00  opt_maxpage
 0.00      0.03     0.00        1     0.00     0.00  print_symbol_name_body

 %         the percentage of the total running time of the
time       program used by this function.

cumulative a running sum of the number of seconds accounted
 seconds   for by this function and those listed above it.

 self      the number of seconds accounted for by this
seconds    function alone.  This is the major sort for this
          listing.

calls      the number of times this function was invoked, if
          this function is profiled, else blank.

 self      the average number of milliseconds spent in this
ms/call    function per call, if this function is profiled,
          else blank.

 total     the average number of milliseconds spent in this
ms/call    function and its descendents per call, if this
          function is profiled, else blank.

name       the name of the function.  This is the minor sort
          for this listing. The index shows the location of
          the function in the gprof listing. If the index is
          in parenthesis it shows where it would appear in
          the gprof listing if it were to be printed.

                    Call graph (explanation follows)


granularity: each sample hit covers 4 byte(s) for 139.04% of 0.01 seconds

index % time    self  children    called     name
               0.00    0.00       1/176860      alloc_simple_string [34]
               0.00    0.00       3/176860      make_shortfloat [27]
               0.00    0.00       3/176860      make_ratio [14]
               0.00    0.00  134464/176860      maybe_replace_big [22]
               0.00    0.00      11/176860      gensym_int [20]
                0.00    0.00      12/176860      integer_quotient_remainder_1 [17]
               0.00    0.01   42366/176860      make_fixnum1 [3]
[1]    100.0    0.00    0.01  176860         alloc_object [1]
               0.00    0.00       1/1           GBC [2]
-----------------------------------------------
               0.00    0.00       1/1           alloc_object [1]
[2]    100.0    0.00    0.00       1         GBC [2]
                0.00    0.00       1/1           mark_phase [6]
               0.00    0.00       2/2           runtime [127]
               0.00    0.00       1/314         symbol_value [45]
               0.00    0.00       1/1           opt_maxpage [146]
-----------------------------------------------
               0.00    0.00   42366/42366       <hicore> (148)
[3]     99.9    0.00    0.01   42366         make_fixnum1 [3]
               0.00    0.01   42366/176860      alloc_object [1]
-----------------------------------------------
[4]     66.7    0.00    0.00   24376+296634  <cycle 2 as a whole> [4]
               0.00    0.00  268505+517513      mark_object <cycle 2> [39]
-----------------------------------------------
                              38924             mark_cons <cycle 2> [5]
                              52505             mark_object <cycle 2> [39]
[5]     66.7    0.00    0.00   52505+38924   mark_cons <cycle 2> [5]
                             244129             mark_object <cycle 2> [39]
                              38924             mark_cons <cycle 2> [5]
-----------------------------------------------
               0.00    0.00       1/1           GBC [2]
[6]     66.7    0.00    0.00       1         mark_phase [6]
               0.00    0.00   24375/24376       mark_object <cycle 2> [39]
               0.00    0.00       1/1           mark_c_stack [31]
               0.00    0.00       1/1           clear_stack [137]
-----------------------------------------------
                                                <spontaneous>
[7]      0.1    0.00    0.00                 LI5__TOP_LEVEL1__top [7]
               0.00    0.00       4/4           simple_symlispcall [10]
               0.00    0.00       2/4           funcall <cycle 1> [18]
               0.00    0.00       2/3           fLformat [24]
               0.00    0.00       2/2           LI1__USER_PACKAGE__top [115]
               0.00    0.00       2/2           siLreset_stack_limits [130]
               0.00    0.00       2/2           symlispcall [131]
               0.00    0.00       2/5           Llist [82]
               0.00    0.00       2/3           Lfresh_line [104]
                0.00    0.00       2/83          flush_stream [49]
               0.00    0.00       2/2           princ_char [126]
-----------------------------------------------
[8]      0.1    0.00    0.00       4+157     <cycle 1 as a whole> [8]
               0.00    0.00      36+35          eval <cycle 1> [9]
               0.00    0.00      28             funcall <cycle 1> [18]
               0.00    0.00      15             c_apply_n <cycle 1> [29]
               0.00    0.00      28             IapplyVector <cycle 1> [58]
               0.00    0.00      10             read_object <cycle 1> [66]
               0.00    0.00       7             fLfuncall <cycle 1> [71]
               0.00    0.00       6             Imacro_expand1 <cycle 1> [74]
               0.00    0.00       4             Fsetq <cycle 1> [88]
               0.00    0.00       4             Ieval <cycle 1> [89]
               0.00    0.00       3             Fmultiple_value_call <cycle 1> [100]
               0.00    0.00       3             Fprogn <cycle 1> [101]
               0.00    0.00       3             Lleft_parenthesis_reader <cycle 1> [105]
               0.00    0.00       2             FletA <cycle 1> [114]
               0.00    0.00       2             letA_bind <cycle 1> [124]
               0.00    0.00       2             fLeval <cycle 1> [119]
               0.00    0.00       1             Flet <cycle 1> [133]
               0.00    0.00       1             let_bind <cycle 1> [143]
-----------------------------------------------
                                 35             eval <cycle 1> [9]
                                  2             fLeval <cycle 1> [119]
                                  4             Ieval <cycle 1> [89]
                                  5             let_bind <cycle 1> [143]
                                  6             Fmultiple_value_call <cycle 1> [100]
                                  8             letA_bind <cycle 1> [124]
                                 11             Fprogn <cycle 1> [101]
[9]      0.0    0.00    0.00      36+35      eval <cycle 1> [9]
               0.00    0.00       4/4           Ldivide [13]
               0.00    0.00       4/4           Lminus [23]
                0.00    0.00      13/13          funcall_no_event [63]
               0.00    0.00       6/7           quick_call_sfun [72]
               0.00    0.00       4/4           siLgbc_time [98]
               0.00     0.00       3/3           bds_unwind [106]
               0.00    0.00       3/6           super_funcall [80]
               0.00    0.00       3/3           Fquote [102]
               0.00    0.00       1/1           Lvalues_list [135]
               0.00    0.00       1/3           Lfresh_line [104]
               0.00    0.00       1/1           Lplus [134]
                                 10             funcall <cycle 1> [18]
                                  6             Imacro_expand1 <cycle 1> [74]
                                  4             Fsetq <cycle 1> [88]
                                  3             Fmultiple_value_call <cycle 1> [100]
                                  2             FletA <cycle 1> [114]
                                  1             Flet <cycle 1> [133]
                                 35             eval <cycle 1> [9]
-----------------------------------------------
                0.00    0.00       4/4           LI5__TOP_LEVEL1__top [7]
[10]     0.0    0.00    0.00       4         simple_symlispcall [10]
               0.00    0.00       2/2           Lread [11]
               0.00    0.00       2/2           Lprin1 [36]
               0.00    0.00       4/6           symbol_function [81]
-----------------------------------------------
               0.00    0.00       2/2           simple_symlispcall [10]
[11]     0.0    0.00    0.00       2         Lread [11]
               0.00    0.00       2/2           read_object_non_recursive [12]
               0.00    0.00       2/5           streamp_fn [87]
-----------------------------------------------
               0.00    0.00       2/2           Lread [11]
[12]     0.0    0.00    0.00       2         read_object_non_recursive [12]
               0.00    0.00       2/4           read_object <cycle 1> [66]
               0.00    0.00       4/4           interactive_stream_p [92]
               0.00    0.00       4/40          listen_stream [53]
               0.00    0.00       2/2           setup_READ [129]
               0.00    0.00       2/38          readc_stream [54]
-----------------------------------------------
               0.00    0.00       4/4           eval <cycle 1> [9]
[13]     0.0    0.00     0.00       4         Ldivide [13]
               0.00    0.00       4/4           number_divide [15]
               0.00    0.00       8/18          numberp_fn [59]
-----------------------------------------------
               0.00    0.00       4/4           number_divide [15]
[14]     0.0    0.00    0.00       4         make_ratio [14]
               0.00    0.00       6/6           integer_divide1 [16]
                0.00    0.00       3/176860      alloc_object [1]
               0.00    0.00       3/9           number_minusp [68]
               0.00    0.00       3/3           get_gcd [111]
-----------------------------------------------
               0.00    0.00       4/4           Ldivide [13]
[15]     0.0    0.00    0.00       4         number_divide [15]
               0.00    0.00       4/4           make_ratio [14]
-----------------------------------------------
               0.00    0.00       6/6           make_ratio [14]
[16]     0.0    0.00    0.00       6         integer_divide1 [16]
               0.00    0.00       6/6           integer_quotient_remainder_1 [17]
-----------------------------------------------
               0.00    0.00       6/6           integer_divide1 [16]
[17]     0.0    0.00    0.00       6         integer_quotient_remainder_1 [17]
                0.00    0.00      12/176860      alloc_object [1]
               0.00    0.00      12/12          m__gmpz_init [64]
               0.00    0.00      12/17          m__gmpz_set_si [60]
               0.00    0.00       6/6           m__gmpz_tdiv_qr [79]
               0.00    0.00       6/134473      m__gmpz_fits_slong_p [42]
               0.00    0.00       6/9           m__gmpz_get_si [67]
-----------------------------------------------
                                  3             read_object <cycle 1> [66]
                                 10             eval <cycle 1> [9]
                                 13             IapplyVector <cycle 1> [58]
               0.00    0.00       2/4           LI5__TOP_LEVEL1__top [7]
[18]     0.0    0.00    0.00      28         funcall <cycle 1> [18]
               0.00    0.00       1/1           L1__TIME__mislib [21]
               0.00    0.00       2/2           L32__MULTIPLE_VALUE_BIND__evalmacros [28]
               0.00    0.00       3/5           Llist [82]
               0.00    0.00       3/3           L29__MULTIPLE_VALUE_LIST__evalmacros [103]
              ...

[Message clipped]  


reply via email to

[Prev in Thread] Current Thread [Next in Thread]