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: Camm Maguire
Subject: Re: [Gcl-devel] question about the reduce function
Date: 20 Dec 2007 17:48:31 -0500
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

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]
                0.00    0.00       1/7           quick_call_sfun [72]
                                  15             IapplyVector <cycle 1> [58]
                                   3             Lleft_parenthesis_reader 
<cycle 1> [105]
-----------------------------------------------
                0.00    0.00       2/11          
L32__MULTIPLE_VALUE_BIND__evalmacros [28]
                0.00    0.00       9/11          L1__TIME__mislib [21]
[19]     0.0    0.00    0.00      11         fSgensym0 [19]
                0.00    0.00      11/11          gensym_int [20]
                0.00    0.00      11/42379       fixnum_add [44]
                0.00    0.00      11/176842      number_plus [40]
-----------------------------------------------
                0.00    0.00      11/11          fSgensym0 [19]
[20]     0.0    0.00    0.00      11         gensym_int [20]
                0.00    0.00      11/176860      alloc_object [1]
                0.00    0.00      22/134487      alloc_relblock [41]
                0.00    0.00      11/11          ihash_equal1 [65]
-----------------------------------------------
                0.00    0.00       1/1           funcall <cycle 1> [18]
[21]     0.0    0.00    0.00       1         L1__TIME__mislib [21]
                0.00    0.00       9/11          fSgensym0 [19]
                0.00    0.00      24/43          list [52]
-----------------------------------------------
                0.00    0.00  134464/134468      <hicore> (148)
                0.00    0.00       4/134468      Lminus [23]
[22]     0.0    0.00    0.00  134468         maybe_replace_big [22]
                0.00    0.00  134464/176860      alloc_object [1]
                0.00    0.00  134467/134473      m__gmpz_fits_slong_p [42]
                0.00    0.00  134464/134487      alloc_relblock [41]
                0.00    0.00       3/9           m__gmpz_get_si [67]
-----------------------------------------------
                0.00    0.00       4/4           eval <cycle 1> [9]
[23]     0.0    0.00    0.00       4         Lminus [23]
                0.00    0.00       4/134468      maybe_replace_big [22]
                0.00    0.00       8/18          numberp_fn [59]
                0.00    0.00       4/4           number_minus [95]
-----------------------------------------------
                0.00    0.00       1/3           c_apply_n6 [30]
                0.00    0.00       2/3           LI5__TOP_LEVEL1__top [7]
[24]     0.0    0.00    0.00       3         fLformat [24]
                0.00    0.00       3/3           format [25]
                0.00    0.00       5/314         symbol_value [45]
                0.00    0.00       3/83          flush_stream [49]
                0.00    0.00       1/5           streamp_fn [87]
-----------------------------------------------
                0.00    0.00       3/3           fLformat [24]
[25]     0.0    0.00    0.00       3         format [25]
                0.00    0.00       4/4           fmt_fix_float [26]
                0.00    0.00       2/2           princ [38]
                0.00    0.00     100/158         writec_stream [47]
                0.00    0.00       2/5           file_column [85]
-----------------------------------------------
                0.00    0.00       4/4           format [25]
[26]     0.0    0.00    0.00       4         fmt_fix_float [26]
                0.00    0.00       4/4           make_shortfloat [27]
                0.00    0.00      20/158         writec_stream [47]
                0.00    0.00       8/8           number_to_double [70]
                0.00    0.00       8/8           edit_double [69]
                0.00    0.00       4/4           writestr_stream [99]
-----------------------------------------------
                0.00    0.00       4/4           fmt_fix_float [26]
[27]     0.0    0.00    0.00       4         make_shortfloat [27]
                0.00    0.00       3/176860      alloc_object [1]
-----------------------------------------------
                0.00    0.00       2/2           funcall <cycle 1> [18]
[28]     0.0    0.00    0.00       2         
L32__MULTIPLE_VALUE_BIND__evalmacros [28]
                0.00    0.00       2/11          fSgensym0 [19]
                0.00    0.00      16/43          list [52]
                0.00    0.00       6/6           fLrplacd [78]
                0.00    0.00       2/2           listA [125]
-----------------------------------------------
                                  15             IapplyVector <cycle 1> [58]
[29]     0.0    0.00    0.00      15         c_apply_n <cycle 1> [29]
                0.00    0.00       1/1           c_apply_n6 [30]
                0.00    0.00       6/6           c_apply_n3 [76]
                0.00    0.00       5/5           c_apply_n0 [84]
                0.00    0.00       3/3           c_apply_n1 [107]
                0.00    0.00       2/6           Ivs_values [75]
                0.00    0.00       2/2           fLget_internal_real_time [120]
                0.00    0.00       2/2           fSget_internal_run_times [121]
                0.00    0.00       1/1           fSgprof_quit [140]
                                   7             fLfuncall <cycle 1> [71]
                                   2             fLeval <cycle 1> [119]
