X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fbraid.lisp;h=ce6bbc17d70132bad900a8a754ec72fe30f50411;hb=11f6bc8c710bfa83e8cddbc9a389be02ae6ee7ef;hp=f4b637721fd639bf914f490365e35e52cdb3ce69;hpb=96aa790ea1d70810e862665c3c8be4ce405a964c;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index f4b6377..ce6bbc1 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -118,7 +118,7 @@
                  (let ((wr (format-symbol *pcl-package* "~A-WRAPPER" class)))
                    `(setf ,wr ,(if (eq class 'standard-generic-function)
                                    '*sgf-wrapper*
-                                   `(boot-make-wrapper
+                                   `(!boot-make-wrapper
                                      (early-class-size ',class)
                                      ',class))
                           ,class (allocate-standard-instance
@@ -199,7 +199,7 @@
                                   ((eq class standard-generic-function)
                                    standard-generic-function-wrapper)
                                   (t
-                                   (boot-make-wrapper (length slots) name))))
+                                   (!boot-make-wrapper (length slots) name))))
                    (proto nil))
               (when (eq name t) (setq *the-wrapper-of-t* wrapper))
               (set (make-class-symbol name) class)