```common lisp
(cl:in-package #:sicl-boot-phase2)

(defvar *t*
  (find-bridge-class 't))

(defvar *standard-reader-method*
  (find-bridge-class 'standard-reader-method))

(defvar *standard-writer-method*
  (find-bridge-class 'standard-writer-method))

(defvar *standard-object*
  (find-bridge-class 'standard-object))

(defvar *funcallable-standard-object*
  (find-bridge-class 'funcallable-standard-object))

(defvar *standard-direct-slot-definition*
  (find-bridge-class 'standard-direct-slot-definition))

(defvar *standard-effective-slot-definition*
  (find-bridge-class 'standard-effective-slot-definition))
```

Define *T* as a symbol macro for finding target class.
user
```common lisp
(cl:in-package #:sicl-boot-phase2)

(define-symbol-macro *t*
  (find-target-class 't))

(defvar *standard-reader-method*
  (find-bridge-class 'standard-reader-method))

(defvar *standard-writer-method*
  (find-bridge-class 'standard-writer-method))

(defvar *standard-object*
  (find-bridge-class 'standard-object))

(defvar *funcallable-standard-object*
  (find-bridge-class 'funcallable-standard-object))

(defvar *standard-direct-slot-definition*
  (find-bridge-class 'standard-direct-slot-definition))

(defvar *standard-effective-slot-definition*
  (find-bridge-class 'standard-effective-slot-definition))
```
assistant