X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fassemfile.lisp;h=d2dc9115a8187bd9686024147c7a4c26f9f6f861;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=a4e9faf5315383955b792095139a614bc66251cf;hpb=02ce4b1b927f1312c300047bd5a0db6663a1d2c6;p=sbcl.git

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index a4e9faf..d2dc911 100644
--- a/src/assembly/assemfile.lisp
+++ b/src/assembly/assemfile.lisp
@@ -63,7 +63,7 @@
       (close-fasl-file *lap-output-file* (not won)))
     won))
 
-(defstruct reg-spec
+(defstruct (reg-spec (:copier nil))
   (kind :temp :type (member :arg :temp :res))
   (name nil :type symbol)
   (temp nil :type symbol)