X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbackend.lisp;h=78a432b9c9a2f7b2f8fc332c00e5be16032a2090;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=0752e4249f7dbadc7520fc5b23d6cfb1c55a7af2;hpb=8624c52d7620e8a4d3de23c363e843a10815f4f4;p=sbcl.git

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 0752e42..78a432b 100644
--- 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))