-----------------------------------------------
                0.00    0.00       1/1           c_apply_n <cycle 1> [29]
[30]     0.0    0.00    0.00       1         c_apply_n6 [30]
                0.00    0.00       1/3           fLformat [24]
-----------------------------------------------
                                   2             mark_c_stack [31]
                0.00    0.00       1/1           mark_phase [6]
[31]     0.0    0.00    0.00       1+2       mark_c_stack [31]
                0.00    0.00       1/1           mark_stack_carefully [32]
                                   2             mark_c_stack [31]
-----------------------------------------------
                0.00    0.00       1/1           mark_c_stack [31]
[32]     0.0    0.00    0.00       1         mark_stack_carefully [32]
                0.00    0.00       1/24376       mark_object <cycle 2> [39]
-----------------------------------------------
                0.00    0.00       2/4           prin1 [37]
                0.00    0.00       2/4           princ [38]
[33]     0.0    0.00    0.00       4         write_object [33]
                0.00    0.00       1/1           coerce_big_to_string [35]
                0.00    0.00      11/14          writec_queue [61]
                0.00    0.00       4/4           pprint_dispatch [96]
                0.00    0.00       1/4           current_package [91]
                0.00    0.00       1/1           find_symbol [141]
                0.00    0.00       1/1           big_sign [136]
-----------------------------------------------
                0.00    0.00       1/1           coerce_big_to_string [35]
[34]     0.0    0.00    0.00       1         alloc_simple_string [34]
                0.00    0.00       1/176860      alloc_object [1]
-----------------------------------------------
                0.00    0.00       1/1           write_object [33]
[35]     0.0    0.00    0.00       1         coerce_big_to_string [35]
                0.00    0.00       1/1           alloc_simple_string [34]
                0.00    0.00       1/1           m__gmpz_sizeinbase [145]
                0.00    0.00       1/134487      alloc_relblock [41]
                0.00    0.00       1/1           m__gmpz_get_strp [144]
-----------------------------------------------
                0.00    0.00       2/2           simple_symlispcall [10]
[36]     0.0    0.00    0.00       2         Lprin1 [36]
                0.00    0.00       2/2           prin1 [37]
-----------------------------------------------
                0.00    0.00       2/2           Lprin1 [36]
[37]     0.0    0.00    0.00       2         prin1 [37]
                0.00    0.00       2/4           write_object [33]
                0.00    0.00       2/2           setupPRINTdefault [128]
                0.00    0.00       2/83          flush_stream [49]
                0.00    0.00       2/2           flush_queue [123]
                0.00    0.00       2/314         symbol_value [45]
                0.00    0.00       1/1           print_symbol_name_body [147]
-----------------------------------------------
                0.00    0.00       2/2           format [25]
[38]     0.0    0.00    0.00       2         princ [38]
                0.00    0.00       2/4           write_object [33]
-----------------------------------------------
                              517513             mark_object <cycle 2> [39]
                              244129             mark_cons <cycle 2> [5]
                0.00    0.00       1/24376       mark_stack_carefully [32]
                0.00    0.00   24375/24376       mark_phase [6]
[39]     0.0    0.00    0.00  268505+517513  mark_object <cycle 2> [39]
                               52505             mark_cons <cycle 2> [5]
                              517513             mark_object <cycle 2> [39]
-----------------------------------------------
                0.00    0.00       1/176842      Lplus [134]
                0.00    0.00      11/176842      fSgensym0 [19]
                0.00    0.00  176830/176842      <hicore> (148)
[40]     0.0    0.00    0.00  176842         number_plus [40]
                0.00    0.00  134463/134464      m__gmpz_add_ui [43]
-----------------------------------------------
                0.00    0.00       1/134487      coerce_big_to_string [35]
                0.00    0.00      22/134487      gensym_int [20]
                0.00    0.00  134464/134487      maybe_replace_big [22]
[41]     0.0    0.00    0.00  134487         alloc_relblock [41]
-----------------------------------------------
                0.00    0.00       6/134473      integer_quotient_remainder_1 
[17]
                0.00    0.00  134467/134473      maybe_replace_big [22]
