0.6.11.10:

[sbcl.git] / src / compiler / backend.lisp

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 0752e42..78a432b 100644 (file)
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -168,7 +168,7 @@
             `(progn
                (eval-when (:compile-toplevel :load-toplevel :execute)
                  (defparameter *vm-support-routines* ',routines))
-               (defstruct vm-support-routines
+               (defstruct (vm-support-routines (:copier nil))
                  ,@(mapcar #'(lambda (routine)
                                `(,routine nil :type (or function null)))
                            routines))