diff --git a/pcl/dlisp2.lisp b/pcl/dlisp2.lisp index b323a66949e143a6d8dd3c4983a3c5916d843b48..dd543b2d813a6f8ab606e819db7a91671ccdfaf2 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)