X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=5943a8db63033eda17475a789701e6ffb663b987;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=92c712c9016095472bc8508982e42f7efac25311;hpb=13bb6d7a14d408cbf545968107fae797cd1cce77;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 92c712c..5943a8d 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -551,7 +551,8 @@
   (:metaclass structure-class))
 
 (defstruct (dead-beef-structure-object
-	    (:constructor |STRUCTURE-OBJECT class constructor|)))
+	    (:constructor |STRUCTURE-OBJECT class constructor|)
+	    (:copier nil)))
 
 (defclass std-object (slot-object) ()
   (:metaclass std-class))