From 7ea571cda258a02351ccafe09928898e15b7444d Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Tue, 13 Mar 2001 16:52:17 +0000
Subject: [PATCH] Change calls to obsolete define-setf-method to
 define-setf-expander.

---
 code/alieneval.lisp    | 4 ++--
 code/extensions.lisp   | 4 ++--
 code/macros.lisp       | 4 ++--
 code/pprint.lisp       | 4 ++--
 compiler/globaldb.lisp | 4 ++--
 compiler/macros.lisp   | 6 +++---
 6 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index d2bb08d6f..c10e13010 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.48 1999/09/15 15:14:45 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.49 2001/03/13 16:52:13 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1777,7 +1777,7 @@
   (declare (ignore info))
   (setf (deref alien) value))
 
-(define-setf-method local-alien (&whole whole info alien)
+(define-setf-expander local-alien (&whole whole info alien)
   (let ((value (gensym))
 	(info (if (and (consp info)
 		       (eq (car info) 'quote))
diff --git a/code/extensions.lisp b/code/extensions.lisp
index 246b93b39..9b7b07c0d 100644
--- a/code/extensions.lisp
+++ b/code/extensions.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extensions.lisp,v 1.24 2001/03/04 20:12:34 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extensions.lisp,v 1.25 2001/03/13 16:52:14 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -128,7 +128,7 @@
 	   ,form)))))
 
 
-(define-setf-method logbitp (index int &environment env)
+(define-setf-expander logbitp (index int &environment env)
   (multiple-value-bind (temps vals stores store-form access-form)
 		       (get-setf-method int env)
     (let ((ind (gensym))
diff --git a/code/macros.lisp b/code/macros.lisp
index 580b17fd2..ff0c518ab 100644
--- a/code/macros.lisp
+++ b/code/macros.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.67 2001/03/13 02:10:28 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.68 2001/03/13 16:52:14 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -219,7 +219,7 @@
 (defparameter defsetf-error-string "Setf expander for ~S cannot be called with ~S args.")
 
 (defmacro define-setf-expander (access-fn lambda-list &body body)
-  "Syntax like DEFMACRO, but creates a Setf-Method generator.  The body
+  "Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body
   must be a form that returns the five magical values."
   (unless (symbolp access-fn)
     (error "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
diff --git a/code/pprint.lisp b/code/pprint.lisp
index 9afec5b26..0ee8511a8 100644
--- a/code/pprint.lisp
+++ b/code/pprint.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.28 2001/03/13 02:10:30 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.29 2001/03/13 16:52:14 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1440,7 +1440,7 @@
     (ctypecase pprint-typecase)
     (defconstant pprint-block)
     (define-modify-macro pprint-defun)
-    (define-setf-method pprint-defun)
+    (define-setf-expander pprint-defun)
     (defmacro pprint-defun)
     (defparameter pprint-block)
     (defsetf pprint-defun)
diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index a1770396e..b8ac6be65 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.40 2001/03/04 20:12:16 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.41 2001/03/13 16:52:16 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -327,7 +327,7 @@
 		(get-info-value ,name ,(type-info-number info)
 				,@(when env-list `(,env-list))))))
 ;;;
-(define-setf-method info (class type name &optional env-list)
+(define-setf-expander info (class type name &optional env-list)
   "Set the global information for Name."
   (let* ((n-name (gensym))
 	 (n-env-list (if env-list (gensym)))
diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index 7dd964b75..dc1827d5d 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.45 2001/03/04 20:12:22 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/macros.lisp,v 1.46 2001/03/13 16:52:17 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -922,8 +922,8 @@
 	   `(logtest ,(compute-attribute-mask attribute-names ,const-name)
 		     (the attributes ,attributes)))
 
-	 (define-setf-method ,test-name (place &rest attributes
-					       &environment env)
+	 (define-setf-expander ,test-name (place &rest attributes
+						 &environment env)
 	   
 	   "Automagically generated boolean attribute setter.  See
 	    Def-Boolean-Attribute."
-- 
GitLab