[42]     0.0    0.00    0.00  134473         m__gmpz_fits_slong_p [42]
-----------------------------------------------
                0.00    0.00       1/134464      fixnum_add [44]
                0.00    0.00  134463/134464      number_plus [40]
[43]     0.0    0.00    0.00  134464         m__gmpz_add_ui [43]
-----------------------------------------------
                0.00    0.00       1/42379       Lplus [134]
                0.00    0.00      11/42379       fSgensym0 [19]
                0.00    0.00   42367/42379       <hicore> (148)
[44]     0.0    0.00    0.00   42379         fixnum_add [44]
                0.00    0.00       1/17          m__gmpz_set_si [60]
                0.00    0.00       1/134464      m__gmpz_add_ui [43]
-----------------------------------------------
                0.00    0.00       1/314         GBC [2]
                0.00    0.00       2/314         Lfresh_line [104]
                0.00    0.00       2/314         prin1 [37]
                0.00    0.00       2/314         current_readtable [118]
                0.00    0.00       2/314         file_column [85]
                0.00    0.00       2/314         file_position [122]
                0.00    0.00       2/314         unreadc_stream [132]
                0.00    0.00       3/314         coerce_stream [108]
                0.00    0.00       4/314         current_package [91]
                0.00    0.00       4/314         pprint_dispatch [96]
                0.00    0.00       4/314         princ_char [126]
                0.00    0.00       4/314         interactive_stream_p [92]
                0.00    0.00       4/314         listen_stream [53]
                0.00    0.00       5/314         fLformat [24]
                0.00    0.00       7/314         flush_stream [49]
                0.00    0.00       8/314         setup_READ [129]
                0.00    0.00      28/314         setupPRINTdefault [128]
                0.00    0.00      36/314         stream_at_end [57]
                0.00    0.00      38/314         readc_stream [54]
                0.00    0.00     156/314         writec_stream [47]
[45]     0.0    0.00    0.00     314         symbol_value [45]
-----------------------------------------------
                0.00    0.00     158/158         writec_stream [47]
[46]     0.0    0.00    0.00     158         rl_putc_em [46]
-----------------------------------------------
                0.00    0.00       2/158         princ_char [126]
                0.00    0.00       2/158         Lfresh_line [104]
                0.00    0.00      14/158         flush_queue [123]
                0.00    0.00      20/158         writestr_stream [99]
                0.00    0.00      20/158         fmt_fix_float [26]
                0.00    0.00     100/158         format [25]
[47]     0.0    0.00    0.00     158         writec_stream [47]
                0.00    0.00     158/158         rl_putc_em [46]
                0.00    0.00     156/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00      91/91          designate_package [50]
[48]     0.0    0.00    0.00      91         string_eq [48]
-----------------------------------------------
                0.00    0.00       2/83          Lfresh_line [104]
                0.00    0.00       2/83          prin1 [37]
                0.00    0.00       2/83          LI5__TOP_LEVEL1__top [7]
                0.00    0.00       3/83          fLformat [24]
                0.00    0.00      36/83          stream_at_end [57]
                0.00    0.00      38/83          readc_stream [54]
[49]     0.0    0.00    0.00      83         flush_stream [49]
                0.00    0.00       7/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00      72/72          find_package [109]
[50]     0.0    0.00    0.00      72         designate_package [50]
                0.00    0.00      91/91          string_eq [48]
-----------------------------------------------
                0.00    0.00      34/72          stream_at_end [57]
                0.00    0.00      38/72          readc_stream [54]
[51]     0.0    0.00    0.00      72         rl_getc_em [51]
-----------------------------------------------
                0.00    0.00       3/43          
L29__MULTIPLE_VALUE_LIST__evalmacros [103]
                0.00    0.00      16/43          
L32__MULTIPLE_VALUE_BIND__evalmacros [28]
                0.00    0.00      24/43          L1__TIME__mislib [21]
[52]     0.0    0.00    0.00      43         list [52]
-----------------------------------------------
                0.00    0.00       4/40          read_object_non_recursive [12]
                0.00    0.00      36/40          stream_at_end [57]
[53]     0.0    0.00    0.00      40         listen_stream [53]
                0.00    0.00       4/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       2/38          read_object_non_recursive [12]
                0.00    0.00      36/38          read_object <cycle 1> [66]
[54]     0.0    0.00    0.00      38         readc_stream [54]
                0.00    0.00      38/72          rl_getc_em [51]
                0.00    0.00      38/314         symbol_value [45]
                0.00    0.00      38/83          flush_stream [49]
-----------------------------------------------
                0.00    0.00      36/36          stream_at_end [57]
