# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1207655315 0
# Node ID 8497df25d6b16c426b22843f8f9bafa4446f29c2
# Parent  8fc3183d5a637be3d7e7ecf813546434e245f3ef
(get-setf-method): Use `string-match-p'.

diff -r 8fc3183d5a63 -r 8497df25d6b1 lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Tue Apr 08 11:47:48 2008 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Tue Apr 08 11:48:35 2008 +0000
@@ -1894,8 +1894,7 @@
 			    method
 			  (error "Setf-method for %s returns malformed method"
 				 func)))
-		   (and (save-match-data
-			  (string-match "\\`c[ad][ad][ad]?[ad]?r\\'" name))
+		   (and (string-match-p "\\`c[ad][ad][ad]?[ad]?r\\'" name)
 			(get-setf-method (compiler-macroexpand place)))
 		   (and (eq func 'edebug-after)
 			(get-setf-method (nth (1- (length place)) place)