0.6.11.10:

[sbcl.git] / src / pcl / std-class.lisp

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index ec5ffb2..22f6db9 100644 (file)
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -516,10 +516,11 @@
                                      (:print-function print-std-instance)
                                      (:predicate nil)
                                      (:conc-name ,conc-name)
-                                     (:constructor ,constructor ()))
-                          ,@(mapcar #'(lambda (slot)
-                                        `(,(slot-definition-name slot)
-                                          +slot-unbound+))
+                                     (:constructor ,constructor ())
+                                     (:copier nil))
+                          ,@(mapcar (lambda (slot)
+                                      `(,(slot-definition-name slot)
+                                        +slot-unbound+))
                                     direct-slots)))
             (reader-names (mapcar (lambda (slotd)
                                     (intern (format nil