[55]     0.0    0.00    0.00      36         check_stream [55]
-----------------------------------------------
                0.00    0.00       2/36          read_object <cycle 1> [66]
                0.00    0.00      34/36          stream_at_end [57]
[56]     0.0    0.00    0.00      36         rl_ungetc_em [56]
-----------------------------------------------
                0.00    0.00      36/36          read_object <cycle 1> [66]
[57]     0.0    0.00    0.00      36         stream_at_end [57]
                0.00    0.00      36/83          flush_stream [49]
                0.00    0.00      36/314         symbol_value [45]
                0.00    0.00      36/36          check_stream [55]
                0.00    0.00      36/40          listen_stream [53]
                0.00    0.00      34/72          rl_getc_em [51]
                0.00    0.00      34/36          rl_ungetc_em [56]
-----------------------------------------------
                                   6             Ifuncall_n <cycle 1> [73]
                                   7             fLfuncall <cycle 1> [71]
                                  15             funcall <cycle 1> [18]
[58]     0.0    0.00    0.00      28         IapplyVector <cycle 1> [58]
                                  15             c_apply_n <cycle 1> [29]
                                  13             funcall <cycle 1> [18]
-----------------------------------------------
                0.00    0.00       2/18          Lplus [134]
                0.00    0.00       8/18          Lminus [23]
                0.00    0.00       8/18          Ldivide [13]
[59]     0.0    0.00    0.00      18         numberp_fn [59]
-----------------------------------------------
                0.00    0.00       1/17          fixnum_add [44]
                0.00    0.00       4/17          number_minus [95]
                0.00    0.00      12/17          integer_quotient_remainder_1 
[17]
[60]     0.0    0.00    0.00      17         m__gmpz_set_si [60]
-----------------------------------------------
                0.00    0.00       3/14          print_symbol_name_body [147]
                0.00    0.00      11/14          write_object [33]
[61]     0.0    0.00    0.00      14         writec_queue [61]
-----------------------------------------------
                0.00    0.00       5/13          let_bind <cycle 1> [143]
                0.00    0.00       8/13          letA_bind <cycle 1> [124]
[62]     0.0    0.00    0.00      13         bind_var [62]
-----------------------------------------------
                0.00    0.00      13/13          eval <cycle 1> [9]
[63]     0.0    0.00    0.00      13         funcall_no_event [63]
-----------------------------------------------
                0.00    0.00      12/12          integer_quotient_remainder_1 
[17]
[64]     0.0    0.00    0.00      12         m__gmpz_init [64]
-----------------------------------------------
                0.00    0.00      11/11          gensym_int [20]
[65]     0.0    0.00    0.00      11         ihash_equal1 [65]
-----------------------------------------------
                                   8             Lleft_parenthesis_reader 
<cycle 1> [105]
                0.00    0.00       2/4           read_object_non_recursive [12]
[66]     0.0    0.00    0.00      10         read_object <cycle 1> [66]
                0.00    0.00      36/36          stream_at_end [57]
                0.00    0.00      36/38          readc_stream [54]
                0.00    0.00       4/4           intern [93]
                0.00    0.00       3/4           current_package [91]
                0.00    0.00       3/6           super_funcall [80]
                0.00    0.00       2/36          rl_ungetc_em [56]
                0.00    0.00       2/2           unreadc_stream [132]
                0.00    0.00       1/3           find_package [109]
                                   3             funcall <cycle 1> [18]
-----------------------------------------------
                0.00    0.00       3/9           maybe_replace_big [22]
                0.00    0.00       6/9           integer_quotient_remainder_1 
[17]
[67]     0.0    0.00    0.00       9         m__gmpz_get_si [67]
-----------------------------------------------
                0.00    0.00       3/9           make_ratio [14]
                0.00    0.00       6/9           get_gcd [111]
[68]     0.0    0.00    0.00       9         number_minusp [68]
-----------------------------------------------
                0.00    0.00       8/8           fmt_fix_float [26]
[69]     0.0    0.00    0.00       8         edit_double [69]
-----------------------------------------------
                                   6             number_to_double [70]
                0.00    0.00       8/8           fmt_fix_float [26]
[70]     0.0    0.00    0.00       8+6       number_to_double [70]
                                   6             number_to_double [70]
-----------------------------------------------
                                   7             c_apply_n <cycle 1> [29]
[71]     0.0    0.00    0.00       7         fLfuncall <cycle 1> [71]
                                   7             IapplyVector <cycle 1> [58]
-----------------------------------------------
                0.00    0.00       1/7           funcall <cycle 1> [18]
                0.00    0.00       6/7           eval <cycle 1> [9]
