0.6.11.10:

[sbcl.git] / src / code / dyncount.lisp

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index 744cf74..16ad8bc 100644 (file)
--- a/src/code/dyncount.lisp
+++ b/src/code/dyncount.lisp
@@ -98,7 +98,8 @@ comments from CMU CL:
 (deftype count-vector () '(simple-array double-float (2)))
 (defstruct (vop-stats
            (:constructor %make-vop-stats (name))
-           (:constructor make-vop-stats-key))
+           (:constructor make-vop-stats-key)
+           (:copier nil))
   (name (required-argument) :type simple-string)
   (data (make-array 2 :element-type 'double-float) :type count-vector))