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