[72]     0.0    0.00    0.00       7         quick_call_sfun [72]
                0.00    0.00       4/4           LI55__CAR__recompile [90]
                0.00    0.00       2/2           LI51__CDR__recompile [116]
                0.00    0.00       1/1           data_start [138]
-----------------------------------------------
                                   6             Imacro_expand1 <cycle 1> [74]
[73]     0.0    0.00    0.00       6         Ifuncall_n <cycle 1> [73]
                                   6             IapplyVector <cycle 1> [58]
-----------------------------------------------
                                   6             eval <cycle 1> [9]
[74]     0.0    0.00    0.00       6         Imacro_expand1 <cycle 1> [74]
                                   6             Ifuncall_n <cycle 1> [73]
-----------------------------------------------
                0.00    0.00       2/6           c_apply_n <cycle 1> [29]
                0.00    0.00       4/6           Fsetq <cycle 1> [88]
[75]     0.0    0.00    0.00       6         Ivs_values [75]
-----------------------------------------------
                0.00    0.00       6/6           c_apply_n <cycle 1> [29]
[76]     0.0    0.00    0.00       6         c_apply_n3 [76]
-----------------------------------------------
                0.00    0.00       6/6           fLrplacd [78]
[77]     0.0    0.00    0.00       6         consp_fn [77]
-----------------------------------------------
                0.00    0.00       6/6           
L32__MULTIPLE_VALUE_BIND__evalmacros [28]
[78]     0.0    0.00    0.00       6         fLrplacd [78]
                0.00    0.00       6/6           consp_fn [77]
-----------------------------------------------
                0.00    0.00       6/6           integer_quotient_remainder_1 
[17]
[79]     0.0    0.00    0.00       6         m__gmpz_tdiv_qr [79]
-----------------------------------------------
                0.00    0.00       3/6           read_object <cycle 1> [66]
                0.00    0.00       3/6           eval <cycle 1> [9]
[80]     0.0    0.00    0.00       6         super_funcall [80]
-----------------------------------------------
                0.00    0.00       2/6           symlispcall [131]
                0.00    0.00       4/6           simple_symlispcall [10]
[81]     0.0    0.00    0.00       6         symbol_function [81]
-----------------------------------------------
                0.00    0.00       2/5           LI5__TOP_LEVEL1__top [7]
                0.00    0.00       3/5           funcall <cycle 1> [18]
[82]     0.0    0.00    0.00       5         Llist [82]
-----------------------------------------------
                0.00    0.00       1/5           macro_expand [113]
                0.00    0.00       4/5           setq [97]
[83]     0.0    0.00    0.00       5         assoc_eq [83]
-----------------------------------------------
                0.00    0.00       5/5           c_apply_n <cycle 1> [29]
[84]     0.0    0.00    0.00       5         c_apply_n0 [84]
-----------------------------------------------
                0.00    0.00       2/5           format [25]
                0.00    0.00       3/5           Lfresh_line [104]
[85]     0.0    0.00    0.00       5         file_column [85]
                0.00    0.00       2/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       1/5           find_symbol [141]
                0.00    0.00       4/5           intern [93]
[86]     0.0    0.00    0.00       5         pack_hash [86]
-----------------------------------------------
                0.00    0.00       1/5           fLformat [24]
                0.00    0.00       2/5           princ_char [126]
                0.00    0.00       2/5           Lread [11]
[87]     0.0    0.00    0.00       5         streamp_fn [87]
-----------------------------------------------
                                   4             eval <cycle 1> [9]
[88]     0.0    0.00    0.00       4         Fsetq <cycle 1> [88]
                0.00    0.00       4/6           Ivs_values [75]
                0.00    0.00       4/4           setq [97]
                                   4             Ieval <cycle 1> [89]
-----------------------------------------------
                                   4             Fsetq <cycle 1> [88]
[89]     0.0    0.00    0.00       4         Ieval <cycle 1> [89]
                                   4             eval <cycle 1> [9]
-----------------------------------------------
                0.00    0.00       4/4           quick_call_sfun [72]
[90]     0.0    0.00    0.00       4         LI55__CAR__recompile [90]
-----------------------------------------------
                0.00    0.00       1/4           write_object [33]
                0.00    0.00       3/4           read_object <cycle 1> [66]
[91]     0.0    0.00    0.00       4         current_package [91]
                0.00    0.00       4/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       4/4           read_object_non_recursive [12]
[92]     0.0    0.00    0.00       4         interactive_stream_p [92]
                0.00    0.00       4/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       4/4           read_object <cycle 1> [66]
