projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove duplicate implementations of (setf aref/sbit/bit).
[sbcl.git]
/
src
/
code
/
profile.lisp
diff --git
a/src/code/profile.lisp
b/src/code/profile.lisp
index
ec881ba
..
da4f0b6
100644
(file)
--- a/
src/code/profile.lisp
+++ b/
src/code/profile.lisp
@@
-180,8
+180,7
@@
(dconsing 0)
(inner-enclosed-profiles 0)
(dgc-run-time 0))
(dconsing 0)
(inner-enclosed-profiles 0)
(dgc-run-time 0))
- (declare (truly-dynamic-extent dticks dconsing
- inner-enclosed-profiles))
+ (declare (truly-dynamic-extent dticks dconsing inner-enclosed-profiles))
(unwind-protect
(let* ((start-ticks (get-internal-ticks))
(start-gc-run-time *gc-run-time*)
(unwind-protect
(let* ((start-ticks (get-internal-ticks))
(start-gc-run-time *gc-run-time*)
@@
-191,12
+190,11
@@
(nbf0 *n-bytes-freed-or-purified*)
(dynamic-usage-0 (sb-kernel:dynamic-usage))
(*enclosed-gc-run-time* (make-counter)))
(nbf0 *n-bytes-freed-or-purified*)
(dynamic-usage-0 (sb-kernel:dynamic-usage))
(*enclosed-gc-run-time* (make-counter)))
- (declare (dynamic-extent *enclosed-ticks* *enclosed-consing*
- *enclosed-profiles*
- *enclosed-gc-run-time*))
+ (declare (dynamic-extent *enclosed-ticks* *enclosed-consing* *enclosed-profiles* *enclosed-gc-run-time*))
(unwind-protect
(multiple-value-call encapsulated-fun
(sb-c:%more-arg-values arg-context
(unwind-protect
(multiple-value-call encapsulated-fun
(sb-c:%more-arg-values arg-context
+ 0
arg-count))
(let ((*computing-profiling-data-for* encapsulated-fun)
(dynamic-usage-1 (sb-kernel:dynamic-usage)))
arg-count))
(let ((*computing-profiling-data-for* encapsulated-fun)
(dynamic-usage-1 (sb-kernel:dynamic-usage)))