0.6.11.10:

[sbcl.git] / src / pcl / defs.lisp

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 92c712c..5943a8d 100644 (file)
--- 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))