[93]     0.0    0.00    0.00       4         intern [93]
                0.00    0.00       4/5           pack_hash [86]
-----------------------------------------------
                0.00    0.00       4/4           number_minus [95]
[94]     0.0    0.00    0.00       4         m__gmpz_sub_ui [94]
-----------------------------------------------
                0.00    0.00       4/4           Lminus [23]
[95]     0.0    0.00    0.00       4         number_minus [95]
                0.00    0.00       4/17          m__gmpz_set_si [60]
                0.00    0.00       4/4           m__gmpz_sub_ui [94]
-----------------------------------------------
                0.00    0.00       4/4           write_object [33]
[96]     0.0    0.00    0.00       4         pprint_dispatch [96]
                0.00    0.00       4/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       4/4           Fsetq <cycle 1> [88]
[97]     0.0    0.00    0.00       4         setq [97]
                0.00    0.00       4/5           assoc_eq [83]
-----------------------------------------------
                0.00    0.00       4/4           eval <cycle 1> [9]
[98]     0.0    0.00    0.00       4         siLgbc_time [98]
-----------------------------------------------
                0.00    0.00       4/4           fmt_fix_float [26]
[99]     0.0    0.00    0.00       4         writestr_stream [99]
                0.00    0.00      20/158         writec_stream [47]
-----------------------------------------------
                                   3             eval <cycle 1> [9]
[100]    0.0    0.00    0.00       3         Fmultiple_value_call <cycle 1> 
[100]
                                   6             eval <cycle 1> [9]
-----------------------------------------------
                                   1             Flet <cycle 1> [133]
                                   2             FletA <cycle 1> [114]
[101]    0.0    0.00    0.00       3         Fprogn <cycle 1> [101]
                                  11             eval <cycle 1> [9]
-----------------------------------------------
                0.00    0.00       3/3           eval <cycle 1> [9]
[102]    0.0    0.00    0.00       3         Fquote [102]
-----------------------------------------------
                0.00    0.00       3/3           funcall <cycle 1> [18]
[103]    0.0    0.00    0.00       3         
L29__MULTIPLE_VALUE_LIST__evalmacros [103]
                0.00    0.00       3/43          list [52]
-----------------------------------------------
                0.00    0.00       1/3           eval <cycle 1> [9]
                0.00    0.00       2/3           LI5__TOP_LEVEL1__top [7]
[104]    0.0    0.00    0.00       3         Lfresh_line [104]
                0.00    0.00       3/3           coerce_stream [108]
                0.00    0.00       3/5           file_column [85]
                0.00    0.00       2/158         writec_stream [47]
                0.00    0.00       2/83          flush_stream [49]
                0.00    0.00       2/314         symbol_value [45]
-----------------------------------------------
                                   3             funcall <cycle 1> [18]
[105]    0.0    0.00    0.00       3         Lleft_parenthesis_reader <cycle 1> 
[105]
                                   8             read_object <cycle 1> [66]
-----------------------------------------------
                0.00    0.00       3/3           eval <cycle 1> [9]
[106]    0.0    0.00    0.00       3         bds_unwind [106]
-----------------------------------------------
                0.00    0.00       3/3           c_apply_n <cycle 1> [29]
[107]    0.0    0.00    0.00       3         c_apply_n1 [107]
-----------------------------------------------
                0.00    0.00       3/3           Lfresh_line [104]
[108]    0.0    0.00    0.00       3         coerce_stream [108]
                0.00    0.00       3/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       1/3           read_object <cycle 1> [66]
                0.00    0.00       2/3           Lfind_package [117]
[109]    0.0    0.00    0.00       3         find_package [109]
                0.00    0.00      72/72          designate_package [50]
-----------------------------------------------
                0.00    0.00       1/3           let_bind <cycle 1> [143]
                0.00    0.00       2/3           letA_bind <cycle 1> [124]
[110]    0.0    0.00    0.00       3         find_special [110]
                0.00    0.00       3/3           macro_expand [113]
-----------------------------------------------
                0.00    0.00       3/3           make_ratio [14]
[111]    0.0    0.00    0.00       3         get_gcd [111]
                0.00    0.00       6/9           number_minusp [68]
-----------------------------------------------
                0.00    0.00       1/3           Flet <cycle 1> [133]
                0.00    0.00       2/3           FletA <cycle 1> [114]
[112]    0.0    0.00    0.00       3         let_var_list [112]
-----------------------------------------------
                0.00    0.00       3/3           find_special [110]
