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

(cl:defclass bridge-generic-function
    (#+sbcl sb-pcl:funcallable-standard-object
     sicl-boot-phase1:standard-generic-function)
  ()
  (:metaclass #+sbcl sb-pcl:funcallable-standard-class))

(cl:defmethod cl:print-object ((object bridge-generic-function) stream)
  (print-unreadable-object (object stream :type t)
    (format stream "~s" (cl:slot-value object '%name))))
```

Update package name to reflect move from phase 2 to phase 1.
user
```common lisp
(cl:in-package #:sicl-boot-phase1)

(cl:defclass bridge-generic-function
    (#+sbcl sb-pcl:funcallable-standard-object
     sicl-boot-phase1:standard-generic-function)
  ()
  (:metaclass #+sbcl sb-pcl:funcallable-standard-class))

(cl:defmethod cl:print-object ((object bridge-generic-function) stream)
  (print-unreadable-object (object stream :type t)
    (format stream "~s" (cl:slot-value object '%name))))
```
assistant