diff --git a/pcl/plap.lisp b/pcl/plap.lisp index 41c8d7bf74640781e87b72a8c24c9e102b48918e..5a0ab57ffd2a5a93ac2cea805e273592a230d5ec 100644 --- a/pcl/plap.lisp +++ b/pcl/plap.lisp @@ -215,9 +215,16 @@ ;;; (proclaim '(declaration pcl-fast-call)) +#+CMU +(defmacro RUNTIME\ FUNCALL (fn &rest args) + `(funcall (the function ,fn) ,.args)) +#-CMU (defmacro RUNTIME\ FUNCALL (fn &rest args) `(funcall ,fn ,.args)) +#+CMU +(defmacro RUNTIME\ APPLY (fn &rest args) `(apply (the function ,fn) ,.args)) +#-CMU (defmacro RUNTIME\ APPLY (fn &rest args) `(apply ,fn ,.args)) (defmacro RUNTIME\ STD-WRAPPER (x)