From 043ced9f227384f7f085fcd06e846a99b8119979 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 27 Nov 1990 15:46:59 +0000 Subject: [PATCH] Added some FUNCTION declarations to the funcall/apply stuff so that we don't get annoying efficency notes whenver we compile a generic function. --- pcl/plap.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/pcl/plap.lisp b/pcl/plap.lisp index 41c8d7bf7..5a0ab57ff 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) -- GitLab