0.6.11.17:

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

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 92c712c..ba9ff36 100644 (file)
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -130,14 +130,14 @@
 \f
 ;;;; type specifier hackery
 
-;;; internal to this file.
+;;; internal to this file
 (defun coerce-to-class (class &optional make-forward-referenced-class-p)
   (if (symbolp class)
       (or (find-class class (not make-forward-referenced-class-p))
          (ensure-class class))
       class))
 
-;;; Interface
+;;; interface
 (defun specializer-from-type (type &aux args)
   (when (consp type)
     (setq args (cdr type) type (car type)))
@@ -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))