X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcombin.lisp;h=a4d72a4dab64ba579bcfee34ead7f4a079127fda;hb=f705c517d8606a9a72edd11a96725f9c4e4be93d;hp=54306cac95944c964d795516def087d3ba2f67df;hpb=e972550db41da8a21a89d0215670de70802bd3ee;p=sbcl.git

diff --git a/src/pcl/combin.lisp b/src/pcl/combin.lisp
index 54306ca..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)))
@@ -358,6 +357,8 @@
 (defun gf-requires-emf-keyword-checks (generic-function)
   (member '&key (gf-lambda-list generic-function)))
 
+(defvar *in-precompute-effective-methods-p* nil)
+
 (defun standard-compute-effective-method
     (generic-function combin applicable-methods)
   (collect ((before) (primary) (after) (around))