X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffast-init.lisp;h=38693682a00ab6fa27e181c96e2741d5e80c3e54;hb=c8af15e61b030c8d4b0e950bc9b7618530044618;hp=4f23946c6b333f93527dfc4c89a31e84a5e3fc68;hpb=4a4f1e5ca70363d64d7cbb141863a387334e6760;p=sbcl.git

diff --git a/src/pcl/fast-init.lisp b/src/pcl/fast-init.lisp
index 4f23946..3869368 100644
--- a/src/pcl/fast-init.lisp
+++ b/src/pcl/fast-init.lisp
@@ -178,7 +178,7 @@
 				     'initialize-info name)))
 		 *initialize-info-cached-slots*)))
     `(progn
-       (defstruct initialize-info
+       (defstruct (initialize-info (:copier nil))
 	 key wrapper
 	 ,@(mapcar #'(lambda (name)
 		       `(,name :unknown))