Skip to content
Snippets Groups Projects
Commit 424502d4 authored by ram's avatar ram
Browse files

Tweaked some more dispatch funs.

parent 5eb10b17
No related branches found
No related tags found
No related merge requests found
...@@ -137,7 +137,7 @@ ...@@ -137,7 +137,7 @@
(if cached-emf-p (if cached-emf-p
#'(lambda (cache miss-fn) #'(lambda (cache miss-fn)
(declare (type function miss-fn)) (declare (type function miss-fn))
#'(lambda (&rest args) #'(#+cmu kernel:instance-lambda #-cmu lambda (&rest args)
(declare #.*optimize-speed*) (declare #.*optimize-speed*)
#+copy-&rest-arg (setq args (copy-list args)) #+copy-&rest-arg (setq args (copy-list args))
(with-dfun-wrappers (args metatypes) (with-dfun-wrappers (args metatypes)
...@@ -153,7 +153,7 @@ ...@@ -153,7 +153,7 @@
(invoke-emf emf args)))))))) (invoke-emf emf args))))))))
#'(lambda (cache emf miss-fn) #'(lambda (cache emf miss-fn)
(declare (type function miss-fn)) (declare (type function miss-fn))
#'(lambda (&rest args) #'(#+cmu kernel:instance-lambda #-cmu lambda (&rest args)
(declare #.*optimize-speed*) (declare #.*optimize-speed*)
#+copy-&rest-arg (setq args (copy-list args)) #+copy-&rest-arg (setq args (copy-list args))
(with-dfun-wrappers (args metatypes) (with-dfun-wrappers (args metatypes)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment