From c51dd319d9f1638818b787dffdd0442f98548bb1 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 23 Oct 1991 16:43:58 +0000
Subject: [PATCH] Put renaming of setf functions under CMU conditional.

---
 pcl/boot.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 9d690d35d..5a5523968 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -672,13 +672,17 @@ work during bootstrapping.
 (defun method-function-plist (method-function)
   (gethash method-function *method-function-plist*))
 
-(defun (setf method-function-plist) (val method-function)
+(defun #+cmu (setf method-function-plist)
+       #-cmu SETF\ PCL\ METHOD-FUNCTION-PLIST
+      (val method-function)
   (setf (gethash method-function *method-function-plist*) val))
 
 (defun method-function-get (method-function key)
   (getf (method-function-plist method-function) key))
 
-(defun (setf method-function-get) (val method-function key)
+(defun #+cmu (setf method-function-get)
+       #-cmu SETF\ PCL\ METHOD-FUNCTION-GET
+      (val method-function key)
   (setf (getf  (method-function-plist method-function) key) val))
 
 
-- 
GitLab