From e241405a1f140534829ebbd24e2e03c01e6d8424 Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Sat, 12 Mar 2016 22:16:26 +0300
Subject: [PATCH] Remove *the-wrapper...* from PCL.

Unused.
---
 src/pcl/braid.lisp     |  2 --
 src/pcl/defs.lisp      |  6 ------
 src/pcl/early-low.lisp | 16 ----------------
 3 files changed, 24 deletions(-)

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 100a39289..1945323ca 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -206,7 +206,6 @@
                                   (t
                                    (!boot-make-wrapper (length slots) name))))
                    (proto nil))
-              (when (eq name t) (setq *the-wrapper-of-t* wrapper))
               (set (make-class-symbol name) class)
               (dolist (slot slots)
                 (unless (eq (getf slot :allocation :instance) :instance)
@@ -540,7 +539,6 @@
                (lclass (find-classoid name))
                (wrapper (classoid-layout lclass)))
           (set (get-built-in-class-symbol name) class)
-          (set (get-built-in-wrapper-symbol name) wrapper)
           (setf (classoid-pcl-class lclass) class)
 
           (!bootstrap-initialize-class 'built-in-class class
diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index a4bd179fa..3cdb298bd 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -188,12 +188,6 @@
       (let ((symbol (make-class-symbol class-name)))
         (push (list class-name symbol) *built-in-class-symbols*)
         symbol)))
-
-(defun get-built-in-wrapper-symbol (class-name)
-  (or (cadr (assq class-name *built-in-wrapper-symbols*))
-      (let ((symbol (make-wrapper-symbol class-name)))
-        (push (list class-name symbol) *built-in-wrapper-symbols*)
-        symbol)))
 
 (defvar *standard-method-combination*)
 
diff --git a/src/pcl/early-low.lisp b/src/pcl/early-low.lisp
index fa876fd7c..bce205e6a 100644
--- a/src/pcl/early-low.lisp
+++ b/src/pcl/early-low.lisp
@@ -73,11 +73,6 @@
   (format-symbol (load-time-value (find-package "SB!PCL") t)
                  "*THE-CLASS-~A*" (symbol-name class-name)))
 
-(defun make-wrapper-symbol (class-name)
-  ;; Reference a package that is now SB!PCL but later SB-PCL
-  (format-symbol (load-time-value (find-package "SB!PCL") t)
-                 "*THE-WRAPPER-~A*" (symbol-name class-name)))
-
 (defun condition-type-p (type)
   (and (symbolp type)
        (condition-classoid-p (find-classoid type nil))))
@@ -123,17 +118,6 @@
 
                   *the-eslotd-standard-class-slots*
                   *the-eslotd-funcallable-standard-class-slots*))
-
-(declaim (special *the-wrapper-of-t*
-                  *the-wrapper-of-vector* *the-wrapper-of-symbol*
-                  *the-wrapper-of-string* *the-wrapper-of-sequence*
-                  *the-wrapper-of-rational* *the-wrapper-of-ratio*
-                  *the-wrapper-of-number* *the-wrapper-of-null*
-                  *the-wrapper-of-list* *the-wrapper-of-integer*
-                  *the-wrapper-of-float* *the-wrapper-of-cons*
-                  *the-wrapper-of-complex* *the-wrapper-of-character*
-                  *the-wrapper-of-bit-vector* *the-wrapper-of-array*))
-
 ;;;; PCL instances
 
 (sb!kernel::!defstruct-with-alternate-metaclass standard-instance
-- 
2.11.4.GIT