From 424502d4bcf8156a31d1a4aed2f0de3ba0cc2005 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 30 Apr 1993 15:46:29 +0000
Subject: [PATCH] Tweaked some more dispatch funs.

---
 pcl/dlisp2.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/dlisp2.lisp b/pcl/dlisp2.lisp
index b323a6694..dd543b2d8 100644
--- a/pcl/dlisp2.lisp
+++ b/pcl/dlisp2.lisp
@@ -137,7 +137,7 @@
   (if cached-emf-p
       #'(lambda (cache miss-fn)
 	  (declare (type function miss-fn))
-	  #'(lambda (&rest args)
+	  #'(#+cmu kernel:instance-lambda #-cmu lambda (&rest args)
 	      (declare #.*optimize-speed*)
 	      #+copy-&rest-arg (setq args (copy-list args))
 	      (with-dfun-wrappers (args metatypes)
@@ -153,7 +153,7 @@
 			      (invoke-emf emf args))))))))
       #'(lambda (cache emf miss-fn)
 	  (declare (type function miss-fn))
-	  #'(lambda (&rest args)
+	  #'(#+cmu kernel:instance-lambda #-cmu lambda (&rest args)
 	      (declare #.*optimize-speed*)
 	      #+copy-&rest-arg (setq args (copy-list args))
 	      (with-dfun-wrappers (args metatypes)
-- 
GitLab