[113]    0.0    0.00    0.00       3         macro_expand [113]
                0.00    0.00       1/5           assoc_eq [83]
-----------------------------------------------
                                   2             eval <cycle 1> [9]
[114]    0.0    0.00    0.00       2         FletA <cycle 1> [114]
                0.00    0.00       2/3           let_var_list [112]
                                   2             letA_bind <cycle 1> [124]
                                   2             Fprogn <cycle 1> [101]
-----------------------------------------------
                0.00    0.00       2/2           LI5__TOP_LEVEL1__top [7]
[115]    0.0    0.00    0.00       2         LI1__USER_PACKAGE__top [115]
                0.00    0.00       2/2           Lfind_package [117]
-----------------------------------------------
                0.00    0.00       2/2           quick_call_sfun [72]
[116]    0.0    0.00    0.00       2         LI51__CDR__recompile [116]
-----------------------------------------------
                0.00    0.00       2/2           LI1__USER_PACKAGE__top [115]
[117]    0.0    0.00    0.00       2         Lfind_package [117]
                0.00    0.00       2/3           find_package [109]
-----------------------------------------------
                0.00    0.00       2/2           setup_READ [129]
[118]    0.0    0.00    0.00       2         current_readtable [118]
                0.00    0.00       2/314         symbol_value [45]
-----------------------------------------------
                                   2             c_apply_n <cycle 1> [29]
[119]    0.0    0.00    0.00       2         fLeval <cycle 1> [119]
                                   2             eval <cycle 1> [9]
-----------------------------------------------
                0.00    0.00       2/2           c_apply_n <cycle 1> [29]
[120]    0.0    0.00    0.00       2         fLget_internal_real_time [120]
-----------------------------------------------
                0.00    0.00       2/2           c_apply_n <cycle 1> [29]
[121]    0.0    0.00    0.00       2         fSget_internal_run_times [121]
-----------------------------------------------
                0.00    0.00       2/2           flush_queue [123]
[122]    0.0    0.00    0.00       2         file_position [122]
                0.00    0.00       2/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       2/2           prin1 [37]
[123]    0.0    0.00    0.00       2         flush_queue [123]
                0.00    0.00      14/158         writec_stream [47]
                0.00    0.00       2/2           file_position [122]
-----------------------------------------------
                                   2             FletA <cycle 1> [114]
[124]    0.0    0.00    0.00       2         letA_bind <cycle 1> [124]
                0.00    0.00       8/13          bind_var [62]
                0.00    0.00       2/3           find_special [110]
                                   8             eval <cycle 1> [9]
-----------------------------------------------
                0.00    0.00       2/2           
L32__MULTIPLE_VALUE_BIND__evalmacros [28]
[125]    0.0    0.00    0.00       2         listA [125]
-----------------------------------------------
                0.00    0.00       2/2           LI5__TOP_LEVEL1__top [7]
[126]    0.0    0.00    0.00       2         princ_char [126]
                0.00    0.00       4/314         symbol_value [45]
                0.00    0.00       2/5           streamp_fn [87]
                0.00    0.00       2/158         writec_stream [47]
-----------------------------------------------
                0.00    0.00       2/2           GBC [2]
[127]    0.0    0.00    0.00       2         runtime [127]
-----------------------------------------------
                0.00    0.00       2/2           prin1 [37]
[128]    0.0    0.00    0.00       2         setupPRINTdefault [128]
                0.00    0.00      28/314         symbol_value [45]
-----------------------------------------------
                0.00    0.00       2/2           read_object_non_recursive [12]
[129]    0.0    0.00    0.00       2         setup_READ [129]
                0.00    0.00       8/314         symbol_value [45]
                0.00    0.00       2/2           current_readtable [118]
-----------------------------------------------
                0.00    0.00       2/2           LI5__TOP_LEVEL1__top [7]
[130]    0.0    0.00    0.00       2         siLreset_stack_limits [130]
-----------------------------------------------
                0.00    0.00       2/2           LI5__TOP_LEVEL1__top [7]
[131]    0.0    0.00    0.00       2         symlispcall [131]
                0.00    0.00       2/6           symbol_function [81]
-----------------------------------------------
                0.00    0.00       2/2           read_object <cycle 1> [66]
[132]    0.0    0.00    0.00       2         unreadc_stream [132]
                0.00    0.00       2/314         symbol_value [45]
-----------------------------------------------
                                   1             eval <cycle 1> [9]
[133]    0.0    0.00    0.00       1         Flet <cycle 1> [133]
                0.00    0.00       1/3           let_var_list [112]
                                   1             let_bind <cycle 1> [143]
                                   1             Fprogn <cycle 1> [101]
