X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fdlisp.lisp;h=6b388e431cd0bbca3320f1f16e4fbd8e945e88bd;hb=f3f677703e37f5a335b3be7fa64f7748ad969517;hp=e6de19f7003d1b59ac32f1a5257daf9aa38e0dc3;hpb=a736ac10b709b2d40305f0a6e3764afd246a8ef5;p=sbcl.git

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index e6de19f..6b388e4 100644
--- a/src/pcl/dlisp.lisp
+++ b/src/pcl/dlisp.lisp
@@ -296,10 +296,9 @@
 	 (wrapper-bindings (mapcan (lambda (arg mt)
 				     (unless (eq mt t)
 				       (incf index)
-				       `((,(intern (format nil
-							   "WRAPPER-~D"
-							   index)
-						   *pcl-package*)
+				       `((,(format-symbol *pcl-package*
+							  "WRAPPER-~D"
+							  index)
 					  ,(emit-fetch-wrapper
 					    mt arg 'miss (pop slot-regs))))))
 				   args metatypes))