projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.80:
[sbcl.git]
/
src
/
code
/
dyncount.lisp
diff --git
a/src/code/dyncount.lisp
b/src/code/dyncount.lisp
index
d14727b
..
fcdb4a3
100644
(file)
--- a/
src/code/dyncount.lisp
+++ b/
src/code/dyncount.lisp
@@
-100,7
+100,7
@@
comments from CMU CL:
(:constructor %make-vop-stats (name))
(:constructor make-vop-stats-key)
(:copier nil))
(:constructor %make-vop-stats (name))
(:constructor make-vop-stats-key)
(:copier nil))
- (name (required-argument) :type simple-string)
+ (name (missing-arg) :type simple-string)
(data (make-array 2 :element-type 'double-float) :type count-vector))
(defmacro vop-stats-count (x) `(aref (vop-stats-data ,x) 0))
(data (make-array 2 :element-type 'double-float) :type count-vector))
(defmacro vop-stats-count (x) `(aref (vop-stats-data ,x) 0))
@@
-214,8
+214,8
@@
comments from CMU CL:
;;; Return the DYNCOUNT-INFO for FUNCTION.
(defun find-info-for (function)
(declare (type function function))
;;; Return the DYNCOUNT-INFO for FUNCTION.
(defun find-info-for (function)
(declare (type function function))
- (let* ((function (%primitive closure-function function))
- (component (sb!di::function-code-header function)))
+ (let* ((function (%primitive closure-fun function))
+ (component (sb!di::fun-code-header function)))
(do ((end (get-header-data component))
(i sb!vm:code-constants-offset (1+ i)))
((= end i))
(do ((end (get-header-data component))
(i sb!vm:code-constants-offset (1+ i)))
((= end i))