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