X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcombin.lisp;h=a4d72a4dab64ba579bcfee34ead7f4a079127fda;hb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;hp=31141b459b4b2d9ea11212bc6ac78bc58d85a5af;hpb=8b64d57b865fec6ba082dda965146b5e8aa877b3;p=sbcl.git

diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index 31141b4..a4d72a4 100644
--- a/src/pcl/combin.lisp
+++ b/src/pcl/combin.lisp
@@ -157,10 +157,9 @@
 
 (defun get-effective-method-gensym ()
   (or (pop *rebound-effective-method-gensyms*)
-      (let ((new (intern (format nil
-				 "EFFECTIVE-METHOD-GENSYM-~D"
-				 (length *global-effective-method-gensyms*))
-			 *pcl-package*)))
+      (let ((new (format-symbol *pcl-package*
+				"EFFECTIVE-METHOD-GENSYM-~D"
+				(length *global-effective-method-gensyms*))))
 	(setq *global-effective-method-gensyms*
 	      (append *global-effective-method-gensyms* (list new)))
 	new)))