X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcombin.lisp;h=a4d72a4dab64ba579bcfee34ead7f4a079127fda;hb=69ef68ba7393e3492c1b4a756d1140f71c2922bc;hp=31141b459b4b2d9ea11212bc6ac78bc58d85a5af;hpb=2912f5f6c2acb2da3b9fcc0f5afd1ca89782a9f8;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)))