From 891aafe878413cd2a5434ee59f0038daa4e587a7 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 20 Feb 2003 16:39:50 +0000
Subject: [PATCH] 	* code/loop.lisp (estimate-code-size-1): Use
 valid-function-name-p.

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

diff --git a/code/loop.lisp b/code/loop.lisp
index 6039e757b..9e25bdbbe 100644
--- a/code/loop.lisp
+++ b/code/loop.lisp
@@ -49,7 +49,7 @@
 
 #+cmu
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.18 2002/12/04 01:37:00 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.19 2003/02/20 16:39:50 gerd Exp $")
 
 ;;;; LOOP Iteration Macro
 
@@ -927,8 +927,7 @@ a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructuring.
 		     ((eq fn 'function)
 		      ;;This skirts the issue of implementationally-defined lambda macros
 		      ;; by recognizing CL function names and nothing else.
-		      (if (or (symbolp (cadr x))
-			      (and (consp (cadr x)) (eq (caadr x) 'setf)))
+		      (if (ext:valid-function-name-p (cadr x))
 			  1
 			  (throw 'duplicatable-code-p nil)))
 		     ((eq fn 'multiple-value-setq) (f (length (second x)) (cddr x)))
-- 
GitLab