Skip to content

Instantly share code, notes, and snippets.

@shrdlu68

shrdlu68/ac-sprof.cl Secret

Last active September 25, 2018 18:42
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save shrdlu68/081a78c6196b676395ca518a268d9119 to your computer and use it in GitHub Desktop.
Save shrdlu68/081a78c6196b676395ca518a268d9119 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ac-sprof.cl
ARITHMETIC-CODING> (time (test-file "/bin/cat"))
Test successful
Input size: 35312b
Output size: 14592b
Compression ratio: 59%
Evaluation took:
7.922 seconds of real time
7.922111 seconds of total run time (7.438140 user, 0.483971 system)
[ Run times consist of 0.736 seconds GC time, and 7.187 seconds non-GC time. ]
100.00% CPU
38 lambdas converted
23,004,113,161 processor cycles
3,015,754,944 bytes consed
NIL
ARITHMETIC-CODING> (require :sb-sprof)
("SB-SPROF")
ARITHMETIC-CODING> (sb-sprof:with-profiling (:mode :cpu
:sample-interval 0.001
:max-samples 100000
:report :flat
:loop nil
:show-progress t)
(test-file "/bin/cat"))
Test successful
Input size: 35312b
Output size: 14592b
Compression ratio: 59%
Number of samples: 6585
Sample interval: 0.001 seconds
Total sampling time: 6.5850005 seconds
Number of cycles: 0
Sampled threads:
#<SB-THREAD:THREAD "repl-thread" RUNNING {1009907F93}>
Self Total Cumul
Nr Count % Count % Count % Calls Function
------------------------------------------------------------------------
1 3283 49.9 3778 57.4 3283 49.9 - (FLET "BODY-FUN-0" :IN SB-IMPL::GETHASH3)
2 453 6.9 774 11.8 3736 56.7 - (FLET "BODY-FUN-8" :IN SB-KERNEL:%PUTHASH)
3 440 6.7 440 6.7 4176 63.4 - SB-KERNEL:UB1-BASH-COPY
4 341 5.2 341 5.2 4517 68.6 - (LABELS SB-IMPL::SXHASH-RECURSE :IN SXHASH)
5 309 4.7 3235 49.1 4826 73.3 - UPDATE-DB
6 294 4.5 6416 97.4 5120 77.8 - PREDICT
7 172 2.6 172 2.6 5292 80.4 - (LABELS SB-IMPL::EQUAL-AUX :IN EQUAL)
8 103 1.6 459 7.0 5395 81.9 - SXHASH
9 101 1.5 538 8.2 5496 83.5 - SB-IMPL::EQUAL-HASH
10 94 1.4 94 1.4 5590 84.9 - SB-INT:BIT-VECTOR-=
11 92 1.4 3878 58.9 5682 86.3 - SB-IMPL::GETHASH3
12 76 1.2 84 1.3 5758 87.4 - SB-VM::ALLOC-TRAMP
13 70 1.1 183 2.8 5828 88.5 - (LAMBDA (ELT) :IN METABANG.CL-CONTAINERS::REDUCE-INTERNAL)
14 56 0.9 842 12.8 5884 89.4 - SB-KERNEL:%PUTHASH
15 44 0.7 44 0.7 5928 90.0 - (LAMBDA (SB-PCL::.ARG0.) :IN "SYS:SRC;PCL;DLISP3.LISP")
16 40 0.6 40 0.6 5968 90.6 - (LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1.) :IN "SYS:SRC;PCL;DLISP3.LISP")
17 38 0.6 296 4.5 6006 91.2 - METABANG.CL-CONTAINERS::REDUCE-INTERNAL
18 32 0.5 59 0.9 6038 91.7 - +
19 30 0.5 46 0.7 6068 92.1 - SB-KERNEL:TWO-ARG-+
20 24 0.4 24 0.4 6092 92.5 - LENGTH
21 20 0.3 540 8.2 6112 92.8 - MATH:MEAN
22 20 0.3 453 6.9 6132 93.1 - MATH::MEAN-INTERNAL
23 20 0.3 210 3.2 6152 93.4 - (SB-PCL::FAST-METHOD METABANG.CL-CONTAINERS:ITERATE-ELEMENTS (LIST T))
24 20 0.3 20 0.3 6172 93.7 - (LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.))
25 19 0.3 25 0.4 6191 94.0 - BUTLAST
26 19 0.3 19 0.3 6210 94.3 - (SB-PCL::FAST-METHOD METABANG.UTILITIES:SIZE (LIST))
27 17 0.3 3273 49.7 6227 94.6 - ENCODE-ARITHMETIC
28 16 0.2 43 0.7 6243 94.8 - SB-KERNEL:%SINGLE-FLOAT
29 16 0.2 16 0.2 6259 95.0 - (FLET "CLEANUP-FUN-70" :IN SB-THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK)
30 15 0.2 56 0.9 6274 95.3 - MATH::DATA-LENGTH-INTERNAL
31 15 0.2 16 0.2 6289 95.5 - (SB-PCL::FAST-METHOD MATH:CONVERT (SEQUENCE (EQL (QUOTE MATH::ITERATABLE-THING))))
32 14 0.2 14 0.2 6303 95.7 - (LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1.) :IN "SYS:SRC;PCL;DLISP3.LISP")
33 13 0.2 15 0.2 6316 95.9 - SB-BIGNUM:ADD-BIGNUMS
34 12 0.2 27 0.4 6328 96.1 - SB-KERNEL:%UNARY-TRUNCATE/SINGLE-FLOAT
35 12 0.2 17 0.3 6340 96.3 - SB-KERNEL:TWO-ARG-/
36 11 0.2 11 0.2 6351 96.4 - (LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.MORE-CONTEXT. SB-PCL::.MORE-COUNT.) :IN "SYS:SRC;PCL;DLISP3.LISP")
37 10 0.2 3270 49.7 6361 96.6 - DECODE-ARITHMETIC
38 10 0.2 35 0.5 6371 96.8 - SB-KERNEL:TWO-ARG-*
39 10 0.2 15 0.2 6381 96.9 - TRUNCATE
40 10 0.2 10 0.2 6391 97.1 - COPY-LIST
41 10 0.2 10 0.2 6401 97.2 - EQUAL
42 9 0.1 93 1.4 6410 97.3 - MATH:DATA-LENGTH
43 9 0.1 9 0.1 6419 97.5 - SB-BIGNUM::%NORMALIZE-BIGNUM
44 8 0.1 435 6.6 6427 97.6 - SMOOTHED-MEAN
45 8 0.1 24 0.4 6435 97.7 - SB-BIGNUM:BIGNUM-TO-FLOAT
46 8 0.1 13 0.2 6443 97.8 - (SB-PCL::EMF METABANG.CL-CONTAINERS:REDUCE-ELEMENTS)
47 6 0.1 6 0.1 6449 97.9 - SB-KERNEL:TWO-ARG-<
48 5 0.1 12 0.2 6454 98.0 - SB-KERNEL:TWO-ARG--
49 5 0.1 6 0.1 6459 98.1 - SB-IMPL::VECTOR-REPLACE
50 5 0.1 5 0.1 6464 98.2 - SB-BIGNUM:SUBTRACT-BIGNUM
51 5 0.1 5 0.1 6469 98.2 - (SB-PCL::FAST-METHOD METABANG.CL-CONTAINERS:ITERATABLE-P (LIST))
52 5 0.1 5 0.1 6474 98.3 - SB-KERNEL:INTEGER-DECODE-SINGLE-FLOAT
53 5 0.1 5 0.1 6479 98.4 - SB-BIGNUM:BIGNUM-ASHIFT-LEFT-FIXNUM
54 5 0.1 5 0.1 6484 98.5 - SB-PCL::CHECK-APPLICABLE-KEYWORDS
55 5 0.1 5 0.1 6489 98.5 - (SB-PCL::FAST-METHOD METABANG.CL-CONTAINERS:EMPTY-P (LIST))
56 4 0.1 4 0.1 6493 98.6 - SB-BIGNUM::BIGNUM-ASHIFT-LEFT-UNALIGNED
57 4 0.1 4 0.1 6497 98.7 - (FLET SB-THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK :IN SB-IMPL::GETHASH3)
58 4 0.1 4 0.1 6501 98.7 - "#<trampoline #<FUNCTION UPDATE-DB> {205351EF}>"
59 4 0.1 4 0.1 6505 98.8 - SB-KERNEL:FLOAT-FORMAT-DIGITS
60 3 0.0 3 0.0 6508 98.8 - (FLET SB-THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK :IN SB-KERNEL:%PUTHASH)
61 3 0.0 3 0.0 6511 98.9 - SB-IMPL::DOTTED-NTHCDR
62 3 0.0 3 0.0 6514 98.9 - SB-KERNEL:%COERCE-CALLABLE-TO-FUN
63 3 0.0 3 0.0 6517 99.0 - (SB-PCL::FAST-METHOD METABANG.CL-CONTAINERS:REDUCE-ELEMENTS (LIST T))
64 3 0.0 3 0.0 6520 99.0 - (FLET SB-IMPL::FAST-NTHCDR :IN SB-IMPL::DOTTED-NTHCDR)
65 2 0.0 15 0.2 6522 99.0 - DOWNSCALE-P
66 2 0.0 7 0.1 6524 99.1 - REPLACE
67 2 0.0 2 0.0 6526 99.1 - SB-KERNEL:SEQUENCEP
68 2 0.0 2 0.0 6528 99.1 - SB-BIGNUM::FINISH-ADD
69 2 0.0 2 0.0 6530 99.2 - (LABELS SB-BIGNUM::FLOAT-FROM-BITS :IN SB-BIGNUM:BIGNUM-TO-FLOAT)
70 2 0.0 2 0.0 6532 99.2 - SB-KERNEL:TWO-ARG->
71 2 0.0 2 0.0 6534 99.2 - ASH
72 2 0.0 2 0.0 6536 99.3 - IDENTITY
73 2 0.0 2 0.0 6538 99.3 - SB-BIGNUM:BIGNUM-ASHIFT-LEFT
74 1 0.0 1 0.0 6539 99.3 - READ-OCTETS
75 1 0.0 1 0.0 6540 99.3 - SB-KERNEL:%MAKE-ARRAY
76 1 0.0 1 0.0 6541 99.3 - SB-KERNEL:HAIRY-DATA-VECTOR-SET
77 1 0.0 1 0.0 6542 99.3 - SB-BIGNUM::SINGLE-FLOAT-FROM-BITS
78 1 0.0 1 0.0 6543 99.4 - ABS
79 1 0.0 1 0.0 6544 99.4 - SB-BIGNUM:BIGNUM-INTEGER-LENGTH
80 1 0.0 1 0.0 6545 99.4 - SB-KERNEL:TWO-ARG-=
81 1 0.0 1 0.0 6546 99.4 - SB-BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH
82 0 0.0 6564 99.7 6546 99.4 - TEST-FILE
83 0 0.0 6564 99.7 6546 99.4 - "Unknown component: #x103B709748"
84 0 0.0 6564 99.7 6546 99.4 - SWANK::EVAL-REGION
85 0 0.0 6564 99.7 6546 99.4 - (LAMBDA NIL :IN SWANK-REPL::REPL-EVAL)
86 0 0.0 6564 99.7 6546 99.4 - SWANK-REPL::TRACK-PACKAGE
87 0 0.0 6564 99.7 6546 99.4 - SWANK::CALL-WITH-RETRY-RESTART
88 0 0.0 6564 99.7 6546 99.4 - SWANK::CALL-WITH-BUFFER-SYNTAX
89 0 0.0 6564 99.7 6546 99.4 - SWANK-REPL::REPL-EVAL
90 0 0.0 6564 99.7 6546 99.4 - SB-INT:SIMPLE-EVAL-IN-LEXENV
91 0 0.0 6564 99.7 6546 99.4 - EVAL
92 0 0.0 6564 99.7 6546 99.4 - SWANK:EVAL-FOR-EMACS
93 0 0.0 6564 99.7 6546 99.4 - SWANK::PROCESS-REQUESTS
94 0 0.0 6564 99.7 6546 99.4 - (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS)
95 0 0.0 6564 99.7 6546 99.4 - SWANK/SBCL::CALL-WITH-BREAK-HOOK
96 0 0.0 6564 99.7 6546 99.4 - (FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/automaton/quicklisp/dists/quicklisp/software/slime-v2.20/swank/sbcl.lisp")
97 0 0.0 6564 99.7 6546 99.4 - SWANK::CALL-WITH-BINDINGS
98 0 0.0 6564 99.7 6546 99.4 - SWANK::HANDLE-REQUESTS
99 0 0.0 6564 99.7 6546 99.4 - (FLET SB-UNIX::BODY :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)
100 0 0.0 6564 99.7 6546 99.4 - (FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)
101 0 0.0 6564 99.7 6546 99.4 - (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE)
102 0 0.0 6564 99.7 6546 99.4 - (FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX)
103 0 0.0 6564 99.7 6546 99.4 - SB-THREAD::CALL-WITH-MUTEX
104 0 0.0 6564 99.7 6546 99.4 - SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE
105 0 0.0 6564 99.7 6546 99.4 - "foreign function call_into_lisp"
106 0 0.0 6564 99.7 6546 99.4 - "foreign function new_thread_trampoline"
107 0 0.0 16 0.2 6546 99.4 - SB-THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK
108 0 0.0 8 0.1 6546 99.4 - OV-TO-BV
109 0 0.0 1 0.0 6546 99.4 - INT-TO-BV
110 0 0.0 1 0.0 6546 99.4 - VECTOR-PUSH-EXTEND
111 0 0.0 1 0.0 6546 99.4 - (LABELS SB-BIGNUM::ROUND-UP :IN SB-BIGNUM:BIGNUM-TO-FLOAT)
------------------------------------------------------------------------
18 0.3 elsewhere
#<SB-SPROF::CALL-GRAPH 6585 samples {108AFF68F3}>
ARITHMETIC-CODING>
Raw
text.bmp
View raw
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment