From 00e106d430caa59ffe0307543faeaabe48006a68 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 20 Feb 2003 16:41:22 +0000
Subject: [PATCH] 	* compiler/ir1final.lisp (finalize-xep-definition):
 Use 	valid-function-name-p.

---
 compiler/ir1final.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp
index 99b321d7b..758c897ee 100644
--- a/compiler/ir1final.lisp
+++ b/compiler/ir1final.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/ir1final.lisp,v 1.21 2000/07/09 16:05:19 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.22 2003/02/20 16:41:22 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -64,8 +64,7 @@
 	 (name (leaf-name leaf))
 	 (dtype (definition-type leaf)))
     (setf (leaf-type leaf) dtype)
-    (when (or (and name (symbolp name))
-	      (and (consp name) (eq (car name) 'setf)))
+    (when (ext:valid-function-name-p name)
       (let* ((where (info function where-from name))
 	     (*compiler-error-context* (lambda-bind (main-entry leaf)))
 	     (global-def (gethash name *free-functions*))
-- 
GitLab