0.6.10.23:

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

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 544c642..d044e7d 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
@@ -197,7 +197,7 @@
                                  (t
                                   (boot-make-wrapper (length slots) name))))
                   (proto nil))
-             (when (eq name 't) (setq *the-wrapper-of-t* wrapper))
+             (when (eq name t) (setq *the-wrapper-of-t* wrapper))
              (set (intern (format nil "*THE-CLASS-~A*" (symbol-name name))
                           *pcl-package*)
                   class)
@@ -277,7 +277,7 @@
           (!bootstrap-set-slot metaclass-name class slot-name value)))
     (set-slot 'name name)
     (set-slot 'source source)
-    (set-slot 'type (if (eq class (find-class 't))
+    (set-slot 'type (if (eq class (find-class t))
                        t
                        ;; FIXME: Could this just be CLASS instead
                        ;; of `(CLASS ,CLASS)? If not, why not?
@@ -410,7 +410,7 @@
        (writer (values 'standard-writer-method
                        #'make-std-writer-method-function
                        (list 'new-value class-name)
-                       (list 't class-name)
+                       (list t class-name)
                        "automatically generated writer method"))
        (boundp (values 'standard-boundp-method
                        #'make-std-boundp-method-function
@@ -473,7 +473,7 @@
   ;; other sorts of brainos.
   (dolist (e *built-in-classes*)
     (dolist (super (cadr e))
-      (unless (or (eq super 't)
+      (unless (or (eq super t)
                  (assq super *built-in-classes*))
        (error "in *BUILT-IN-CLASSES*: ~S has ~S as a super,~%~
                but ~S is not itself a class in *BUILT-IN-CLASSES*."
@@ -551,7 +551,7 @@
                                        (cl:find-class symbol))))
                              ;; a hack to add the STREAM class as a
                              ;; mixin to the LISP-STREAM class.
-                             ((eq symbol 'sb-sys:lisp-stream)
+                             ((eq symbol 'sb-kernel:lisp-stream)
                               '(structure-object stream))
                              ((structure-type-included-type-name symbol)
                               (list (structure-type-included-type-name
@@ -628,7 +628,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))