-----------------------------------------------
                0.00    0.00       1/1           eval <cycle 1> [9]
[134]    0.0    0.00    0.00       1         Lplus [134]
                0.00    0.00       2/18          numberp_fn [59]
                0.00    0.00       1/42379       fixnum_add [44]
                0.00    0.00       1/176842      number_plus [40]
-----------------------------------------------
                0.00    0.00       1/1           eval <cycle 1> [9]
[135]    0.0    0.00    0.00       1         Lvalues_list [135]
-----------------------------------------------
                0.00    0.00       1/1           write_object [33]
[136]    0.0    0.00    0.00       1         big_sign [136]
-----------------------------------------------
                0.00    0.00       1/1           mark_phase [6]
[137]    0.0    0.00    0.00       1         clear_stack [137]
-----------------------------------------------
                0.00    0.00       1/1           quick_call_sfun [72]
[138]    0.0    0.00    0.00       1         data_start [138]
-----------------------------------------------
                0.00    0.00       1/1           print_symbol_name_body [147]
[139]    0.0    0.00    0.00       1         digitp [139]
-----------------------------------------------
                0.00    0.00       1/1           c_apply_n <cycle 1> [29]
[140]    0.0    0.00    0.00       1         fSgprof_quit [140]
                0.00    0.00       1/1           getwd [142]
-----------------------------------------------
                0.00    0.00       1/1           write_object [33]
[141]    0.0    0.00    0.00       1         find_symbol [141]
                0.00    0.00       1/5           pack_hash [86]
-----------------------------------------------
                0.00    0.00       1/1           fSgprof_quit [140]
[142]    0.0    0.00    0.00       1         getwd [142]
-----------------------------------------------
                                   1             Flet <cycle 1> [133]
[143]    0.0    0.00    0.00       1         let_bind <cycle 1> [143]
                0.00    0.00       5/13          bind_var [62]
                0.00    0.00       1/3           find_special [110]
                                   5             eval <cycle 1> [9]
-----------------------------------------------
                0.00    0.00       1/1           coerce_big_to_string [35]
[144]    0.0    0.00    0.00       1         m__gmpz_get_strp [144]
-----------------------------------------------
                0.00    0.00       1/1           coerce_big_to_string [35]
[145]    0.0    0.00    0.00       1         m__gmpz_sizeinbase [145]
-----------------------------------------------
                0.00    0.00       1/1           GBC [2]
[146]    0.0    0.00    0.00       1         opt_maxpage [146]
-----------------------------------------------
                0.00    0.00       1/1           prin1 [37]
[147]    0.0    0.00    0.00       1         print_symbol_name_body [147]
                0.00    0.00       3/14          writec_queue [61]
                0.00    0.00       1/1           digitp [139]
-----------------------------------------------

 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

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

NIL

>


"Bill Six" <address@hidden> writes:

> Hi,
> I'm relatively new to Common Lisp.  GCL has been my preferred CL platform 
> (over CMUCL and CLisp) because it generates portable C code and then
> calls a compiler.  I recently was trying to sum a large list of numbers using 
> reduce, and GCL took a very long time to compute the result. 
> I'm trying to understand why.
> In GCL, it takes ~852 seconds to sum 200000 integers:
>      >(defun range (start end)
>              (loop for i from start below end collect i))
>      RANGE
>      >(progn
>         (setf *foo* (range 0 200000))
>         (length *foo*))
>      200000
>      (time (reduce #'+ *foo*))
>      real time       :    852.200 secs
>      run-gbc time    :    839.160 secs
>      child run time  :      0.000 secs
>      gbc time        :      0.100 secs
>      19999900000
> In CLisp, the computation took less than a second:
>      [1]> (defun range (start end)
>              (loop for i from start below end collect i))
>      RANGE
>      [2]> (progn
>         (setf *foo* (range 0 200000))
>         (length *foo*))
>      200000
>      [3]> (time (reduce #'+ *foo*))
>      Real time: 0.109255 sec.
>      Run time: 0.108007 sec.
>      Space: 3107312 Bytes
>      GC: 3, GC time: 0.048003 sec.
>      19999900000
> Why is this?  (I'm running GCL (GNU Common Lisp)  2.6.8 ANSI    Aug  2 2007 
> 17:12:54 on Ubuntu Gutsy).  How would I go about finding out the
> bottleneck in gcl_seqlib.lsp?
> Any advice would be much appreciated. 
> Thanks,
> Bill Six
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/gcl-devel

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah




reply via email to

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