X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-target-error.lisp;h=216a9fedf3ca1350b56d7b978c3390a680bbc79f;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=88281082b37e742261dc278d7d23af58b0a087dc;hpb=2d195da5e29feadce7190ea1a68a2efa83a5e1c0;p=sbcl.git

diff --git a/src/code/early-target-error.lisp b/src/code/early-target-error.lisp
index 8828108..216a9fe 100644
--- a/src/code/early-target-error.lisp
+++ b/src/code/early-target-error.lisp
@@ -43,7 +43,7 @@
 	    (res restart))))
       (res))))
 
-(defstruct restart
+(defstruct (restart (:copier nil))
   name
   function
   report-function