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