0.6.11.10:

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

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 79dd636..373ee53 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -44,7 +44,7 @@
                        (i 0 (1+ i)))
                       ((>= i no-of-slots)) ;endp rem-slots))
                     (declare (list rem-slots)
-                             (type sb-int:index i))
+                             (type index i))
                     (setf (aref slots i) (first rem-slots)))
                   slots))
                (t
@@ -317,7 +317,8 @@
                                        (make-class-predicate-name name)))
          (set-slot 'defstruct-form
                    `(defstruct (structure-object (:constructor
-                                                  ,constructor-sym))))
+                                                  ,constructor-sym)
+                                                 (:copier nil))))
          (set-slot 'defstruct-constructor constructor-sym)
          (set-slot 'from-defclass-p t)
          (set-slot 'plist nil)
@@ -628,7 +629,7 @@
   (!bootstrap-class-predicates nil)
   (!bootstrap-built-in-classes)
 
-  (sb-int:dohash (name x *find-class*)
+  (dohash (name x *find-class*)
     (let* ((class (find-class-from-cell name x))
           (layout (class-wrapper class))
           (lclass (sb-kernel:layout-class layout))