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